1object ExampleManagerForm: TExampleManagerForm 2 Left = 356 3 Height = 495 4 Top = 130 5 Width = 870 6 ActiveControl = ProjectFilter 7 Caption = 'ExampleManagerForm' 8 ClientHeight = 495 9 ClientWidth = 870 10 OnClose = FormClose 11 OnCreate = FormCreate 12 Position = poScreenCenter 13 LCLVersion = '2.1.0.0' 14 object ProjectsGroupBox: TGroupBox 15 Left = 0 16 Height = 331 17 Top = 123 18 Width = 457 19 Align = alClient 20 BorderSpacing.Top = 3 21 Caption = 'Projects' 22 ClientHeight = 312 23 ClientWidth = 453 24 TabOrder = 1 25 object ProjectsListBox: TListBox 26 AnchorSideLeft.Control = ProjectsGroupBox 27 AnchorSideTop.Control = ProjectFilter 28 AnchorSideTop.Side = asrBottom 29 AnchorSideRight.Control = ProjectsGroupBox 30 AnchorSideRight.Side = asrBottom 31 AnchorSideBottom.Control = ProjectsGroupBox 32 AnchorSideBottom.Side = asrBottom 33 Left = 6 34 Height = 272 35 Top = 34 36 Width = 441 37 Anchors = [akTop, akLeft, akRight, akBottom] 38 BorderSpacing.Around = 6 39 ItemHeight = 0 40 MultiSelect = True 41 OnSelectionChange = ProjectsListBoxSelectionChange 42 ScrollWidth = 439 43 TabOrder = 2 44 TopIndex = -1 45 end 46 object ProjectFilter: TListFilterEdit 47 AnchorSideLeft.Control = ProjectsListBox 48 Left = 6 49 Height = 27 50 Top = 1 51 Width = 221 52 OnAfterFilter = ProjectFilterAfterFilter 53 ButtonWidth = 23 54 NumGlyphs = 1 55 MaxLength = 0 56 TabOrder = 0 57 FilteredListbox = ProjectsListBox 58 end 59 object cbRelativePath: TCheckBox 60 AnchorSideLeft.Control = ProjectFilter 61 AnchorSideLeft.Side = asrBottom 62 AnchorSideTop.Control = ProjectFilter 63 AnchorSideTop.Side = asrCenter 64 Left = 252 65 Height = 24 66 Top = 2 67 Width = 121 68 BorderSpacing.Left = 25 69 Caption = 'Relative paths' 70 OnClick = cbRelativePathClick 71 TabOrder = 1 72 end 73 end 74 object ButtonPanel1: TButtonPanel 75 Left = 6 76 Height = 29 77 Top = 460 78 Width = 858 79 OKButton.Name = 'OKButton' 80 OKButton.DefaultCaption = True 81 HelpButton.Name = 'HelpButton' 82 HelpButton.DefaultCaption = True 83 CloseButton.Name = 'CloseButton' 84 CloseButton.DefaultCaption = True 85 CancelButton.Name = 'CancelButton' 86 CancelButton.DefaultCaption = True 87 TabOrder = 4 88 ShowButtons = [pbClose, pbHelp] 89 ShowBevel = False 90 end 91 object ActionGroupBox: TGroupBox 92 AnchorSideLeft.Side = asrBottom 93 Left = 465 94 Height = 331 95 Top = 123 96 Width = 405 97 Align = alRight 98 Anchors = [] 99 BorderSpacing.Left = 3 100 BorderSpacing.Top = 3 101 Caption = 'Action' 102 ClientHeight = 312 103 ClientWidth = 401 104 TabOrder = 2 105 object OpenSelectedButton: TBitBtn 106 AnchorSideLeft.Control = ActionGroupBox 107 AnchorSideTop.Control = ActionGroupBox 108 AnchorSideRight.Control = lblCenter 109 Left = 6 110 Height = 29 111 Top = 6 112 Width = 188 113 Anchors = [akTop, akLeft, akRight] 114 AutoSize = True 115 BorderSpacing.Around = 6 116 Caption = 'Open First Selected' 117 Enabled = False 118 OnClick = OpenSelectedButtonClick 119 TabOrder = 0 120 end 121 object BuildAllSelectedButton: TBitBtn 122 AnchorSideLeft.Control = ActionGroupBox 123 AnchorSideTop.Control = OpenSelectedButton 124 AnchorSideTop.Side = asrBottom 125 AnchorSideRight.Control = lblCenter 126 AnchorSideRight.Side = asrBottom 127 Left = 6 128 Height = 29 129 Top = 47 130 Width = 189 131 Anchors = [akTop, akLeft, akRight] 132 AutoSize = True 133 BorderSpacing.Top = 6 134 BorderSpacing.Around = 6 135 Caption = 'Build All Selected' 136 Enabled = False 137 OnClick = BuildAllSelectedButtonClick 138 TabOrder = 2 139 Visible = False 140 end 141 object SelectAllButton: TBitBtn 142 AnchorSideLeft.Control = lblCenter 143 AnchorSideLeft.Side = asrBottom 144 AnchorSideTop.Control = ActionGroupBox 145 AnchorSideRight.Control = ActionGroupBox 146 AnchorSideRight.Side = asrBottom 147 Left = 207 148 Height = 29 149 Top = 6 150 Width = 188 151 Anchors = [akTop, akLeft, akRight] 152 AutoSize = True 153 BorderSpacing.Around = 6 154 Caption = 'Select All' 155 OnClick = SelectAllButtonClick 156 TabOrder = 1 157 end 158 object SelectNoneButton: TBitBtn 159 AnchorSideLeft.Control = lblCenter 160 AnchorSideLeft.Side = asrBottom 161 AnchorSideTop.Control = SelectAllButton 162 AnchorSideTop.Side = asrBottom 163 AnchorSideRight.Control = ActionGroupBox 164 AnchorSideRight.Side = asrBottom 165 Left = 207 166 Height = 29 167 Top = 47 168 Width = 188 169 Anchors = [akTop, akLeft, akRight] 170 AutoSize = True 171 BorderSpacing.Top = 6 172 BorderSpacing.Around = 6 173 Caption = 'Select None' 174 Enabled = False 175 OnClick = SelectNoneButtonClick 176 TabOrder = 3 177 end 178 object DescriptionMemo: TMemo 179 AnchorSideLeft.Control = ActionGroupBox 180 AnchorSideTop.Control = SelectNoneButton 181 AnchorSideTop.Side = asrBottom 182 AnchorSideRight.Control = ActionGroupBox 183 AnchorSideRight.Side = asrBottom 184 AnchorSideBottom.Control = ActionGroupBox 185 AnchorSideBottom.Side = asrBottom 186 Left = 6 187 Height = 224 188 Top = 82 189 Width = 389 190 Anchors = [akTop, akLeft, akRight, akBottom] 191 BorderSpacing.Around = 6 192 ReadOnly = True 193 ScrollBars = ssAutoBoth 194 TabOrder = 4 195 end 196 object lblCenter: TLabel 197 AnchorSideLeft.Control = ActionGroupBox 198 AnchorSideLeft.Side = asrCenter 199 AnchorSideTop.Control = ActionGroupBox 200 Left = 200 201 Height = 1 202 Top = 0 203 Width = 1 204 ParentColor = False 205 end 206 end 207 object SelectPanel: TPanel 208 Left = 0 209 Height = 120 210 Top = 0 211 Width = 870 212 Align = alTop 213 BevelOuter = bvNone 214 ClientHeight = 120 215 ClientWidth = 870 216 TabOrder = 0 217 object cbIncludeAllDirs: TCheckBox 218 AnchorSideTop.Control = edRootDirectory 219 AnchorSideTop.Side = asrBottom 220 AnchorSideRight.Control = edRootDirectory 221 AnchorSideRight.Side = asrBottom 222 Left = 270 223 Height = 24 224 Top = 54 225 Width = 194 226 Anchors = [akTop, akRight] 227 BorderSpacing.Top = 3 228 Caption = 'Include all subdirectories' 229 OnClick = cbIncludeAllDirsClick 230 TabOrder = 1 231 end 232 object edRootDirectory: TDirectoryEdit 233 AnchorSideLeft.Control = lbRootDirectory 234 AnchorSideTop.Side = asrBottom 235 AnchorSideRight.Side = asrBottom 236 Left = 8 237 Height = 27 238 Top = 24 239 Width = 456 240 ShowHidden = False 241 ButtonWidth = 23 242 NumGlyphs = 1 243 Anchors = [akTop, akLeft, akRight] 244 BorderSpacing.Top = 7 245 MaxLength = 0 246 TabOrder = 0 247 OnChange = edRootDirectoryChange 248 end 249 object cgIncludedDirs: TCheckGroup 250 AnchorSideBottom.Control = SelectPanel 251 AnchorSideBottom.Side = asrBottom 252 Left = 496 253 Height = 115 254 Top = 5 255 Width = 369 256 Anchors = [akTop, akRight, akBottom] 257 AutoFill = True 258 Caption = 'Include subdirectories' 259 ChildSizing.LeftRightSpacing = 6 260 ChildSizing.TopBottomSpacing = 6 261 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 262 ChildSizing.EnlargeVertical = crsHomogenousChildResize 263 ChildSizing.ShrinkHorizontal = crsScaleChilds 264 ChildSizing.ShrinkVertical = crsScaleChilds 265 ChildSizing.Layout = cclLeftToRightThenTopToBottom 266 ChildSizing.ControlsPerLine = 4 267 ClientHeight = 96 268 ClientWidth = 365 269 Columns = 4 270 Items.Strings = ( 271 'example' 272 'sample' 273 'demo' 274 'test' 275 'examples' 276 'samples' 277 'demos' 278 'tests' 279 ) 280 OnItemClick = cgIncludedDirsItemClick 281 TabOrder = 2 282 Data = { 283 080000000202020202020202 284 } 285 end 286 object lbRootDirectory: TLabel 287 Left = 8 288 Height = 17 289 Top = 8 290 Width = 99 291 Caption = 'Root Directory' 292 ParentColor = False 293 end 294 object lbProjectCount: TLabel 295 AnchorSideLeft.Control = edRootDirectory 296 AnchorSideBottom.Control = SelectPanel 297 AnchorSideBottom.Side = asrBottom 298 Left = 8 299 Height = 17 300 Top = 92 301 Width = 102 302 Anchors = [akLeft, akBottom] 303 BorderSpacing.Bottom = 11 304 Caption = 'lbProjectCount' 305 ParentColor = False 306 end 307 end 308 object Splitter1: TSplitter 309 Left = 457 310 Height = 334 311 Top = 120 312 Width = 5 313 Align = alRight 314 ResizeAnchor = akRight 315 end 316end 317