-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathumainform.lfm
248 lines (248 loc) · 6.46 KB
/
umainform.lfm
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
object Form1: TForm1
Left = 83
Height = 771
Top = 79
Width = 717
Caption = 'Form1'
ClientHeight = 771
ClientWidth = 717
DesignTimePPI = 113
OnCreate = _onCreate
LCLVersion = '1.9.0.0'
object ListBox1: TListBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Splitter2
AnchorSideBottom.Control = Splitter1
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 510
Top = 0
Width = 208
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
OnSelectionChange = _SelectMainItem
Options = [lboDrawFocusRect]
TabOrder = 0
end
object ListBox2: TListBox
AnchorSideLeft.Control = Splitter2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Splitter3
AnchorSideBottom.Control = Splitter1
AnchorSideBottom.Side = asrBottom
Left = 214
Height = 510
Top = 0
Width = 322
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
OnSelectionChange = SelectSubItem
Options = [lboDrawFocusRect]
TabOrder = 1
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Splitter1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 261
Top = 510
Width = 717
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Preview'
ClientHeight = 237
ClientWidth = 713
TabOrder = 2
object PaintBox1: TPaintBox
Left = 0
Height = 237
Top = 0
Width = 713
Align = alClient
OnPaint = PBpaint
end
end
object Splitter1: TSplitter
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 0
Height = 6
Top = 504
Width = 717
Align = alNone
Anchors = [akTop, akLeft, akRight]
ResizeAnchor = akBottom
end
object Splitter2: TSplitter
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = Splitter1
Left = 208
Height = 504
Top = 0
Width = 6
Align = alNone
Anchors = [akTop, akLeft, akBottom]
end
object CheckBox1: TCheckBox
AnchorSideLeft.Control = LabeledEdit1
AnchorSideTop.Control = LabeledEdit1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 547
Height = 19
Top = 51
Width = 170
Anchors = [akTop, akLeft, akRight]
AutoSize = False
Caption = 'Draw text'
Checked = True
OnChange = _dtchange
State = cbChecked
TabOrder = 5
end
object LabeledEdit1: TLabeledEdit
AnchorSideLeft.Control = Splitter3
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 547
Height = 27
Top = 24
Width = 170
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
EditLabel.AnchorSideLeft.Control = LabeledEdit1
EditLabel.AnchorSideRight.Control = LabeledEdit1
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = LabeledEdit1
EditLabel.Left = 547
EditLabel.Height = 19
EditLabel.Top = 2
EditLabel.Width = 170
EditLabel.Caption = 'GetDetailSize'
EditLabel.ParentColor = False
ReadOnly = True
TabOrder = 6
Text = 'LabeledEdit1'
end
object Splitter3: TSplitter
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = Splitter1
Left = 536
Height = 504
Top = 0
Width = 6
Align = alNone
Anchors = [akTop, akLeft, akBottom]
end
object Label1: TLabel
AnchorSideLeft.Control = LabeledEdit1
AnchorSideTop.Control = CheckBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 547
Height = 19
Top = 70
Width = 170
Anchors = [akTop, akLeft, akRight]
Caption = 'Custom size:'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = LabeledEdit1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = SpinEdit1
AnchorSideBottom.Side = asrBottom
Left = 547
Height = 27
Top = 89
Width = 40
Anchors = [akTop, akLeft, akBottom]
Caption = 'Width:'
Layout = tlCenter
ParentColor = False
end
object SpinEdit1: TSpinEdit
AnchorSideLeft.Control = SpinEdit2
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 591
Height = 27
Top = 89
Width = 126
Anchors = [akTop, akLeft, akRight]
MaxValue = 1000
MinValue = -1
OnChange = _dtchange
TabOrder = 8
Value = 100
end
object Label3: TLabel
AnchorSideLeft.Control = LabeledEdit1
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = SpinEdit2
AnchorSideBottom.Side = asrBottom
Left = 547
Height = 27
Top = 116
Width = 44
Anchors = [akTop, akLeft, akBottom]
Caption = 'Height:'
Layout = tlCenter
ParentColor = False
end
object SpinEdit2: TSpinEdit
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 591
Height = 27
Top = 116
Width = 126
Anchors = [akTop, akLeft, akRight]
MaxValue = 1000
MinValue = -1
OnChange = _dtchange
TabOrder = 9
Value = 100
end
object CheckBox2: TCheckBox
AnchorSideLeft.Control = LabeledEdit1
AnchorSideTop.Control = SpinEdit2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 547
Height = 19
Top = 143
Width = 170
Anchors = [akTop, akLeft, akRight]
AutoSize = False
Caption = 'White background'
Checked = True
OnChange = _dtchange
State = cbChecked
TabOrder = 10
end
end