source: trunk/FormMain.lfm

Last change on this file was 12, checked in by chronos, 13 days ago
  • Added: Min/max interval position navigation buttons.
  • Modified: Remember last interval position.
File size: 11.1 KB
Line 
1object FormMain: TFormMain
2 Left = 357
3 Height = 884
4 Top = 351
5 Width = 1203
6 Caption = 'EDC Stats'
7 ClientHeight = 884
8 ClientWidth = 1203
9 DesignTimePPI = 144
10 Menu = MainMenu1
11 LCLVersion = '4.6.0.0'
12 WindowState = wsMaximized
13 OnClose = FormClose
14 OnCreate = FormCreate
15 OnDestroy = FormDestroy
16 OnShow = FormShow
17 object PageControl1: TPageControl
18 Left = 16
19 Height = 819
20 Top = 56
21 Width = 1176
22 ActivePage = TabSheetOverview
23 Anchors = [akTop, akLeft, akRight, akBottom]
24 TabIndex = 0
25 TabOrder = 0
26 object TabSheetOverview: TTabSheet
27 Caption = 'Overview'
28 ClientHeight = 779
29 ClientWidth = 1166
30 OnShow = TabSheetOverviewShow
31 object ListViewOverview: TListView
32 Left = 8
33 Height = 763
34 Top = 8
35 Width = 1150
36 Align = alClient
37 BorderSpacing.Around = 8
38 Columns = <
39 item
40 Caption = 'EAN'
41 Width = 200
42 end
43 item
44 Caption = 'Owner'
45 Width = 100
46 end
47 item
48 Caption = 'Address'
49 Width = 100
50 end
51 item
52 Caption = 'Kind'
53 Width = 100
54 end
55 item
56 Caption = 'Measured'
57 Width = 100
58 end
59 item
60 Caption = 'Shared'
61 Width = 100
62 end
63 item
64 Caption = 'Shared [%]'
65 Width = 100
66 end
67 item
68 Caption = 'Low price [Kč]'
69 Width = 100
70 end
71 item
72 Caption = 'High price [Kč]'
73 Width = 100
74 end
75 item
76 Caption = 'Spot price [Kč]'
77 Width = 100
78 end
79 item
80 Caption = 'Price [Kč]'
81 Width = 100
82 end
83 item
84 Caption = 'Savings [Kč]'
85 Width = 100
86 end
87 item
88 Caption = 'Tariff'
89 Width = 100
90 end
91 item
92 Caption = 'Price above zero [Kč]'
93 Width = 100
94 end>
95 PopupMenu = PopupMenuOverview
96 ReadOnly = True
97 RowSelect = True
98 TabOrder = 0
99 ViewStyle = vsReport
100 end
101 end
102 object TabSheetLog: TTabSheet
103 Caption = 'Log'
104 ClientHeight = 779
105 ClientWidth = 1166
106 OnShow = TabSheetLogShow
107 object Memo1: TMemo
108 Left = 8
109 Height = 763
110 Top = 8
111 Width = 1150
112 Align = alClient
113 BorderSpacing.Around = 8
114 ScrollBars = ssAutoBoth
115 TabOrder = 0
116 end
117 end
118 object TabSheetChart: TTabSheet
119 Caption = 'Chart'
120 ClientHeight = 779
121 ClientWidth = 1166
122 OnShow = TabSheetChartShow
123 object ComboBoxEan: TComboBox
124 Left = 88
125 Height = 42
126 Top = 24
127 Width = 432
128 ItemHeight = 0
129 Style = csDropDownList
130 TabOrder = 0
131 OnSelect = ComboBoxEanSelect
132 end
133 object Label1: TLabel
134 Left = 16
135 Height = 26
136 Top = 32
137 Width = 56
138 Caption = 'EAN 1:'
139 end
140 object Chart1: TChart
141 Left = 16
142 Height = 659
143 Top = 104
144 Width = 1138
145 AxisList = <
146 item
147 Marks.LabelBrush.Style = bsClear
148 Minors = <>
149 Title.LabelFont.Orientation = 900
150 Title.LabelBrush.Style = bsClear
151 end
152 item
153 Alignment = calBottom
154 Marks.LabelBrush.Style = bsClear
155 Minors = <>
156 Title.LabelBrush.Style = bsClear
157 end>
158 Title.Text.Strings = (
159 'TAChart'
160 )
161 Anchors = [akTop, akLeft, akRight, akBottom]
162 object Chart1LineSeries1: TLineSeries
163 LinePen.Color = clYellow
164 LinePen.Width = 3
165 end
166 object Chart1LineSeries2: TLineSeries
167 LinePen.Color = clFuchsia
168 LinePen.Width = 3
169 end
170 object Chart1LineSeries3: TLineSeries
171 LinePen.Color = clAqua
172 LinePen.Width = 3
173 end
174 object Chart1LineSeries4: TLineSeries
175 LinePen.Color = clYellow
176 LinePen.Style = psDot
177 LinePen.Width = 3
178 end
179 object Chart1LineSeries5: TLineSeries
180 LinePen.Color = clFuchsia
181 LinePen.Style = psDot
182 LinePen.Width = 3
183 end
184 object Chart1LineSeries6: TLineSeries
185 LinePen.Color = clAqua
186 LinePen.Style = psDot
187 LinePen.Width = 3
188 end
189 end
190 object Label3: TLabel
191 Left = 544
192 Height = 26
193 Top = 32
194 Width = 56
195 Caption = 'EAN 2:'
196 end
197 object ComboBoxEan2: TComboBox
198 Left = 608
199 Height = 42
200 Top = 24
201 Width = 432
202 ItemHeight = 0
203 Style = csDropDownList
204 TabOrder = 2
205 OnSelect = ComboBoxEanSelect
206 end
207 object Label6: TLabel
208 Left = 1048
209 Height = 26
210 Top = 32
211 Width = 56
212 Caption = 'EAN 3:'
213 end
214 object ComboBoxEan3: TComboBox
215 Left = 1112
216 Height = 42
217 Top = 24
218 Width = 432
219 ItemHeight = 0
220 Style = csDropDownList
221 TabOrder = 3
222 OnSelect = ComboBoxEanSelect
223 end
224 object CheckBoxShowResult: TCheckBox
225 Left = 16
226 Height = 30
227 Top = 72
228 Width = 134
229 Caption = 'Show results'
230 TabOrder = 4
231 OnChange = CheckBoxShowResultChange
232 end
233 end
234 object TabSheetData: TTabSheet
235 Caption = 'Data'
236 ClientHeight = 779
237 ClientWidth = 1166
238 OnShow = TabSheetDataShow
239 object ListViewData: TListView
240 Left = 16
241 Height = 696
242 Top = 72
243 Width = 1144
244 Align = alCustom
245 Anchors = [akTop, akLeft, akRight, akBottom]
246 BorderSpacing.Around = 8
247 Columns = <
248 item
249 Caption = 'Time'
250 Width = 200
251 end
252 item
253 Caption = 'Measured'
254 Width = 100
255 end
256 item
257 Caption = 'Result'
258 Width = 100
259 end
260 item
261 Caption = 'Shared [%]'
262 Width = 729
263 end>
264 ReadOnly = True
265 RowSelect = True
266 TabOrder = 0
267 ViewStyle = vsReport
268 end
269 object Label4: TLabel
270 Left = 16
271 Height = 26
272 Top = 24
273 Width = 41
274 Caption = 'EAN:'
275 end
276 object ComboBoxEanData: TComboBox
277 Left = 120
278 Height = 42
279 Top = 16
280 Width = 432
281 ItemHeight = 0
282 Style = csDropDownList
283 TabOrder = 1
284 OnSelect = ComboBoxEanDataSelect
285 end
286 end
287 object TabSheetSpotPrices: TTabSheet
288 Caption = 'Spot prices'
289 ClientHeight = 779
290 ClientWidth = 1166
291 OnShow = TabSheetSpotPricesShow
292 object ListViewSpotPrices: TListView
293 Left = 16
294 Height = 760
295 Top = 8
296 Width = 1144
297 Align = alCustom
298 Anchors = [akTop, akLeft, akRight, akBottom]
299 BorderSpacing.Around = 8
300 Columns = <
301 item
302 Caption = 'Time'
303 Width = 200
304 end
305 item
306 Caption = 'Value [Kč]'
307 Width = 929
308 end>
309 ReadOnly = True
310 RowSelect = True
311 TabOrder = 0
312 ViewStyle = vsReport
313 end
314 end
315 end
316 object ComboBoxPeriod: TComboBox
317 Left = 104
318 Height = 38
319 Top = 8
320 Width = 160
321 ItemHeight = 0
322 ItemIndex = 0
323 Items.Strings = (
324 'Day'
325 'Week'
326 'Month'
327 'Year'
328 )
329 Style = csDropDownList
330 TabOrder = 1
331 Text = 'Day'
332 OnSelect = ComboBoxPeriodSelect
333 end
334 object Label2: TLabel
335 Left = 16
336 Height = 26
337 Top = 16
338 Width = 60
339 Caption = 'Period:'
340 end
341 object TimeEdit1: TTimeEdit
342 Left = 544
343 Height = 43
344 Top = 3
345 Width = 155
346 ButtonWidth = 34
347 NumGlyphs = 1
348 MaxLength = 0
349 TabOrder = 2
350 OnChange = TimeEdit1Change
351 end
352 object DateEdit1: TDateEdit
353 Left = 376
354 Height = 43
355 Top = 3
356 Width = 155
357 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
358 DateOrder = doNone
359 ButtonWidth = 34
360 NumGlyphs = 1
361 MaxLength = 0
362 TabOrder = 3
363 OnChange = DateEdit1Change
364 end
365 object ButtonIntervalRight: TButton
366 Left = 704
367 Height = 38
368 Top = 8
369 Width = 40
370 Caption = '>'
371 TabOrder = 4
372 OnClick = ButtonIntervalRightClick
373 end
374 object ButtonIntervalLeft: TButton
375 Left = 328
376 Height = 38
377 Top = 8
378 Width = 40
379 Caption = '<'
380 TabOrder = 5
381 OnClick = ButtonIntervalLeftClick
382 end
383 object ComboBoxUnit: TComboBox
384 Left = 904
385 Height = 38
386 Top = 3
387 Width = 160
388 ItemHeight = 0
389 Items.Strings = (
390 'kWh'
391 'Wh'
392 'kW'
393 'W'
394 )
395 Style = csDropDownList
396 TabOrder = 6
397 OnSelect = ComboBoxUnitSelect
398 end
399 object Label5: TLabel
400 Left = 808
401 Height = 26
402 Top = 11
403 Width = 40
404 Caption = 'Unit:'
405 end
406 object ButtonIntervalRightMax: TButton
407 Left = 752
408 Height = 38
409 Top = 8
410 Width = 40
411 Caption = '>|'
412 TabOrder = 7
413 OnClick = ButtonIntervalRightMaxClick
414 end
415 object ButtonIntervalLeftMin: TButton
416 Left = 280
417 Height = 38
418 Top = 8
419 Width = 40
420 Caption = '|<'
421 TabOrder = 8
422 OnClick = ButtonIntervalLeftMinClick
423 end
424 object Translator1: TTranslator
425 POFilesFolder = 'Languages'
426 OnTranslate = Translator1Translate
427 Left = 776
428 Top = 408
429 end
430 object ApplicationInfo1: TApplicationInfo
431 Identification = 1
432 VersionMajor = 1
433 VersionMinor = 0
434 VersionBugFix = 0
435 HomePage = 'https://app.zdechov.net/edc-stats'
436 AuthorsName = 'Chronos'
437 AppName = 'EDC Stats'
438 ReleaseDate = 46116
439 RegistryKey = '\Software\Chronosoft\EdcStats'
440 RegistryRoot = rrKeyCurrentUser
441 License = 'CC0'
442 Left = 936
443 Top = 408
444 end
445 object PersistentForm1: TPersistentForm
446 MinVisiblePart = 50
447 EntireVisible = False
448 Left = 584
449 Top = 416
450 end
451 object ThemeManager1: TThemeManager
452 Left = 408
453 Top = 416
454 end
455 object MainMenu1: TMainMenu
456 Left = 216
457 Top = 376
458 object MenuItemFile: TMenuItem
459 Caption = 'File'
460 object MenuItemLoad: TMenuItem
461 Caption = 'Load'
462 OnClick = MenuItemLoadClick
463 end
464 object MenuItemSave: TMenuItem
465 Caption = 'Save'
466 OnClick = MenuItemSaveClick
467 end
468 end
469 object MenuItemTools: TMenuItem
470 Caption = 'Tools'
471 object MenuItemImportReports: TMenuItem
472 Caption = 'Import reports'
473 OnClick = MenuItemImportReportsClick
474 end
475 object MenuItemImportSpotPrices: TMenuItem
476 Caption = 'Import spot prices'
477 OnClick = MenuItemImportSpotPricesClick
478 end
479 end
480 end
481 object PopupMenuOverview: TPopupMenu
482 Left = 506
483 Top = 274
484 object MenuItemRemove: TMenuItem
485 Caption = 'Remove'
486 OnClick = MenuItemRemoveClick
487 end
488 end
489end
Note: See TracBrowser for help on using the repository browser.