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
312
313
314
315
316
317
318
319
|
object MouseaActionDialog: TMouseaActionDialog
Left = 412
Height = 449
Top = 225
Width = 627
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'MouseaActionDialog'
ClientHeight = 449
ClientWidth = 627
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object BtnLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = ActionLabel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 15
Top = 159
Width = 90
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
Caption = 'BtnLabel'
ParentColor = False
end
object ActionLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ActionBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 10
Width = 90
BorderSpacing.Left = 6
Caption = 'ActionLabel'
Constraints.MinWidth = 90
ParentColor = False
end
object OptLabel: TLabel
AnchorSideLeft.Control = CaretCheck
AnchorSideTop.Control = CaretCheck
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 102
Height = 16
Top = 60
Width = 519
Anchors = [akTop, akLeft, akRight]
AutoSize = False
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = ' '
ParentColor = False
end
object PriorLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = PriorSpin
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 109
Width = 53
BorderSpacing.Left = 6
Caption = 'PriorLabel'
ParentColor = False
end
object CapturePanel: TPanel
AnchorSideLeft.Control = chkUpRestrict
AnchorSideTop.Control = chkUpRestrict
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = chkUpRestrict
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 255
Height = 68
Top = 335
Width = 368
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvLowered
BevelWidth = 2
ClientHeight = 68
ClientWidth = 368
Color = clBtnShadow
ParentColor = False
TabOrder = 13
OnMouseDown = CapturePanelMouseDown
object PaintBox1: TPaintBox
Left = 2
Height = 64
Top = 2
Width = 364
Align = alClient
Anchors = [akTop, akRight, akBottom]
OnMouseDown = CapturePanelMouseDown
OnMouseWheel = PaintBox1MouseWheel
OnMouseWheelHorz = PaintBox1MouseWheelHorz
end
end
object ShiftCheck: TCheckBox
AnchorSideLeft.Control = DirCheck
AnchorSideTop.Control = DirCheck
AnchorSideTop.Side = asrBottom
Left = 102
Height = 19
Top = 236
Width = 77
AllowGrayed = True
Caption = 'ShiftCheck'
TabOrder = 8
end
object AltCheck: TCheckBox
AnchorSideLeft.Control = ShiftCheck
AnchorSideTop.Control = ShiftCheck
AnchorSideTop.Side = asrBottom
Left = 102
Height = 19
Top = 255
Width = 68
AllowGrayed = True
Caption = 'AltCheck'
TabOrder = 9
end
object CtrlCheck: TCheckBox
AnchorSideLeft.Control = AltCheck
AnchorSideTop.Control = AltCheck
AnchorSideTop.Side = asrBottom
Left = 102
Height = 19
Top = 274
Width = 72
AllowGrayed = True
Caption = 'CtrlCheck'
TabOrder = 10
end
object BtnDefault: TButton
AnchorSideLeft.Control = CtrlCheck
AnchorSideTop.Control = CtrlCheck
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 102
Height = 25
Top = 299
Width = 82
AutoSize = True
BorderSpacing.Top = 6
Caption = 'BtnDefault'
OnClick = BtnDefaultClick
TabOrder = 11
end
object CaretCheck: TCheckBox
AnchorSideLeft.Control = ActionBox
AnchorSideTop.Control = ActionBox
AnchorSideTop.Side = asrBottom
Left = 102
Height = 19
Top = 35
Width = 81
BorderSpacing.Top = 6
Caption = 'CaretCheck'
TabOrder = 1
end
object ActionBox: TComboBox
AnchorSideLeft.Control = ActionLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 102
Height = 23
Top = 6
Width = 519
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 15
OnChange = ActionBoxChange
Style = csDropDownList
TabOrder = 0
end
object ButtonPanel1: TButtonPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 34
Top = 409
Width = 615
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 = 14
ShowButtons = [pbOK, pbCancel]
end
object OptBox: TComboBox
AnchorSideLeft.Control = OptLabel
AnchorSideTop.Control = OptLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 102
Height = 23
Top = 76
Width = 519
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
Enabled = False
ItemHeight = 15
Style = csDropDownList
TabOrder = 2
end
object PriorSpin: TSpinEdit
AnchorSideLeft.Control = OptLabel
AnchorSideTop.Control = OptBox
AnchorSideTop.Side = asrBottom
Left = 102
Height = 23
Top = 105
Width = 60
BorderSpacing.Top = 6
MaxValue = 3
TabOrder = 3
end
object Opt2Spin: TSpinEdit
AnchorSideLeft.Control = OptLabel
AnchorSideTop.Control = OptBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 561
Height = 23
Top = 105
Width = 60
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
MaxValue = 999
TabOrder = 4
end
object Opt2Label: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Opt2Spin
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Opt2Spin
Left = 501
Height = 15
Top = 109
Width = 54
Anchors = [akTop, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Opt2Label'
ParentColor = False
end
object chkUpRestrict: TCheckListBox
AnchorSideLeft.Control = ButtonBox
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = BtnDefault
Left = 255
Height = 170
Top = 159
Width = 368
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 12
end
object ButtonBox: TComboBox
AnchorSideLeft.Control = PriorSpin
AnchorSideTop.Control = chkUpRestrict
AnchorSideRight.Control = chkUpRestrict
Left = 102
Height = 23
Top = 159
Width = 147
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
OnChange = ButtonBoxChange
Style = csDropDownList
TabOrder = 5
end
object ClickBox: TComboBox
AnchorSideLeft.Control = ButtonBox
AnchorSideTop.Control = ButtonBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ButtonBox
AnchorSideRight.Side = asrBottom
Left = 102
Height = 23
Top = 188
Width = 147
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
ItemHeight = 15
Style = csDropDownList
TabOrder = 6
end
object DirCheck: TCheckBox
AnchorSideLeft.Control = ButtonBox
AnchorSideTop.Control = ClickBox
AnchorSideTop.Side = asrBottom
Left = 102
Height = 19
Top = 217
Width = 68
BorderSpacing.Top = 6
Caption = 'DirCheck'
OnChange = DirCheckChange
TabOrder = 7
end
end
|
