1object EncloseIfDefForm: TEncloseIfDefForm 2 Left = 415 3 Height = 384 4 Top = 298 5 Width = 374 6 ActiveControl = FirstTest 7 BorderIcons = [biSystemMenu] 8 Caption = 'Conditional Defines' 9 ClientHeight = 384 10 ClientWidth = 374 11 OnCreate = CondFormCREATE 12 OnShow = FormShow 13 Position = poScreenCenter 14 LCLVersion = '1.5' 15 object NewTestGroupBox: TGroupBox 16 Left = 6 17 Height = 163 18 Top = 6 19 Width = 362 20 Align = alTop 21 AutoSize = True 22 BorderSpacing.Around = 6 23 Caption = 'NewTestGroupBox' 24 ClientHeight = 147 25 ClientWidth = 360 26 TabOrder = 0 27 object FirstLabel: TLabel 28 Left = 6 29 Height = 15 30 Top = 6 31 Width = 348 32 Align = alTop 33 BorderSpacing.Around = 6 34 Caption = '&First test' 35 ParentColor = False 36 end 37 object SecondLabel: TLabel 38 AnchorSideTop.Side = asrBottom 39 Left = 6 40 Height = 15 41 Top = 60 42 Width = 348 43 Align = alTop 44 BorderSpacing.Around = 6 45 Caption = '&Second test' 46 ParentColor = False 47 end 48 object FirstTest: TComboBox 49 AnchorSideTop.Side = asrBottom 50 Left = 6 51 Height = 27 52 Top = 27 53 Width = 348 54 Align = alTop 55 BorderSpacing.Around = 6 56 ItemHeight = 0 57 ItemIndex = 0 58 Items.Strings = ( 59 'MSWINDOWS' 60 'UNIX' 61 'LINUX' 62 'WIN32' 63 'CLX_' 64 'LCL_' 65 'VCL_' 66 'FPC' 67 'KYLIX' 68 'VER1_0' 69 ) 70 OnChange = TestEditChange 71 TabOrder = 0 72 Text = 'MSWINDOWS' 73 end 74 object SecondTest: TComboBox 75 AnchorSideTop.Side = asrBottom 76 Left = 6 77 Height = 27 78 Top = 81 79 Width = 348 80 Align = alTop 81 BorderSpacing.Around = 6 82 ItemHeight = 0 83 ItemIndex = 0 84 Items.Strings = ( 85 'NONE' 86 'ELSE' 87 ) 88 OnChange = TestEditChange 89 TabOrder = 1 90 Text = 'NONE' 91 end 92 object AddBtn: TBitBtn 93 AnchorSideTop.Control = SecondTest 94 AnchorSideTop.Side = asrBottom 95 AnchorSideRight.Control = AddInverse 96 Left = 108 97 Height = 27 98 Top = 114 99 Width = 75 100 Anchors = [akTop, akRight] 101 AutoSize = True 102 BorderSpacing.Around = 6 103 Caption = '&Add' 104 Constraints.MinHeight = 25 105 Constraints.MinWidth = 75 106 OnClick = AddBtnClick 107 TabOrder = 2 108 end 109 object RemoveBtn: TBitBtn 110 AnchorSideLeft.Side = asrBottom 111 AnchorSideTop.Control = SecondTest 112 AnchorSideTop.Side = asrBottom 113 AnchorSideRight.Control = NewTestGroupBox 114 AnchorSideRight.Side = asrBottom 115 Left = 279 116 Height = 27 117 Top = 114 118 Width = 75 119 Anchors = [akTop, akRight] 120 AutoSize = True 121 BorderSpacing.Around = 6 122 Caption = '&Remove' 123 Constraints.MinHeight = 25 124 Constraints.MinWidth = 75 125 OnClick = RemoveBtnClick 126 TabOrder = 4 127 end 128 object AddInverse: TBitBtn 129 AnchorSideLeft.Side = asrBottom 130 AnchorSideTop.Control = SecondTest 131 AnchorSideTop.Side = asrBottom 132 AnchorSideRight.Control = RemoveBtn 133 Left = 189 134 Height = 27 135 Top = 114 136 Width = 84 137 HelpType = htKeyword 138 Anchors = [akTop, akRight] 139 AutoSize = True 140 BorderSpacing.Around = 6 141 Caption = 'Add Inverse' 142 Constraints.MinHeight = 25 143 Constraints.MinWidth = 75 144 OnClick = AddInverseCLICK 145 TabOrder = 3 146 end 147 end 148 object ListBox: TListBox 149 Left = 6 150 Height = 163 151 Top = 175 152 Width = 362 153 Align = alClient 154 Anchors = [akTop] 155 BorderSpacing.Around = 6 156 ItemHeight = 0 157 OnClick = ListBoxClick 158 OnDblClick = ListBoxDblClick 159 OnKeyDown = ListBoxKeyDown 160 ScrollWidth = 360 161 TabOrder = 1 162 TopIndex = -1 163 end 164 object ButtonPanel1: TButtonPanel 165 Left = 6 166 Height = 34 167 Top = 344 168 Width = 362 169 OKButton.Name = 'OKButton' 170 OKButton.DefaultCaption = True 171 OKButton.OnClick = OKButtonClick 172 HelpButton.Name = 'HelpButton' 173 HelpButton.DefaultCaption = True 174 HelpButton.OnClick = HelpButtonClick 175 CloseButton.Name = 'CloseButton' 176 CloseButton.DefaultCaption = True 177 CloseButton.OnClick = btnSaveClick 178 CancelButton.Name = 'CancelButton' 179 CancelButton.DefaultCaption = True 180 TabOrder = 2 181 ShowBevel = False 182 end 183end 184