home *** CD-ROM | disk | FTP | other *** search
- object DefineField: TDefineField
- Left = 237
- Top = 108
- ActiveControl = FieldNameEdit
- BorderStyle = bsDialog
- Caption = 'Define Field'
- ClientHeight = 289
- ClientWidth = 265
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 249
- Height = 241
- Shape = bsFrame
- end
- object ComponentNameLabel: TLabel
- Left = 16
- Top = 56
- Width = 102
- Height = 13
- Caption = '&Component name:'
- FocusControl = ComponentNameEdit
- end
- object FieldTypeLabel: TLabel
- Left = 16
- Top = 96
- Width = 60
- Height = 13
- Caption = 'Field &type:'
- FocusControl = FieldTypeList
- end
- object FieldNameLabel: TLabel
- Left = 16
- Top = 16
- Width = 66
- Height = 13
- Caption = '&Field name:'
- FocusControl = FieldNameEdit
- end
- object Label1: TLabel
- Left = 16
- Top = 220
- Width = 29
- Height = 13
- Caption = '&Size:'
- FocusControl = SizeEdit
- end
- object FieldTypeList: TListBox
- Left = 16
- Top = 112
- Width = 233
- Height = 93
- ItemHeight = 13
- Sorted = True
- TabOrder = 2
- end
- object ComponentNameEdit: TEdit
- Left = 16
- Top = 72
- Width = 233
- Height = 20
- TabOrder = 1
- end
- object OkBtn: TBitBtn
- Left = 7
- Top = 255
- Width = 77
- Height = 27
- TabOrder = 5
- OnClick = OkBtnClick
- Kind = bkOK
- Margin = 2
- Spacing = -1
- end
- object CancelBtn: TBitBtn
- Left = 94
- Top = 255
- Width = 77
- Height = 27
- TabOrder = 6
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- end
- object CalculatedCheck: TCheckBox
- Left = 136
- Top = 218
- Width = 89
- Height = 17
- Caption = 'C&alculated'
- TabOrder = 4
- end
- object HelpBtn: TBitBtn
- Left = 181
- Top = 255
- Width = 77
- Height = 27
- TabOrder = 7
- Kind = bkHelp
- end
- object SizeEdit: TEdit
- Left = 50
- Top = 217
- Width = 57
- Height = 20
- MaxLength = 5
- TabOrder = 3
- end
- object FieldNameEdit: TEdit
- Left = 16
- Top = 32
- Width = 233
- Height = 20
- TabOrder = 0
- OnChange = FieldNameEditChange
- OnClick = FieldNameEditChange
- end
- end
-