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
|
object frEvForm: TfrEvForm
Left = 422
Height = 391
Top = 123
Width = 521
HorzScrollBar.Page = 328
VertScrollBar.Page = 330
ActiveControl = VarList
BorderIcons = [biSystemMenu, biHelp]
Caption = 'Variables editor'
ClientHeight = 391
ClientWidth = 521
OnCreate = FormCreate
Position = poScreenCenter
ShowHint = True
LCLVersion = '0.9.29'
object SB1: TSpeedButton
AnchorSideLeft.Control = Button3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button3
AnchorSideBottom.Control = Button3
AnchorSideBottom.Side = asrBottom
Left = 94
Height = 85
Hint = 'Copy variables'
Top = 300
Width = 25
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 6
Color = clBtnFace
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000C30E0000C30E00001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777000000
00077777778BBBBBBB077777778B00000B077000008BBBBBBB0778FFFF8B0000
0B0778F0008BBBBBBB0778FFFF8B00000B0778F0008BBBBBBB0778FFFF8B00B0
000778F0008BBBB0F07778FFFF8BBBB0077778F00F888880777778FFFF0F0777
777778FFFF007777777778888807777777777777777777777777
}
NumGlyphs = 0
OnClick = SB1Click
end
object SB2: TSpeedButton
AnchorSideLeft.Control = SB1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button3
AnchorSideBottom.Control = Button3
AnchorSideBottom.Side = asrBottom
Left = 119
Height = 85
Hint = 'Paste variables'
Top = 300
Width = 25
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
Color = clBtnFace
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000C30E0000C30E00001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777000000
00077700008BBBBBBB0778FFFF8B00000B0778FFFF8BBBBBBB0778FFFF8B0000
0B0778FFFF8BBBBBBB0778FFFF8B00000B0778FFFF8BBBBBBB0778FFFF8B00B0
000778FFFF8BBBB0F07778F0008BBBB0077778F0FF888880077778FF0F00F0FF
0777778880FF0888777777777000077777777777777777777777
}
NumGlyphs = 0
OnClick = SB2Click
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Label3
Left = 0
Height = 2
Top = 302
Width = 521
Anchors = [akLeft, akRight, akBottom]
Shape = bsTopLine
end
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 16
Top = 6
Width = 52
BorderSpacing.Around = 6
Caption = '&Variable'
FocusControl = VarCombo
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner
Left = 242
Height = 16
Top = 6
Width = 36
BorderSpacing.Top = 6
Caption = 'Va&lue'
FocusControl = ValCombo
ParentColor = False
end
object Label3: TLabel
AnchorSideBottom.Control = Edit1
Left = 4
Height = 16
Top = 304
Width = 70
Anchors = [akLeft, akBottom]
Caption = '&Expression'
FocusControl = Edit1
ParentColor = False
end
object VarCombo: TComboBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label2
Left = 6
Height = 29
Top = 28
Width = 230
HelpContext = 69
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Enabled = False
ItemHeight = 0
OnChange = VarComboClick
OnClick = VarComboClick
Style = csDropDownList
TabOrder = 0
end
object VarList: TListBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = VarCombo
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label2
AnchorSideBottom.Control = Bevel1
Left = 6
Height = 233
Top = 63
Width = 230
HelpContext = 78
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClickOnSelChange = False
ItemHeight = 0
OnClick = VarListClick
TabOrder = 1
TopIndex = -1
end
object ValCombo: TComboBox
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 248
Height = 29
Top = 28
Width = 267
HelpContext = 87
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Enabled = False
ItemHeight = 0
OnChange = ValComboClick
OnClick = ValComboClick
Style = csDropDownList
TabOrder = 2
end
object ValList: TListBox
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = VarCombo
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel1
Left = 248
Height = 233
Top = 63
Width = 267
HelpContext = 93
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClickOnSelChange = False
ItemHeight = 0
OnClick = ValListClick
OnExit = Edit1Exit
TabOrder = 3
TopIndex = -1
end
object Edit1: TEdit
AnchorSideBottom.Control = ButtonPanel1
Left = 4
Height = 21
Top = 320
Width = 512
HelpContext = 104
Anchors = [akLeft, akRight, akBottom]
OnExit = Edit1Exit
TabOrder = 4
end
object Button3: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 85
Top = 300
Width = 84
HelpContext = 114
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 12
Caption = 'Va&riables...'
OnClick = Button3Click
TabOrder = 5
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 38
Top = 347
Width = 509
OKButton.Name = 'OKButton'
HelpButton.Name = 'HelpButton'
CloseButton.Name = 'CloseButton'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
TabOrder = 6
ShowButtons = [pbOK, pbCancel, pbHelp]
end
end
|
