1object NewFieldFrm: TNewFieldFrm 2 Left = 447 3 Height = 461 4 Top = 271 5 Width = 510 6 HorzScrollBar.Page = 261 7 VertScrollBar.Page = 375 8 Caption = 'Dialog' 9 ClientHeight = 461 10 ClientWidth = 510 11 OnClose = FormClose 12 OnCreate = FormCreate 13 ParentFont = True 14 Position = poScreenCenter 15 LCLVersion = '2.1.0.0' 16 object ButtonPanel1: TButtonPanel 17 Left = 6 18 Height = 42 19 Top = 413 20 Width = 498 21 OKButton.Name = 'OKButton' 22 OKButton.DefaultCaption = True 23 HelpButton.Name = 'HelpButton' 24 HelpButton.DefaultCaption = True 25 CloseButton.Name = 'CloseButton' 26 CloseButton.DefaultCaption = True 27 CancelButton.Name = 'CancelButton' 28 CancelButton.DefaultCaption = True 29 TabOrder = 0 30 ShowButtons = [pbOK, pbCancel] 31 end 32 object RadioGroup1: TRadioGroup 33 Left = 0 34 Height = 55 35 Top = 0 36 Width = 510 37 Align = alTop 38 AutoFill = True 39 AutoSize = True 40 Caption = 'Field Type' 41 ChildSizing.LeftRightSpacing = 6 42 ChildSizing.TopBottomSpacing = 6 43 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 44 ChildSizing.EnlargeVertical = crsHomogenousChildResize 45 ChildSizing.ShrinkHorizontal = crsScaleChilds 46 ChildSizing.ShrinkVertical = crsScaleChilds 47 ChildSizing.Layout = cclLeftToRightThenTopToBottom 48 ChildSizing.ControlsPerLine = 3 49 ClientHeight = 35 50 ClientWidth = 508 51 Columns = 3 52 ItemIndex = 0 53 Items.Strings = ( 54 '&Data' 55 '&Calculated' 56 '&Lookup' 57 ) 58 OnClick = RadioGroup1Click 59 TabOrder = 1 60 end 61 object NoteLbl: TLabel 62 Left = 0 63 Height = 19 64 Top = 55 65 Width = 510 66 Align = alTop 67 Caption = 'NoteLbl' 68 ParentColor = False 69 Visible = False 70 WordWrap = True 71 end 72 object GroupBox1: TGroupBox 73 AnchorSideRight.Side = asrBottom 74 Left = 0 75 Height = 170 76 Top = 248 77 Width = 510 78 Align = alTop 79 AutoSize = True 80 Caption = 'Field properties' 81 ClientHeight = 150 82 ClientWidth = 508 83 TabOrder = 2 84 object Label1: TLabel 85 AnchorSideLeft.Control = GroupBox1 86 AnchorSideBottom.Control = EditName 87 AnchorSideBottom.Side = asrBottom 88 Left = 6 89 Height = 19 90 Top = 18 91 Width = 44 92 Anchors = [akLeft, akBottom] 93 BorderSpacing.Left = 6 94 Caption = '&Name:' 95 FocusControl = EditName 96 ParentColor = False 97 end 98 object Label2: TLabel 99 AnchorSideLeft.Control = GroupBox1 100 AnchorSideBottom.Control = SelectType 101 AnchorSideBottom.Side = asrBottom 102 Left = 6 103 Height = 19 104 Top = 88 105 Width = 36 106 Anchors = [akLeft, akBottom] 107 BorderSpacing.Left = 6 108 Caption = '&Type:' 109 FocusControl = SelectType 110 ParentColor = False 111 end 112 object Label3: TLabel 113 AnchorSideLeft.Control = GroupBox1 114 AnchorSideRight.Control = Label8 115 AnchorSideBottom.Control = EditSize 116 AnchorSideBottom.Side = asrBottom 117 Left = 6 118 Height = 19 119 Top = 125 120 Width = 32 121 Anchors = [akLeft, akBottom] 122 BorderSpacing.Left = 6 123 BorderSpacing.Right = 6 124 Caption = '&Size:' 125 FocusControl = EditSize 126 ParentColor = False 127 end 128 object EditName: TEdit 129 AnchorSideLeft.Control = Label8 130 AnchorSideLeft.Side = asrBottom 131 AnchorSideTop.Control = GroupBox1 132 AnchorSideRight.Control = GroupBox1 133 AnchorSideRight.Side = asrBottom 134 Left = 255 135 Height = 31 136 Top = 6 137 Width = 247 138 Anchors = [akTop, akLeft, akRight] 139 BorderSpacing.Top = 6 140 BorderSpacing.Right = 6 141 OnChange = EditNameChange 142 ParentShowHint = False 143 ShowHint = True 144 TabOrder = 0 145 end 146 object SelectType: TComboBox 147 AnchorSideLeft.Control = Label8 148 AnchorSideLeft.Side = asrBottom 149 AnchorSideTop.Control = EditCompName 150 AnchorSideTop.Side = asrBottom 151 AnchorSideRight.Control = GroupBox1 152 AnchorSideRight.Side = asrBottom 153 Left = 255 154 Height = 27 155 Top = 80 156 Width = 247 157 Anchors = [akTop, akLeft, akRight] 158 BorderSpacing.Top = 6 159 BorderSpacing.Right = 6 160 ItemHeight = 0 161 Items.Strings = ( 162 'String' 163 'Integer' 164 'SmallInt' 165 'Word' 166 'Float' 167 'Currency' 168 'Boolean' 169 'Date' 170 'Time' 171 'DateTime' 172 'Blob' 173 'Memo' 174 'Graphic' 175 'LargeInt' 176 ) 177 OnChange = SelectTypeChange 178 Style = csDropDownList 179 TabOrder = 2 180 end 181 object EditSize: TEdit 182 AnchorSideLeft.Control = Label8 183 AnchorSideLeft.Side = asrBottom 184 AnchorSideTop.Control = SelectType 185 AnchorSideTop.Side = asrBottom 186 AnchorSideRight.Control = GroupBox1 187 AnchorSideRight.Side = asrBottom 188 Left = 255 189 Height = 31 190 Top = 113 191 Width = 247 192 Anchors = [akTop, akLeft, akRight] 193 BorderSpacing.Top = 6 194 BorderSpacing.Right = 6 195 BorderSpacing.Bottom = 6 196 Color = clBtnFace 197 Enabled = False 198 TabOrder = 3 199 end 200 object Label7: TLabel 201 AnchorSideLeft.Control = GroupBox1 202 AnchorSideBottom.Control = EditCompName 203 AnchorSideBottom.Side = asrBottom 204 Left = 6 205 Height = 19 206 Top = 55 207 Width = 123 208 Anchors = [akLeft, akBottom] 209 BorderSpacing.Left = 6 210 Caption = 'Co&mponent Name:' 211 FocusControl = EditCompName 212 ParentColor = False 213 end 214 object EditCompName: TEdit 215 AnchorSideLeft.Control = Label8 216 AnchorSideLeft.Side = asrBottom 217 AnchorSideTop.Control = EditName 218 AnchorSideTop.Side = asrBottom 219 AnchorSideRight.Control = GroupBox1 220 AnchorSideRight.Side = asrBottom 221 Left = 255 222 Height = 31 223 Top = 43 224 Width = 247 225 Anchors = [akTop, akLeft, akRight] 226 BorderSpacing.Top = 6 227 BorderSpacing.Right = 6 228 OnChange = EditCompNameChange 229 ParentShowHint = False 230 ShowHint = True 231 TabOrder = 1 232 end 233 object Label8: TLabel 234 AnchorSideLeft.Control = GroupBox1 235 AnchorSideLeft.Side = asrCenter 236 AnchorSideTop.Control = GroupBox1 237 Left = 254 238 Height = 1 239 Top = 0 240 Width = 1 241 ParentColor = False 242 end 243 end 244 object GroupBox2: TGroupBox 245 Left = 0 246 Height = 174 247 Top = 74 248 Width = 510 249 Align = alTop 250 AutoSize = True 251 Caption = 'Lookup definition' 252 ClientHeight = 154 253 ClientWidth = 508 254 TabOrder = 3 255 object Label4: TLabel 256 AnchorSideLeft.Control = GroupBox2 257 AnchorSideBottom.Control = SelectKeyFields 258 AnchorSideBottom.Side = asrBottom 259 Left = 6 260 Height = 19 261 Top = 18 262 Width = 63 263 Anchors = [akLeft, akBottom] 264 BorderSpacing.Left = 6 265 Caption = '&Key fields' 266 FocusControl = SelectKeyFields 267 ParentColor = False 268 end 269 object Label5: TLabel 270 AnchorSideLeft.Control = GroupBox2 271 AnchorSideBottom.Control = SelectLookupKeys 272 AnchorSideBottom.Side = asrBottom 273 Left = 6 274 Height = 19 275 Top = 92 276 Width = 79 277 Anchors = [akLeft, akBottom] 278 BorderSpacing.Left = 6 279 Caption = 'L&ookup keys' 280 FocusControl = SelectLookupKeys 281 ParentColor = False 282 end 283 object Label6: TLabel 284 AnchorSideLeft.Control = GroupBox2 285 AnchorSideBottom.Control = SelectResultField 286 AnchorSideBottom.Side = asrBottom 287 Left = 6 288 Height = 19 289 Top = 129 290 Width = 84 291 Anchors = [akLeft, akBottom] 292 BorderSpacing.Left = 6 293 Caption = '&Result Fields' 294 FocusControl = SelectResultField 295 ParentColor = False 296 end 297 object Label10: TLabel 298 AnchorSideLeft.Control = GroupBox2 299 AnchorSideBottom.Control = DataSetsCombo 300 AnchorSideBottom.Side = asrBottom 301 Left = 6 302 Height = 19 303 Top = 55 304 Width = 52 305 Anchors = [akLeft, akBottom] 306 BorderSpacing.Left = 6 307 Caption = 'Dataset' 308 ParentColor = False 309 end 310 object SelectKeyFields: TComboBox 311 AnchorSideLeft.Control = Label9 312 AnchorSideLeft.Side = asrBottom 313 AnchorSideTop.Control = GroupBox2 314 AnchorSideRight.Control = GroupBox2 315 AnchorSideRight.Side = asrBottom 316 Left = 255 317 Height = 31 318 Top = 6 319 Width = 247 320 Anchors = [akTop, akLeft, akRight] 321 BorderSpacing.Top = 6 322 BorderSpacing.Right = 6 323 ItemHeight = 0 324 OnChange = SelectKeyFieldsChange 325 ParentShowHint = False 326 ShowHint = True 327 TabOrder = 0 328 end 329 object SelectLookupKeys: TComboBox 330 AnchorSideLeft.Control = DataSetsCombo 331 AnchorSideTop.Control = DataSetsCombo 332 AnchorSideTop.Side = asrBottom 333 AnchorSideRight.Control = GroupBox2 334 AnchorSideRight.Side = asrBottom 335 Left = 255 336 Height = 31 337 Top = 80 338 Width = 247 339 Anchors = [akTop, akLeft, akRight] 340 BorderSpacing.Top = 6 341 BorderSpacing.Right = 6 342 Enabled = False 343 ItemHeight = 0 344 OnChange = SelectLookupKeysChange 345 TabOrder = 2 346 end 347 object SelectResultField: TComboBox 348 AnchorSideLeft.Control = Label9 349 AnchorSideTop.Control = SelectLookupKeys 350 AnchorSideTop.Side = asrBottom 351 AnchorSideRight.Control = GroupBox2 352 AnchorSideRight.Side = asrBottom 353 Left = 254 354 Height = 31 355 Top = 117 356 Width = 248 357 Anchors = [akTop, akLeft, akRight] 358 BorderSpacing.Top = 6 359 BorderSpacing.Right = 6 360 BorderSpacing.Bottom = 6 361 Enabled = False 362 ItemHeight = 0 363 OnChange = SelectResultFieldChange 364 TabOrder = 3 365 end 366 object DataSetsCombo: TComboBox 367 AnchorSideLeft.Control = Label9 368 AnchorSideLeft.Side = asrBottom 369 AnchorSideTop.Control = SelectKeyFields 370 AnchorSideTop.Side = asrBottom 371 AnchorSideRight.Control = GroupBox2 372 AnchorSideRight.Side = asrBottom 373 Left = 255 374 Height = 31 375 Top = 43 376 Width = 247 377 Anchors = [akTop, akLeft, akRight] 378 BorderSpacing.Top = 6 379 BorderSpacing.Right = 6 380 ItemHeight = 0 381 OnChange = DataSetsComboChange 382 ParentShowHint = False 383 ShowHint = True 384 Style = csDropDownList 385 TabOrder = 1 386 end 387 object Label9: TLabel 388 AnchorSideLeft.Control = GroupBox2 389 AnchorSideLeft.Side = asrCenter 390 AnchorSideTop.Control = GroupBox2 391 Left = 254 392 Height = 1 393 Top = 0 394 Width = 1 395 ParentColor = False 396 end 397 end 398end 399