1object DefinesGuiForm: TDefinesGuiForm 2 Left = 305 3 Height = 326 4 Top = 265 5 Width = 341 6 BorderIcons = [biSystemMenu] 7 Caption = 'Defines' 8 ClientHeight = 326 9 ClientWidth = 341 10 OnCreate = FormCreate 11 OnDestroy = FormDestroy 12 OnShow = FormShow 13 Position = poScreenCenter 14 LCLVersion = '1.5' 15 object gbNewDefine: TGroupBox 16 Left = 6 17 Height = 73 18 Top = 6 19 Width = 329 20 Align = alTop 21 AutoSize = True 22 BorderSpacing.Around = 6 23 Caption = 'gbNewDefine' 24 ClientHeight = 57 25 ClientWidth = 327 26 TabOrder = 0 27 object AddBtn: TBitBtn 28 AnchorSideTop.Control = RemoveBtn 29 AnchorSideRight.Control = RemoveBtn 30 Left = 165 31 Height = 27 32 Top = 27 33 Width = 75 34 Anchors = [akTop, akRight] 35 AutoSize = True 36 BorderSpacing.Right = 6 37 Caption = '&Add' 38 Constraints.MinHeight = 25 39 Constraints.MinWidth = 75 40 OnClick = AddBtnClick 41 TabOrder = 0 42 end 43 object RemoveBtn: TBitBtn 44 AnchorSideLeft.Side = asrBottom 45 AnchorSideTop.Control = edDefine 46 AnchorSideTop.Side = asrBottom 47 AnchorSideRight.Control = edDefine 48 AnchorSideRight.Side = asrBottom 49 Left = 246 50 Height = 27 51 Top = 27 52 Width = 75 53 Anchors = [akTop, akRight] 54 AutoSize = True 55 BorderSpacing.Top = 6 56 BorderSpacing.Bottom = 3 57 Caption = '&Remove' 58 Constraints.MinHeight = 25 59 Constraints.MinWidth = 75 60 OnClick = RemoveBtnClick 61 TabOrder = 1 62 end 63 object edDefine: TEdit 64 AnchorSideTop.Side = asrBottom 65 Left = 6 66 Height = 21 67 Top = 0 68 Width = 315 69 Align = alTop 70 BorderSpacing.Left = 6 71 BorderSpacing.Right = 6 72 BorderSpacing.Bottom = 6 73 OnChange = EditChange 74 TabOrder = 2 75 end 76 end 77 object DefinesCheckList: TCheckListBox 78 Left = 6 79 Height = 187 80 Top = 85 81 Width = 329 82 Align = alClient 83 Anchors = [akTop, akBottom] 84 BorderSpacing.Around = 6 85 ItemHeight = 0 86 OnClick = DefinesCheckListClick 87 OnDblClick = DefinesCheckListDblClick 88 OnKeyDown = DefinesCheckListKeyDown 89 TabOrder = 1 90 TopIndex = -1 91 end 92 object ButtonPanel: TButtonPanel 93 Left = 6 94 Height = 42 95 Top = 278 96 Width = 329 97 OKButton.Name = 'OKButton' 98 OKButton.DefaultCaption = True 99 HelpButton.Name = 'HelpButton' 100 HelpButton.DefaultCaption = True 101 HelpButton.OnClick = HelpButtonClick 102 CloseButton.Name = 'CloseButton' 103 CloseButton.DefaultCaption = True 104 CancelButton.Name = 'CancelButton' 105 CancelButton.DefaultCaption = True 106 TabOrder = 2 107 ShowButtons = [pbOK, pbCancel, pbHelp] 108 end 109end 110