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