home *** CD-ROM | disk | FTP | other *** search
- object DatasetEditor: TDatasetEditor
- Left = 256
- Top = 121
- Width = 222
- Height = 258
- ActiveControl = FieldListBox
- Caption = 'Form1.Table1'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Icon.Data = {<image000.ico>}
- PixelsPerInch = 96
- OnClick = SelectTable
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 214
- Height = 231
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 3
- Caption = 'Panel1'
- TabOrder = 0
- OnClick = SelectTable
- object GroupBox1: TGroupBox
- Left = 3
- Top = 3
- Width = 208
- Height = 188
- Align = alClient
- Caption = 'Fields'
- TabOrder = 0
- OnClick = SelectTable
- object Panel3: TPanel
- Left = 2
- Top = 15
- Width = 204
- Height = 171
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 5
- Caption = 'Panel3'
- TabOrder = 0
- OnClick = SelectTable
- object FieldListBox: TListBox
- Left = 5
- Top = 5
- Width = 108
- Height = 161
- Align = alClient
- DragMode = dmAutomatic
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 0
- OnClick = FieldListBoxClick
- OnDragDrop = FieldListBoxDragDrop
- OnDragOver = FieldListBoxDragOver
- OnKeyDown = FieldListBoxKeyDown
- OnKeyPress = FieldListBoxKeyPress
- end
- object Panel2: TPanel
- Left = 113
- Top = 5
- Width = 86
- Height = 161
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- OnClick = SelectTable
- object AddBtn: TButton
- Left = 8
- Top = 0
- Width = 77
- Height = 27
- Caption = 'Add...'
- TabOrder = 0
- OnClick = AddBtnClick
- end
- object RemoveBtn: TButton
- Left = 8
- Top = 72
- Width = 77
- Height = 27
- Caption = 'Remove'
- TabOrder = 2
- OnClick = RemoveBtnClick
- end
- object DefineBtn: TButton
- Left = 8
- Top = 32
- Width = 77
- Height = 27
- Caption = 'Define...'
- TabOrder = 1
- OnClick = DefineBtnClick
- end
- object ClearAll: TButton
- Left = 8
- Top = 104
- Width = 77
- Height = 27
- Caption = 'Clear all'
- TabOrder = 3
- OnClick = ClearAllClick
- end
- end
- end
- end
- object Panel5: TPanel
- Left = 3
- Top = 191
- Width = 208
- Height = 37
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- OnClick = SelectTable
- OnResize = Panel5Resize
- object DBNavigator: TDBNavigator
- Left = 8
- Top = 7
- Width = 109
- Height = 25
- DataSource = DataSource
- VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
- TabOrder = 0
- end
- end
- end
- object DataSource: TDataSource
- Left = 138
- Top = 184
- end
- end
-