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
|
object fpWebNewHtmlTableForm: TfpWebNewHtmlTableForm
Left = 543
Height = 514
Top = 118
Width = 544
ActiveControl = edtColCount
Caption = 'New HTML table'
ClientHeight = 514
ClientWidth = 544
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.29'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 15
Top = 6
Width = 79
BorderSpacing.Around = 6
Caption = 'Column count'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = edtColCount
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 136
Height = 15
Top = 6
Width = 59
BorderSpacing.Around = 6
Caption = 'Row count'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtColCount
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 55
Width = 74
BorderSpacing.Around = 6
Caption = 'Border width'
ParentColor = False
end
object edtColCount: TSpinEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 12
Height = 22
Top = 27
Width = 118
BorderSpacing.Around = 6
OnChange = edtColCountChange
TabOrder = 0
Value = 3
end
object edtRowCount: TSpinEdit
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 142
Height = 22
Top = 27
Width = 130
BorderSpacing.Around = 6
OnChange = edtColCountChange
TabOrder = 1
Value = 3
end
object Label4: TLabel
AnchorSideLeft.Control = edtBorderWidth
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtColCount
AnchorSideTop.Side = asrBottom
Left = 126
Height = 15
Top = 55
Width = 71
BorderSpacing.Around = 6
Caption = 'Cell padding'
ParentColor = False
end
object lblCellspacing: TLabel
AnchorSideLeft.Control = edtCellpadding
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtColCount
AnchorSideTop.Side = asrBottom
Left = 222
Height = 15
Top = 55
Width = 70
BorderSpacing.Around = 6
Caption = 'Cell spacing'
ParentColor = False
end
object cbUseHeader: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtCellspacing
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 104
Width = 114
BorderSpacing.Around = 6
Caption = 'Use header row'
TabOrder = 2
end
object Label6: TLabel
AnchorSideLeft.Control = cbUseHeader
AnchorSideTop.Control = cbUseHeader
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ColorBox1
AnchorSideBottom.Side = asrBottom
Left = 12
Height = 15
Top = 134
Width = 92
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'Header bg color'
ParentColor = False
end
object ColorBox1: TColorBox
AnchorSideLeft.Control = Label6
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbUseHeader
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 110
Height = 24
Top = 131
Width = 428
Selected = clWhite
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
OnChange = ColorBox1Change
TabOrder = 3
end
object CheckBox2: TCheckBox
AnchorSideLeft.Control = edtCellspacing
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtColCount
AnchorSideTop.Side = asrBottom
Left = 318
Height = 21
Top = 55
Width = 53
BorderSpacing.Around = 6
Caption = 'Width'
TabOrder = 4
end
object edtTableWidth: TSpinEdit
AnchorSideLeft.Control = CheckBox2
AnchorSideTop.Control = lblCellspacing
AnchorSideTop.Side = asrBottom
Left = 324
Height = 22
Top = 76
Width = 108
BorderSpacing.Around = 6
MaxValue = 4000
TabOrder = 5
Value = 100
end
object cbTableWidthUnits: TComboBox
AnchorSideLeft.Control = edtTableWidth
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblCellspacing
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 438
Height = 24
Top = 76
Width = 100
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
Items.Strings = (
'Percent'
'Pixels'
)
Style = csDropDownList
TabOrder = 6
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 474
Width = 532
OKButton.Name = 'OKButton'
HelpButton.Name = 'HelpButton'
CloseButton.Name = 'CloseButton'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
TabOrder = 7
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object edtCellpadding: TSpinEdit
AnchorSideLeft.Control = Label4
AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom
Left = 132
Height = 22
Top = 76
Width = 84
BorderSpacing.Around = 6
TabOrder = 8
Value = 1
end
object edtCellspacing: TSpinEdit
AnchorSideLeft.Control = lblCellspacing
AnchorSideTop.Control = lblCellspacing
AnchorSideTop.Side = asrBottom
Left = 228
Height = 22
Top = 76
Width = 84
BorderSpacing.Around = 6
TabOrder = 9
Value = 1
end
object edtBorderWidth: TSpinEdit
AnchorSideLeft.Control = Label3
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
Left = 12
Height = 22
Top = 76
Width = 108
BorderSpacing.Around = 6
TabOrder = 10
Value = 1
end
object StringGrid1: TStringGrid
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ColorBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 307
Top = 161
Width = 532
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFillColumns = True
BorderSpacing.Around = 6
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
TabOrder = 11
ColWidths = (
105
105
105
105
108
)
end
end
|
