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
|
object ExternalToolOptionDlg: TExternalToolOptionDlg
Left = 350
Height = 592
Top = 163
Width = 661
Caption = 'ExternalToolOptionDlg'
ClientHeight = 592
ClientWidth = 661
Constraints.MinHeight = 350
Constraints.MinWidth = 350
KeyPreview = True
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object TitleLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TitleEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 10
Width = 51
BorderSpacing.Left = 6
Caption = 'TitleLabel'
ParentColor = False
end
object FilenameLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FileNameEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 39
Width = 76
BorderSpacing.Left = 6
Caption = 'FilenameLabel'
ParentColor = False
end
object ParametersLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MemoParameters
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 102
Width = 87
BorderSpacing.Left = 6
Caption = 'ParametersLabel'
ParentColor = False
end
object WorkingDirLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = WorkingDirEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 164
Width = 88
BorderSpacing.Left = 6
Caption = 'WorkingDirLabel'
ParentColor = False
end
object TitleEdit: TEdit
AnchorSideLeft.Control = FilenameLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 112
Height = 23
Top = 6
Width = 543
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
BorderSpacing.Around = 6
TabOrder = 0
Text = 'TitleEdit'
end
object OptionsGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = WorkingDirEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 107
Top = 189
Width = 649
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'OptionsGroupBox'
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 3
ClientHeight = 87
ClientWidth = 645
TabOrder = 4
object ScanOutputForFPCMessagesCheckBox: TCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 6
Width = 232
BorderSpacing.Around = 6
Caption = 'ScanOutputForFPCMessagesCheckBox'
TabOrder = 0
end
object ScanOutputForMakeMessagesCheckBox: TCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 232
BorderSpacing.Around = 6
Caption = 'ScanOutputForMakeMessagesCheckBox'
ParentShowHint = False
TabOrder = 1
end
object ScannersButton: TButton
AnchorSideTop.Side = asrBottom
Left = 6
Height = 25
Top = 56
Width = 232
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ScannersButton'
TabOrder = 2
end
object ShowConsoleCheckBox: TCheckBox
Left = 244
Height = 19
Top = 6
Width = 144
Caption = 'ShowConsoleCheckBox'
OnChange = ShowConsoleCheckBoxChange
ParentShowHint = False
ShowHint = True
TabOrder = 3
Visible = False
end
object HideWindowCheckBox: TCheckBox
Left = 244
Height = 19
Top = 31
Width = 144
Caption = 'HideWindowCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 4
Visible = False
end
end
object KeyGroupBox: TGroupBox
AnchorSideLeft.Control = OptionsGroupBox
AnchorSideTop.Control = OptionsGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = OptionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 302
Width = 649
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'KeyGroupBox'
Constraints.MinHeight = 25
TabOrder = 5
end
object MacrosGroupbox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = KeyGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel
Left = 6
Height = 221
Top = 333
Width = 649
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'MacrosGroupbox'
ClientHeight = 201
ClientWidth = 645
TabOrder = 6
object MacrosListbox: TListBox
AnchorSideLeft.Control = MacrosGroupbox
AnchorSideTop.Control = MacrosInsertButton
AnchorSideRight.Control = MacrosInsertButton
AnchorSideBottom.Control = MacrosGroupbox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 193
Top = 2
Width = 497
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
OnClick = MacrosListboxClick
OnDblClick = MacrosListboxDblClick
ScrollWidth = 503
TabOrder = 0
end
object MacrosInsertButton: TButton
AnchorSideTop.Control = MacrosGroupbox
AnchorSideRight.Control = MacrosGroupbox
AnchorSideRight.Side = asrBottom
Left = 509
Height = 25
Top = 2
Width = 130
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 2
BorderSpacing.Right = 6
Caption = 'MacrosInsertButton'
Enabled = False
OnClick = MacrosInsertButtonClick
TabOrder = 1
end
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 26
Top = 560
Width = 649
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 7
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False
end
object MemoParameters: TMemo
AnchorSideLeft.Control = TitleEdit
AnchorSideTop.Control = FileNameEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TitleEdit
AnchorSideRight.Side = asrBottom
Left = 112
Height = 90
Top = 64
Width = 543
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
ScrollBars = ssAutoBoth
TabOrder = 2
WordWrap = False
end
object FileNameEdit: TFileNameEdit
AnchorSideLeft.Control = TitleEdit
AnchorSideTop.Control = TitleEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TitleEdit
AnchorSideRight.Side = asrBottom
Left = 112
Height = 23
Top = 35
Width = 543
DialogOptions = [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
FilterIndex = 1
HideDirectories = False
ButtonWidth = 25
NumGlyphs = 1
FocusOnButtonClick = True
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
MaxLength = 0
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object WorkingDirEdit: TDirectoryEdit
AnchorSideLeft.Control = TitleEdit
AnchorSideTop.Control = MemoParameters
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TitleEdit
AnchorSideRight.Side = asrBottom
Left = 112
Height = 23
Top = 160
Width = 543
ShowHidden = False
ButtonWidth = 25
NumGlyphs = 1
FocusOnButtonClick = True
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
MaxLength = 0
TabOrder = 3
end
end
|
