-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathuDataForm.dfm
More file actions
382 lines (382 loc) · 10.5 KB
/
uDataForm.dfm
File metadata and controls
382 lines (382 loc) · 10.5 KB
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
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
object DataForm: TDataForm
Left = 0
Top = 47
ActiveControl = Grid
Caption = 'Table'
ClientHeight = 491
ClientWidth = 694
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsMDIChild
Position = poDefault
Visible = True
OnCreate = FormCreate
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 694
Height = 41
Align = alTop
TabOrder = 0
ExplicitWidth = 688
DesignSize = (
694
41)
object SpeedButton2: TSpeedButton
Left = 8
Top = 8
Width = 81
Height = 25
Caption = 'Import...'
Glyph.Data = {
F6060000424DF606000000000000360000002800000018000000180000000100
180000000000C00600000000000000000000000000000000000000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FF00E5E0E1DEDADBDCD8D9DAD6D7D8D4D5D7D3D4D7D3D4D6D2D3D6D2D3D6D2
D3D6D3D2D6D3D2D6D3D2D7D4D3D8D5D4DBD8D700FF0000FF0000FF0000FF0000
FF0000FF0000FF00A1C8DB67ABC9489BC23D95C12389BB2389BB2A8FC22A8FC2
2A8FC22A8FC22A8FC22A8FC22A8FC21F84B72487B93D93BC569CBE79B1CE00FF
0000FF0000FF0000FF0000FF0000FF0071B2D23B9CC83EA1CF3A9ECD3196C731
96C7369BCD369BCD369BCD369BCD369BCD369BCD369BCD2D92C43195C6379CCA
3699C9319DD1C2DCE900FF0000FF0000FF0000FF00CCE0EC3F91B73D9BC769CF
F975DAFE75DAFE75DAFE74D9FE74D9FE74D9FE74D9FE74D9FE74D9FE74D9FE75
DAFE75DAFE77DCFE6CD1FB4DBAE974BCDE00FF0000FF0000FF0000FF00C3DCEA
3A91BB2C83AE5EC2EA75DCFE77DDFE77DCFE77DCFE77DCFE77DCFE77DCFE77DC
FE77DCFE77DCFE77DCFE77DCFE76DBFE76DBFE5BBFE745A1CC00FF0000FF0000
FF0000FF00B6D6E73397CA2980A952B2D67BE3FE7FE5FE7FE4FE7FE4FE7FE4FE
7FE4FE7FE4FE7FE4FE7FE4FE7FE4FE7FE4FE7FE4FE7FE4FE80E5FE6DD2F3379B
C9B9D4E300FF0000FF0000FF00A5CEE23398CB328BB4409CC27BE3FB84EAFE82
E8FE82E8FE82E8FE82E8FE82E8FE82E8FE82E8FE82E8FE82E8FE82E8FE82E8FE
83E9FE7BE0F946ABD58EBDD700FF0000FF0000FF00A8D0E53398CB45A2C5358D
B579DFF48FF5FE8BF1FE8BF1FE8BF1FE8BF1FE8BF1FE8BF1FE8BF1FE8BF1FE8B
F1FE8BF1FE8BF1FE8CF2FE89F0FC61C6E362A8CD00FF0000FF0000FF009FCBE3
3398CB54B4D3368DB27ADCEB99FEFE94F9FE94F9FE94F9FE94F9FE94F9FE94F9
FE94F9FE94F9FE94F9FE94F9FE94F9FE95FAFE96FBFE79DFF04AA0CA00FF0000
FF0000FF0096C6E03398CB68CDE53A92B56BC7D79CFEFE98FCFE98FCFE98FCFE
98FCFE98FCFE98FCFE98FCFE98FCFE98FCFE98FCFE98FCFE98FCFE99FDFE8AEF
F747A9CFB2D0E200FF0000FF007FBCDB3398CB71D7EA53B2CF52A6BBB8FEFEB8
FEFEB8FEFEB8FEFEB8FEFEB8FEFEB8FEFEB8FEFEB8FEFEB8FEFEB8FEFEB8FEFE
B8FEFEB9FEFEB3FAFC6EC3DE7DB5D400FF0000FF0068B1D63398CB7AE0EF63C8
E04492ACE5F3F6F8FEFEF7FEFEF6FEFEF6FEFEF6FEFEF6FEFEF6FEFEF6FEFEF6
FEFEF6FEFEF6FEFEF6FEFEF4FEFEF3FEFEBFE0EE8EC0DA00FF0000FF0049A2D0
3398CB7AE0EF70D7EA3188B157A0C2D1F4FED0F4FECFF4FECFF4FECFF4FECFF4
FECFF4FECFF4FECFF4FECFF4FECFF4FECFF4FECEF4FECDF4FEAAD5E89DC9DF00
FF0000FF0049A2D03398CB7AE0EF7AE0EF3C9CC526759F5CBAE25CBAE25BB9E1
5BB9E15BB9E15CB9E15BB9E15BB9E15BB9E15BB9E15BB9E15BB9E15BB9E15CBB
E482BDDC00FF0000FF0000FF0049A2D03398CB7AE0EF7AE0EF67CDE669CEE638
9DCA40A6D23398CB3398CB3398CB3398CB3398CB3398CB3398CB3398CB3499CB
3398CB3398CB8DC2DEBAD7E700FF0000FF0000FF007BBBDB408CB175D7E97AE0
EF7AE0EF7AE0EF7AE0EF7AE0EF3297CAA1CDE300FF0000FF0000FF0000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
72B0CF8FC5E2C0E6F2FEFEFEFEFEFEFEFEFEBEE4F06EB5D8D9E6F000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF0000FF00A3CDE53398CB3398CB3398CB3398CB3196C974B7D9C0DAEA
00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00}
OnClick = SpeedButton2Click
end
object BtnPasteAs: TSpeedButton
Left = 105
Top = 8
Width = 81
Height = 25
Caption = 'Paste...'
OnClick = BtnPasteAsClick
end
object Gauge1: TGauge
Left = 578
Top = 8
Width = 105
Height = 17
Anchors = [akTop, akRight]
ForeColor = clLime
Progress = 0
end
object Button1: TButton
Left = 304
Top = 10
Width = 75
Height = 25
Caption = 'Test add'
TabOrder = 0
OnClick = Button1Click
end
object CBAutoRecalc: TCheckBox
Left = 491
Top = 8
Width = 81
Height = 17
Anchors = [akTop, akRight]
Caption = 'AutoRecalc'
Checked = True
State = cbChecked
TabOrder = 1
OnClick = CBAutoRecalcClick
ExplicitLeft = 485
end
end
object Grid: TKGrid
Left = 0
Top = 41
Width = 694
Height = 431
Align = alClient
ColCount = 21
DefaultRowHeight = 19
MoveDirection = mdDown
Options = [goColSizing, goDrawFocusSelected, goEditing, goEnterMoves, goFixedHorzLine, goFixedVertLine, goHeader, goHeaderAlignment, goHorzLine, goIndicateHiddenCells, goIndicateSelection, goMouseOverCells, goRangeSelect, goThemes, goVertLine]
OptionsEx = [gxEnterAppendsRow, gxFixedCellClickSelect, gxTabWraps]
PopupMenu = PopupMenu1
RowCount = 10
TabOrder = 1
OnChanged = GridChanged
OnContextPopup = GridContextPopup
OnEditorCreate = GridEditorCreate
OnEditorDataToGrid = GridEditorDataToGrid
OnEditorDestroy = GridEditorDestroy
OnEditorKeyPreview = GridEditorKeyPreview
OnKeyDown = GridKeyDown
OnMouseDblClickCell = GridMouseDblClickCell
OnMouseUp = GridMouseUp
OnSelectionExpand = GridSelectionExpand
ExplicitWidth = 688
ExplicitHeight = 422
ColWidths = (
36
64
64
64
64
64
64
64
64
64
64
64
64
64
64
64
64
64
64
64
64)
RowHeights = (
35
19
19
19
19
19
19
19
19
19)
end
object GridEditor: TEdit
Left = 48
Top = 296
Width = 121
Height = 21
TabOrder = 2
Text = 'GridEditor'
Visible = False
OnChange = GridEditorChange
end
object ColHdrEditor: TPanel
Left = 88
Top = 192
Width = 249
Height = 97
TabOrder = 3
Visible = False
OnExit = ColHdrEditorExit
object Label1: TLabel
Left = 8
Top = 8
Width = 47
Height = 13
Caption = #1055#1086#1076#1087#1080#1089#1100':'
end
object Label2: TLabel
Left = 8
Top = 48
Width = 81
Height = 13
Caption = #1054#1073#1097'. '#1079#1085#1072#1095#1077#1085#1080#1077':'
end
object EditHdrCaption: TEdit
Left = 8
Top = 24
Width = 233
Height = 21
TabOrder = 0
OnKeyDown = EditHdrCaptionKeyDown
end
object EditHdrFormula: TEdit
Left = 8
Top = 64
Width = 233
Height = 21
TabOrder = 1
OnKeyDown = EditHdrCaptionKeyDown
end
end
object PasteParamsFormPanel: TPanel
Left = 136
Top = 233
Width = 489
Height = 160
TabOrder = 4
Visible = False
object Label3: TLabel
Left = 16
Top = 16
Width = 50
Height = 13
Caption = 'Delimiters:'
end
object CBDelimTab: TCheckBox
Left = 16
Top = 40
Width = 65
Height = 17
Caption = 'Tab'
Checked = True
State = cbChecked
TabOrder = 0
end
object CBDelimSpace: TCheckBox
Left = 94
Top = 40
Width = 65
Height = 17
Caption = 'Space'
Checked = True
State = cbChecked
TabOrder = 1
end
object CBDelimComma: TCheckBox
Left = 172
Top = 40
Width = 65
Height = 17
Caption = 'Comma'
Checked = True
State = cbChecked
TabOrder = 2
end
object CBDelimCustom: TCheckBox
Left = 328
Top = 40
Width = 65
Height = 17
Caption = 'Custom'
TabOrder = 3
end
object EditCustomDelim: TEdit
Left = 391
Top = 38
Width = 65
Height = 21
TabOrder = 4
end
object Button2: TButton
Left = 210
Top = 120
Width = 75
Height = 25
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 5
end
object CBDelimSemicolon: TCheckBox
Left = 250
Top = 40
Width = 65
Height = 17
Caption = 'Semicolon'
TabOrder = 6
end
object CBFirstRowCaptions: TCheckBox
Left = 16
Top = 80
Width = 137
Height = 17
Caption = '1st row is captions'
TabOrder = 7
end
object CBAllowMultiDelims: TCheckBox
Left = 172
Top = 80
Width = 137
Height = 17
Caption = 'Allow multiple delimiters'
Checked = True
State = cbChecked
TabOrder = 8
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 472
Width = 694
Height = 19
Panels = <
item
Width = 50
end>
ExplicitTop = 463
ExplicitWidth = 688
end
object PopupMenu1: TPopupMenu
Left = 168
Top = 144
object Graph1: TMenuItem
Caption = 'Show graph(s)'
OnClick = Graph1Click
end
object N1: TMenuItem
Caption = '-'
end
object Copyvalues1: TMenuItem
Caption = 'Copy values'
OnClick = Copyvalues1Click
end
object Copyformulas1: TMenuItem
Caption = 'Copy formulas'
OnClick = Copyformulas1Click
end
end
object OpenDialog1: TOpenDialog
Options = [ofEnableSizing]
Left = 264
Top = 144
end
object Timer1: TTimer
Interval = 500
OnTimer = Timer1Timer
Left = 80
Top = 104
end
end