home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 792
- Top = 671
- Width = 402
- Height = 300
- Caption = 'Field Info Test'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnActivate = FormActivate
- TextHeight = 16
- object DBGrid1: TDBGrid
- Left = 0
- Top = 41
- Width = 394
- Height = 232
- Align = alClient
- DataSource = DataSource1
- TabOrder = 0
- TitleFont.Color = clWindowText
- TitleFont.Height = -13
- TitleFont.Name = 'System'
- TitleFont.Style = []
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 394
- Height = 41
- Align = alTop
- TabOrder = 1
- object SaveBtn: TButton
- Left = 10
- Top = 5
- Width = 89
- Height = 33
- Caption = '&Save Fields'
- TabOrder = 0
- OnClick = SaveBtnClick
- end
- object LoadBtn: TButton
- Left = 105
- Top = 5
- Width = 89
- Height = 33
- Caption = '&Load Fields'
- TabOrder = 1
- OnClick = LoadBtnClick
- end
- object OrigBtn: TButton
- Left = 200
- Top = 5
- Width = 89
- Height = 33
- Caption = '&Orig Fields'
- TabOrder = 2
- OnClick = OrigBtnClick
- end
- object QuitBtn: TButton
- Left = 295
- Top = 5
- Width = 89
- Height = 33
- Caption = '&Quit'
- TabOrder = 3
- OnClick = QuitBtnClick
- end
- end
- object TestTable: TTable
- Left = 340
- Top = 175
- end
- object DataSource1: TDataSource
- DataSet = TestTable
- Left = 300
- Top = 175
- end
- end
-