object NewFieldFrm: TNewFieldFrm Left = 243 Height = 376 Top = 165 Width = 262 HorzScrollBar.Page = 261 VertScrollBar.Page = 375 ActiveControl = EditName BorderStyle = bsDialog Caption = 'Dialog' ClientHeight = 376 ClientWidth = 262 OnCreate = FormCreate ParentFont = True Position = poScreenCenter object Panel2: TPanel Height = 121 Top = 64 Width = 262 Align = alTop ClientHeight = 121 ClientWidth = 262 FullRepaint = False TabOrder = 0 object GroupBox1: TGroupBox Left = 8 Height = 105 Top = 8 Width = 244 Caption = 'Field properties' ClientHeight = 86 ClientWidth = 240 TabOrder = 0 object Label1: TLabel Left = 15 Height = 14 Top = 11 Width = 32 Caption = '&Name:' FocusControl = EditName ParentColor = False end object Label2: TLabel Left = 15 Height = 14 Top = 35 Width = 29 Caption = '&Type:' FocusControl = SelectType ParentColor = False end object Label3: TLabel Left = 15 Height = 14 Top = 59 Width = 24 Caption = '&Size:' FocusControl = EditSize ParentColor = False end object EditName: TEdit Left = 79 Height = 21 Hint = 'Field name' Top = 8 Width = 145 OnChange = EditNameChange ParentShowHint = False ShowHint = True TabOrder = 0 end object SelectType: TComboBox Left = 79 Height = 21 Hint = 'Field type' Top = 32 Width = 145 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] Items.Strings = ( 'String' 'Integer' 'SmallInt' 'Word' 'Float' 'Currency' 'Boolean' 'Date' 'Time' 'DateTime' 'Blob' 'Memo' 'Graphic' 'LargeInt' ) MaxLength = 0 OnChange = SelectTypeChange Style = csDropDownList TabOrder = 1 end object EditSize: TEdit Left = 79 Height = 21 Hint = 'Field size' Top = 56 Width = 145 Enabled = False TabOrder = 2 end end end object Panel3: TPanel Height = 144 Top = 185 Width = 262 Align = alTop ClientHeight = 144 ClientWidth = 262 FullRepaint = False TabOrder = 1 Visible = False object GroupBox2: TGroupBox Left = 8 Height = 129 Top = 8 Width = 244 Anchors = [akTop, akLeft, akRight, akBottom] Caption = 'Lookup definition' ClientHeight = 110 ClientWidth = 240 TabOrder = 0 object Label4: TLabel Left = 16 Height = 14 Top = 10 Width = 47 Caption = '&Key fields' FocusControl = SelectKeyFields ParentColor = False end object Label5: TLabel Left = 16 Height = 14 Top = 58 Width = 60 Caption = 'L&ookup keys' FocusControl = SelectLookupKeys ParentColor = False end object Label6: TLabel Left = 16 Height = 14 Top = 82 Width = 61 Caption = '&Result Fields' FocusControl = SelectResultField ParentColor = False end object Label10: TLabel Left = 16 Height = 14 Top = 34 Width = 39 Caption = 'Dataset' ParentColor = False end object SelectKeyFields: TComboBox Left = 80 Height = 21 Hint = 'Key fields' Top = 7 Width = 145 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] MaxLength = 0 OnChange = SelectKeyFieldsChange ParentShowHint = False ShowHint = True TabOrder = 0 end object SelectLookupKeys: TComboBox Left = 80 Height = 21 Top = 55 Width = 145 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] Enabled = False MaxLength = 0 OnChange = SelectLookupKeysChange TabOrder = 2 end object SelectResultField: TComboBox Left = 80 Height = 21 Top = 79 Width = 145 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] Enabled = False MaxLength = 0 OnChange = SelectResultFieldChange TabOrder = 3 end object DataSetsCombo: TComboBox Left = 80 Height = 21 Hint = 'Lookup dataset' Top = 31 Width = 145 AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] MaxLength = 0 OnChange = DataSetsComboChange ParentShowHint = False ShowHint = True Style = csDropDownList TabOrder = 1 end end end object Panel4: TPanel Height = 47 Top = 329 Width = 262 Align = alBottom ClientHeight = 47 ClientWidth = 262 FullRepaint = False TabOrder = 2 object OKBtn: TButton Left = 56 Height = 25 Top = 11 Width = 75 Anchors = [akLeft, akBottom] Caption = 'OK' Default = True Enabled = False ModalResult = 1 OnClick = OKBtnClick TabOrder = 0 end object CancelBtn: TButton Left = 136 Height = 25 Top = 11 Width = 75 Anchors = [akLeft, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end end object Panel1: TPanel Height = 64 Width = 262 Align = alTop ClientHeight = 64 ClientWidth = 262 FullRepaint = False TabOrder = 3 object NoteLbl: TLabel Left = 36 Height = 28 Top = 64 Width = 216 AutoSize = False Caption = 'NoteLbl' ParentColor = False Visible = False WordWrap = True end object RadioGroup1: TRadioGroup Left = 8 Height = 48 Top = 8 Width = 244 AutoFill = True Caption = 'Field Type' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 29 ClientWidth = 240 Columns = 2 ItemIndex = 0 Items.Strings = ( '&Calculated' '&Lookup' ) OnClick = RadioGroup1Click TabOrder = 0 end end end