Delphi Programming Unleashed/Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso/chap20/dsevents/main.txt

Text File | 1995-03-21 | 3.8 KB | 207 lines

object Form1: TForm1
  Left = 191
  Top = 101
  Width = 402
  Height = 317
  HorzScrollBar.Range = 385
  HorzScrollBar.Visible = False
  VertScrollBar.Range = 313
  VertScrollBar.Visible = False
  ActiveControl = Edit1
  AutoScroll = False
  BorderStyle = bsDialog
  Caption = 'Poor Man'#39's Edit Control'
  PixelsPerInch = 96
  OnCreate = FormCreate
  object Label1: TLabel
    Left = 72
    Top = 8
    Width = 38
    Height = 16
    Caption = 'Name'
  end
  object Label2: TLabel
    Left = 64
    Top = 40
    Width = 45
    Height = 16
    Caption = 'Capital'
  end
  object Label3: TLabel
    Left = 48
    Top = 72
    Width = 61
    Height = 16
    Caption = 'Continent'
  end
  object Label4: TLabel
    Left = 80
    Top = 104
    Width = 29
    Height = 16
    Caption = 'Area'
  end
  object Label5: TLabel
    Left = 40
    Top = 136
    Width = 69
    Height = 16
    Caption = 'Population'
  end
  object Edit1: TEdit
    Left = 120
    Top = 8
    Width = 241
    Height = 24
    TabOrder = 0
    Text = 'Edit1'
    OnKeyDown = Edit1KeyDown
  end
  object Edit2: TEdit
    Left = 120
    Top = 40
    Width = 241
    Height = 24
    TabOrder = 1
    Text = 'Edit2'
    OnKeyDown = Edit1KeyDown
  end
  object Edit3: TEdit
    Left = 120
    Top = 72
    Width = 241
    Height = 24
    TabOrder = 2
    Text = 'Edit3'
    OnKeyDown = Edit1KeyDown
  end
  object Edit4: TEdit
    Left = 120
    Top = 104
    Width = 241
    Height = 24
    TabOrder = 3
    Text = 'Edit4'
    OnKeyDown = Edit1KeyDown
  end
  object Edit: TButton
    Left = 104
    Top = 224
    Width = 89
    Height = 33
    HelpContext = 5
    TabOrder = 10
    Caption = 'Edit'
    OnClick = AnyButtonClick
  end
  object Insert: TButton
    Left = 8
    Top = 224
    Width = 89
    Height = 33
    HelpContext = 6
    TabOrder = 9
    Caption = 'Insert'
    OnClick = AnyButtonClick
  end
  object Edit5: TEdit
    Left = 120
    Top = 136
    Width = 241
    Height = 24
    TabOrder = 4
    Text = 'Edit5'
    OnKeyDown = Edit1KeyDown
  end
  object First: TButton
    Left = 8
    Top = 176
    Width = 89
    Height = 33
    HelpContext = 1
    TabOrder = 5
    Caption = '<<'
    OnClick = AnyButtonClick
  end
  object Prior: TButton
    Left = 104
    Top = 176
    Width = 89
    Height = 33
    HelpContext = 2
    TabOrder = 6
    Caption = '<'
    OnClick = AnyButtonClick
  end
  object Next: TButton
    Left = 200
    Top = 176
    Width = 89
    Height = 33
    HelpContext = 3
    TabOrder = 7
    Caption = '>'
    OnClick = AnyButtonClick
  end
  object Last: TButton
    Left = 296
    Top = 176
    Width = 89
    Height = 33
    HelpContext = 4
    TabOrder = 8
    Caption = '>>'
    OnClick = AnyButtonClick
  end
  object Post: TButton
    Left = 200
    Top = 224
    Width = 89
    Height = 33
    HelpContext = 7
    TabOrder = 11
    Caption = 'Post'
    OnClick = AnyButtonClick
  end
  object Panel1: TPanel
    Top = 264
    Width = 394
    Height = 25
    TabOrder = 13
    BevelInner = bvLowered
    Color = clSilver
    object Label6: TLabel
      Left = 8
      Top = 5
      Width = 49
      Height = 16
      Caption = 'Browse'
    end
  end
  object Cancel: TButton
    Left = 296
    Top = 224
    Width = 89
    Height = 33
    HelpContext = 8
    TabOrder = 12
    Caption = 'Cancel'
    OnClick = AnyButtonClick
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'dbdemos'
    TableName = 'COUNTRY'
    Left = 8
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnStateChange = DataSource1StateChange
    OnDataChange = DataSource1DataChange
    OnUpdateData = DataSource1UpdateData
    Left = 8
    Top = 40
  end
end