home *** CD-ROM | disk | FTP | other *** search
- object GridColEditor: TGridColEditor
- Left = 224
- Top = 165
- ActiveControl = ColumnList
- BorderStyle = bsDialog
- Caption = 'DBGrid Columns Editor'
- ClientHeight = 210
- ClientWidth = 393
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 13
- object HelpButton: TButton
- Left = 310
- Top = 176
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 5
- end
- object ApplyButton: TButton
- Left = 230
- Top = 176
- Width = 75
- Height = 25
- Caption = '&Apply'
- Enabled = False
- TabOrder = 4
- OnClick = ApplyButtonClick
- end
- object CancelButton: TButton
- Left = 150
- Top = 176
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 3
- OnClick = CancelButtonClick
- end
- object OkButton: TButton
- Left = 70
- Top = 176
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- TabOrder = 2
- OnClick = OkButtonClick
- end
- object GroupBox2: TGroupBox
- Left = 152
- Top = 4
- Width = 233
- Height = 157
- Caption = 'Column properties'
- TabOrder = 1
- object Label1: TLabel
- Left = 12
- Top = 45
- Width = 53
- Height = 13
- Caption = '&FieldName:'
- end
- object Label2: TLabel
- Left = 12
- Top = 71
- Width = 31
- Height = 13
- Caption = '&Width:'
- FocusControl = ColWidth
- end
- object Label3: TLabel
- Left = 12
- Top = 97
- Width = 27
- Height = 13
- Caption = '&Color:'
- end
- object Label4: TLabel
- Left = 12
- Top = 19
- Width = 23
- Height = 13
- Caption = '&Title:'
- end
- object ColWidth: TEdit
- Left = 80
- Top = 68
- Width = 137
- Height = 21
- TabOrder = 2
- OnChange = EditChange
- OnExit = ControlExit
- end
- object ColTitle: TEdit
- Left = 80
- Top = 16
- Width = 137
- Height = 21
- TabOrder = 0
- OnChange = EditChange
- OnExit = ControlExit
- end
- object FieldName: TComboBox
- Left = 80
- Top = 42
- Width = 137
- Height = 21
- ItemHeight = 13
- TabOrder = 1
- OnChange = EditChange
- OnDropDown = FieldNameDropDown
- OnExit = ControlExit
- end
- object ColColor: TComboBox
- Left = 80
- Top = 94
- Width = 137
- Height = 21
- ItemHeight = 13
- TabOrder = 3
- OnChange = EditChange
- OnDblClick = ColColorDblClick
- OnDropDown = ColColorDropDown
- OnExit = ControlExit
- end
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 4
- Width = 137
- Height = 157
- Caption = '&Columns'
- TabOrder = 0
- object ColumnList: TListBox
- Left = 8
- Top = 16
- Width = 121
- Height = 101
- ItemHeight = 13
- TabOrder = 0
- OnClick = ColumnListClick
- OnDragDrop = ColumnListDragDrop
- OnDragOver = ColumnListDragOver
- OnMouseDown = ColumnListMouseDown
- end
- object NewButton: TButton
- Left = 8
- Top = 124
- Width = 57
- Height = 25
- Caption = '&New'
- TabOrder = 1
- OnClick = NewButtonClick
- end
- object DeleteButton: TButton
- Left = 72
- Top = 124
- Width = 57
- Height = 25
- Caption = '&Delete'
- TabOrder = 2
- OnClick = DeleteButtonClick
- end
- end
- object ColorDialog1: TColorDialog
- Left = 200
- Top = 92
- end
- end
-