home *** CD-ROM | disk | FTP | other *** search
- object DataForm: TDataForm
- Left = 80
- Top = 118
- ActiveControl = Edit1
- AutoScroll = False
- Caption = 'DataForm'
- ClientHeight = 217
- ClientWidth = 484
- Font.Color = clWindowText
- Font.Height = -10
- Font.Name = 'System'
- Font.Style = []
- Menu = MainMenu1
- PixelsPerInch = 96
- TextHeight = 16
- object Label1: TLabel
- Left = 24
- Top = 40
- Width = 44
- Height = 16
- Caption = 'Label1'
- end
- object Label2: TLabel
- Left = 24
- Top = 80
- Width = 44
- Height = 16
- Caption = 'Label2'
- end
- object Label3: TLabel
- Left = 24
- Top = 120
- Width = 44
- Height = 16
- Caption = 'Label3'
- end
- object Edit1: TEdit
- Left = 88
- Top = 40
- Width = 329
- Height = 29
- TabOrder = 0
- Text = 'Edit1'
- end
- object Edit2: TEdit
- Left = 88
- Top = 80
- Width = 329
- Height = 29
- TabOrder = 1
- Text = 'Edit2'
- end
- object Edit3: TEdit
- Left = 88
- Top = 120
- Width = 329
- Height = 29
- TabOrder = 2
- Text = 'Edit3'
- end
- object First: TButton
- Left = 144
- Top = 176
- Width = 89
- Height = 33
- Caption = 'First'
- TabOrder = 3
- OnClick = FirstClick
- end
- object Next: TButton
- Left = 248
- Top = 176
- Width = 89
- Height = 33
- Caption = 'Next'
- TabOrder = 4
- OnClick = NextClick
- end
- object Button1: TButton
- Left = 40
- Top = 176
- Width = 89
- Height = 33
- Caption = 'Add'
- TabOrder = 5
- OnClick = Button1Click
- end
- object Last: TButton
- Left = 352
- Top = 176
- Width = 89
- Height = 33
- Caption = 'Last'
- TabOrder = 6
- OnClick = LastClick
- end
- object MainMenu1: TMainMenu
- object File1: TMenuItem
- Caption = 'File'
- object ReadData1: TMenuItem
- Caption = 'Read Data'
- OnClick = ReadData1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object CreateList1: TMenuItem
- Caption = 'Create New List'
- OnClick = CreateList1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Save1: TMenuItem
- Caption = 'Save'
- OnClick = Save1Click
- end
- object Exit1: TMenuItem
- Caption = 'Exit'
- end
- end
- object Lists1: TMenuItem
- Caption = 'Lists'
- object Add1: TMenuItem
- Caption = 'Add'
- end
- object Delete1: TMenuItem
- Caption = 'Delete'
- OnClick = Delete1Click
- end
- object Count1: TMenuItem
- Caption = 'Count'
- OnClick = Count1Click
- end
- object Find1: TMenuItem
- Caption = 'Find'
- OnClick = Find1Click
- end
- end
- object Help1: TMenuItem
- Caption = 'Help'
- OnClick = Help
- end
- end
- end
-