home *** CD-ROM | disk | FTP | other *** search
- object DefineField: TDefineField
- Left = 221
- Top = 137
- BorderStyle = bsDialog
- Caption = 'New Field'
- ClientHeight = 258
- ClientWidth = 417
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object LookupGroup: TGroupBox
- Left = 8
- Top = 136
- Width = 401
- Height = 81
- Caption = 'Lookup definition'
- TabOrder = 2
- object DatasetLabel: TLabel
- Left = 208
- Top = 19
- Width = 40
- Height = 13
- Caption = 'D&ataset:'
- Enabled = False
- FocusControl = DatasetList
- end
- object KeyFieldsLabel: TLabel
- Left = 8
- Top = 19
- Width = 51
- Height = 13
- Caption = '&Key Fields:'
- Enabled = False
- FocusControl = KeyFieldsList
- end
- object LookupKeysLabel: TLabel
- Left = 8
- Top = 51
- Width = 65
- Height = 13
- Caption = 'Look&up Keys:'
- Enabled = False
- FocusControl = LookupKeysList
- end
- object ResultFieldLabel: TLabel
- Left = 208
- Top = 51
- Width = 58
- Height = 13
- Caption = '&Result Field:'
- Enabled = False
- FocusControl = ResultFieldList
- end
- object DatasetList: TComboBox
- Left = 272
- Top = 16
- Width = 121
- Height = 21
- Enabled = False
- ItemHeight = 13
- TabOrder = 1
- OnChange = DatasetListChange
- OnDropDown = DatasetListDropDown
- end
- object KeyFieldsList: TComboBox
- Left = 80
- Top = 16
- Width = 121
- Height = 21
- Enabled = False
- ItemHeight = 13
- TabOrder = 0
- OnDropDown = KeyFieldsListDropDown
- end
- object LookupKeysList: TComboBox
- Left = 80
- Top = 48
- Width = 121
- Height = 21
- Enabled = False
- ItemHeight = 13
- TabOrder = 2
- OnDropDown = LookupKeysListDropDown
- end
- object ResultFieldList: TComboBox
- Left = 272
- Top = 48
- Width = 121
- Height = 21
- Enabled = False
- ItemHeight = 13
- TabOrder = 3
- OnDropDown = ResultFieldListDropDown
- end
- end
- object OkBtn: TButton
- Left = 174
- Top = 226
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 3
- OnClick = OkBtnClick
- end
- object CancelBtn: TButton
- Left = 254
- Top = 226
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 4
- end
- object HelpBtn: TButton
- Left = 334
- Top = 226
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 5
- OnClick = HelpBtnClick
- end
- object FieldGroup: TGroupBox
- Left = 8
- Top = 8
- Width = 401
- Height = 81
- Caption = 'Field properties'
- TabOrder = 0
- object ComponentNameLabel: TLabel
- Left = 208
- Top = 19
- Width = 57
- Height = 13
- Caption = 'C&omponent:'
- FocusControl = ComponentNameEdit
- end
- object FieldNameLabel: TLabel
- Left = 11
- Top = 19
- Width = 31
- Height = 13
- Caption = '&Name:'
- FocusControl = FieldNameEdit
- end
- object FieldTypeLabel: TLabel
- Left = 8
- Top = 51
- Width = 27
- Height = 13
- Caption = '&Type:'
- FocusControl = FieldTypeList
- end
- object Label2: TLabel
- Left = 208
- Top = 51
- Width = 23
- Height = 13
- Caption = '&Size:'
- FocusControl = SizeEdit
- end
- object ComponentNameEdit: TEdit
- Left = 272
- Top = 16
- Width = 121
- Height = 21
- TabOrder = 1
- end
- object FieldNameEdit: TEdit
- Left = 64
- Top = 16
- Width = 137
- Height = 21
- TabOrder = 0
- OnChange = FieldNameEditChange
- OnClick = FieldNameEditChange
- end
- object FieldTypeList: TComboBox
- Left = 64
- Top = 48
- Width = 137
- Height = 21
- ItemHeight = 13
- TabOrder = 2
- end
- object SizeEdit: TEdit
- Left = 272
- Top = 48
- Width = 57
- Height = 21
- MaxLength = 5
- TabOrder = 3
- end
- end
- object FieldKind: TRadioGroup
- Left = 8
- Top = 92
- Width = 401
- Height = 41
- Caption = 'Field type'
- Columns = 3
- ItemIndex = 0
- Items.Strings = (
- '&Data'
- '&Calculated'
- '&Lookup')
- TabOrder = 1
- OnClick = FieldKindClick
- end
- end
-