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