object FormMain: TFormMain Left = 357 Height = 884 Top = 351 Width = 1203 Caption = 'EDC Stats' ClientHeight = 884 ClientWidth = 1203 DesignTimePPI = 144 Menu = MainMenu1 LCLVersion = '4.6.0.0' WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow object PageControl1: TPageControl Left = 16 Height = 819 Top = 56 Width = 1176 ActivePage = TabSheetOverview Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 0 TabOrder = 0 object TabSheetOverview: TTabSheet Caption = 'Overview' ClientHeight = 779 ClientWidth = 1166 OnShow = TabSheetOverviewShow object ListViewOverview: TListView Left = 8 Height = 763 Top = 8 Width = 1150 Align = alClient BorderSpacing.Around = 8 Columns = < item Caption = 'EAN' Width = 200 end item Caption = 'Owner' Width = 100 end item Caption = 'Address' Width = 100 end item Caption = 'Kind' Width = 100 end item Caption = 'Measured' Width = 100 end item Caption = 'Shared' Width = 100 end item Caption = 'Shared [%]' Width = 100 end item Caption = 'Low price [Kč]' Width = 100 end item Caption = 'High price [Kč]' Width = 100 end item Caption = 'Spot price [Kč]' Width = 100 end item Caption = 'Price [Kč]' Width = 100 end item Caption = 'Savings [Kč]' Width = 100 end item Caption = 'Tariff' Width = 100 end item Caption = 'Price above zero [Kč]' Width = 100 end> PopupMenu = PopupMenuOverview ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport end end object TabSheetLog: TTabSheet Caption = 'Log' ClientHeight = 779 ClientWidth = 1166 OnShow = TabSheetLogShow object Memo1: TMemo Left = 8 Height = 763 Top = 8 Width = 1150 Align = alClient BorderSpacing.Around = 8 ScrollBars = ssAutoBoth TabOrder = 0 end end object TabSheetChart: TTabSheet Caption = 'Chart' ClientHeight = 779 ClientWidth = 1166 OnShow = TabSheetChartShow object ComboBoxEan: TComboBox Left = 88 Height = 42 Top = 24 Width = 432 ItemHeight = 0 Style = csDropDownList TabOrder = 0 OnSelect = ComboBoxEanSelect end object Label1: TLabel Left = 16 Height = 26 Top = 32 Width = 56 Caption = 'EAN 1:' end object Chart1: TChart Left = 16 Height = 659 Top = 104 Width = 1138 AxisList = < item Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Orientation = 900 Title.LabelBrush.Style = bsClear end item Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelBrush.Style = bsClear end> Title.Text.Strings = ( 'TAChart' ) Anchors = [akTop, akLeft, akRight, akBottom] object Chart1LineSeries1: TLineSeries LinePen.Color = clYellow LinePen.Width = 3 end object Chart1LineSeries2: TLineSeries LinePen.Color = clFuchsia LinePen.Width = 3 end object Chart1LineSeries3: TLineSeries LinePen.Color = clAqua LinePen.Width = 3 end object Chart1LineSeries4: TLineSeries LinePen.Color = clYellow LinePen.Style = psDot LinePen.Width = 3 end object Chart1LineSeries5: TLineSeries LinePen.Color = clFuchsia LinePen.Style = psDot LinePen.Width = 3 end object Chart1LineSeries6: TLineSeries LinePen.Color = clAqua LinePen.Style = psDot LinePen.Width = 3 end end object Label3: TLabel Left = 544 Height = 26 Top = 32 Width = 56 Caption = 'EAN 2:' end object ComboBoxEan2: TComboBox Left = 608 Height = 42 Top = 24 Width = 432 ItemHeight = 0 Style = csDropDownList TabOrder = 2 OnSelect = ComboBoxEanSelect end object Label6: TLabel Left = 1048 Height = 26 Top = 32 Width = 56 Caption = 'EAN 3:' end object ComboBoxEan3: TComboBox Left = 1112 Height = 42 Top = 24 Width = 432 ItemHeight = 0 Style = csDropDownList TabOrder = 3 OnSelect = ComboBoxEanSelect end object CheckBoxShowResult: TCheckBox Left = 16 Height = 30 Top = 72 Width = 134 Caption = 'Show results' TabOrder = 4 OnChange = CheckBoxShowResultChange end end object TabSheetData: TTabSheet Caption = 'Data' ClientHeight = 779 ClientWidth = 1166 OnShow = TabSheetDataShow object ListViewData: TListView Left = 16 Height = 696 Top = 72 Width = 1144 Align = alCustom Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 8 Columns = < item Caption = 'Time' Width = 200 end item Caption = 'Measured' Width = 100 end item Caption = 'Result' Width = 100 end item Caption = 'Shared [%]' Width = 729 end> ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport end object Label4: TLabel Left = 16 Height = 26 Top = 24 Width = 41 Caption = 'EAN:' end object ComboBoxEanData: TComboBox Left = 120 Height = 42 Top = 16 Width = 432 ItemHeight = 0 Style = csDropDownList TabOrder = 1 OnSelect = ComboBoxEanDataSelect end end object TabSheetSpotPrices: TTabSheet Caption = 'Spot prices' ClientHeight = 779 ClientWidth = 1166 OnShow = TabSheetSpotPricesShow object ListViewSpotPrices: TListView Left = 16 Height = 760 Top = 8 Width = 1144 Align = alCustom Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 8 Columns = < item Caption = 'Time' Width = 200 end item Caption = 'Value [Kč]' Width = 929 end> ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport end end end object ComboBoxPeriod: TComboBox Left = 104 Height = 38 Top = 8 Width = 160 ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'Day' 'Week' 'Month' 'Year' ) Style = csDropDownList TabOrder = 1 Text = 'Day' OnSelect = ComboBoxPeriodSelect end object Label2: TLabel Left = 16 Height = 26 Top = 16 Width = 60 Caption = 'Period:' end object TimeEdit1: TTimeEdit Left = 544 Height = 43 Top = 3 Width = 155 ButtonWidth = 34 NumGlyphs = 1 MaxLength = 0 TabOrder = 2 OnChange = TimeEdit1Change end object DateEdit1: TDateEdit Left = 376 Height = 43 Top = 3 Width = 155 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] DateOrder = doNone ButtonWidth = 34 NumGlyphs = 1 MaxLength = 0 TabOrder = 3 OnChange = DateEdit1Change end object ButtonIntervalRight: TButton Left = 704 Height = 38 Top = 8 Width = 40 Caption = '>' TabOrder = 4 OnClick = ButtonIntervalRightClick end object ButtonIntervalLeft: TButton Left = 328 Height = 38 Top = 8 Width = 40 Caption = '<' TabOrder = 5 OnClick = ButtonIntervalLeftClick end object ComboBoxUnit: TComboBox Left = 904 Height = 38 Top = 3 Width = 160 ItemHeight = 0 Items.Strings = ( 'kWh' 'Wh' 'kW' 'W' ) Style = csDropDownList TabOrder = 6 OnSelect = ComboBoxUnitSelect end object Label5: TLabel Left = 808 Height = 26 Top = 11 Width = 40 Caption = 'Unit:' end object ButtonIntervalRightMax: TButton Left = 752 Height = 38 Top = 8 Width = 40 Caption = '>|' TabOrder = 7 OnClick = ButtonIntervalRightMaxClick end object ButtonIntervalLeftMin: TButton Left = 280 Height = 38 Top = 8 Width = 40 Caption = '|<' TabOrder = 8 OnClick = ButtonIntervalLeftMinClick end object Translator1: TTranslator POFilesFolder = 'Languages' OnTranslate = Translator1Translate Left = 776 Top = 408 end object ApplicationInfo1: TApplicationInfo Identification = 1 VersionMajor = 1 VersionMinor = 0 VersionBugFix = 0 HomePage = 'https://app.zdechov.net/edc-stats' AuthorsName = 'Chronos' AppName = 'EDC Stats' ReleaseDate = 46116 RegistryKey = '\Software\Chronosoft\EdcStats' RegistryRoot = rrKeyCurrentUser License = 'CC0' Left = 936 Top = 408 end object PersistentForm1: TPersistentForm MinVisiblePart = 50 EntireVisible = False Left = 584 Top = 416 end object ThemeManager1: TThemeManager Left = 408 Top = 416 end object MainMenu1: TMainMenu Left = 216 Top = 376 object MenuItemFile: TMenuItem Caption = 'File' object MenuItemLoad: TMenuItem Caption = 'Load' OnClick = MenuItemLoadClick end object MenuItemSave: TMenuItem Caption = 'Save' OnClick = MenuItemSaveClick end end object MenuItemTools: TMenuItem Caption = 'Tools' object MenuItemImportReports: TMenuItem Caption = 'Import reports' OnClick = MenuItemImportReportsClick end object MenuItemImportSpotPrices: TMenuItem Caption = 'Import spot prices' OnClick = MenuItemImportSpotPricesClick end end end object PopupMenuOverview: TPopupMenu Left = 506 Top = 274 object MenuItemRemove: TMenuItem Caption = 'Remove' OnClick = MenuItemRemoveClick end end end