Changeset 6 for trunk/FormMain.lfm


Ignore:
Timestamp:
Apr 13, 2026, 2:01:36 PM (2 weeks ago)
Author:
chronos
Message:
  • Modified: EDC related code split into EdcProject unit.
  • Added: Partial loading of spot prices.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/FormMain.lfm

    r5 r6  
    88  ClientWidth = 1203
    99  DesignTimePPI = 144
     10  Menu = MainMenu1
    1011  LCLVersion = '4.6.0.0'
    1112  WindowState = wsMaximized
    … …  
    1314  OnDestroy = FormDestroy
    1415  OnShow = FormShow
    15   object ButtonLoad: TButton
    16     Left = 8
    17     Height = 38
    18     Top = 16
    19     Width = 113
    20     Caption = 'Load'
    21     TabOrder = 0
    22     OnClick = ButtonLoadClick
    23   end
    2416  object PageControl1: TPageControl
    2517    Left = 16
    26     Height = 811
    27     Top = 64
     18    Height = 819
     19    Top = 56
    2820    Width = 1176
    2921    ActivePage = TabSheetOverview
    3022    Anchors = [akTop, akLeft, akRight, akBottom]
    3123    TabIndex = 0
    32     TabOrder = 1
     24    TabOrder = 0
    3325    object TabSheetOverview: TTabSheet
    3426      Caption = 'Overview'
    35       ClientHeight = 771
     27      ClientHeight = 779
    3628      ClientWidth = 1166
    3729      OnShow = TabSheetOverviewShow
    3830      object ListView1: TListView
    3931        Left = 8
    40         Height = 755
     32        Height = 763
    4133        Top = 8
    4234        Width = 1150
    … …  
    8880    object TabSheetLog: TTabSheet
    8981      Caption = 'Log'
    90       ClientHeight = 771
     82      ClientHeight = 779
    9183      ClientWidth = 1166
    9284      OnShow = TabSheetLogShow
    9385      object Memo1: TMemo
    9486        Left = 8
    95         Height = 755
     87        Height = 763
    9688        Top = 8
    9789        Width = 1150
    … …  
    10496    object TabSheetChart: TTabSheet
    10597      Caption = 'Chart'
    106       ClientHeight = 771
     98      ClientHeight = 779
    10799      ClientWidth = 1166
    108100      OnShow = TabSheetChartShow
    … …  
    126118      object Chart1: TChart
    127119        Left = 16
    128         Height = 651
     120        Height = 659
    129121        Top = 104
    130122        Width = 1138
    … …  
    220212    object TabSheetData: TTabSheet
    221213      Caption = 'Data'
    222       ClientHeight = 771
     214      ClientHeight = 779
    223215      ClientWidth = 1166
    224216      OnShow = TabSheetDataShow
    225217      object ListView2: TListView
    226218        Left = 16
    227         Height = 688
     219        Height = 696
    228220        Top = 72
    229221        Width = 1144
    … …  
    269261  end
    270262  object ComboBoxPeriod: TComboBox
    271     Left = 272
     263    Left = 104
    272264    Height = 38
    273     Top = 16
     265    Top = 8
    274266    Width = 160
    275267    ItemHeight = 0
    … …  
    282274    )
    283275    Style = csDropDownList
    284     TabOrder = 2
     276    TabOrder = 1
    285277    Text = 'Day'
    286278    OnSelect = ComboBoxPeriodSelect
    287279  end
    288280  object Label2: TLabel
    289     Left = 184
     281    Left = 16
    290282    Height = 26
    291     Top = 24
     283    Top = 16
    292284    Width = 60
    293285    Caption = 'Period:'
    294286  end
    295287  object TimeEdit1: TTimeEdit
    296     Left = 688
     288    Left = 520
    297289    Height = 43
    298     Top = 16
     290    Top = 8
    299291    Width = 155
    300292    ButtonWidth = 34
    301293    NumGlyphs = 1
    302294    MaxLength = 0
    303     TabOrder = 3
     295    TabOrder = 2
    304296    OnChange = TimeEdit1Change
    305297  end
    306298  object DateEdit1: TDateEdit
    307     Left = 520
     299    Left = 352
    308300    Height = 43
    309     Top = 16
     301    Top = 8
    310302    Width = 155
    311303    CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
    … …  
    314306    NumGlyphs = 1
    315307    MaxLength = 0
     308    TabOrder = 3
     309    OnChange = DateEdit1Change
     310  end
     311  object ButtonIntervalRight: TButton
     312    Left = 680
     313    Height = 38
     314    Top = 13
     315    Width = 40
     316    Caption = '>'
    316317    TabOrder = 4
    317     OnChange = DateEdit1Change
    318   end
    319   object ButtonIntervalRight: TButton
     318    OnClick = ButtonIntervalRightClick
     319  end
     320  object ButtonIntervalLeft: TButton
     321    Left = 304
     322    Height = 38
     323    Top = 13
     324    Width = 40
     325    Caption = '<'
     326    TabOrder = 5
     327    OnClick = ButtonIntervalLeftClick
     328  end
     329  object ComboBoxUnit: TComboBox
    320330    Left = 848
    321331    Height = 38
    322     Top = 21
    323     Width = 40
    324     Caption = '>'
    325     TabOrder = 5
    326     OnClick = ButtonIntervalRightClick
    327   end
    328   object ButtonIntervalLeft: TButton
    329     Left = 472
    330     Height = 38
    331     Top = 21
    332     Width = 40
    333     Caption = '<'
    334     TabOrder = 6
    335     OnClick = ButtonIntervalLeftClick
    336   end
    337   object ComboBoxUnit: TComboBox
    338     Left = 1016
    339     Height = 38
    340     Top = 16
     332    Top = 8
    341333    Width = 160
    342334    ItemHeight = 0
    … …  
    348340    )
    349341    Style = csDropDownList
    350     TabOrder = 7
     342    TabOrder = 6
    351343    OnSelect = ComboBoxUnitSelect
    352344  end
    353345  object Label5: TLabel
    354     Left = 920
     346    Left = 752
    355347    Height = 26
    356     Top = 24
     348    Top = 16
    357349    Width = 40
    358350    Caption = 'Unit:'
    … …  
    389381    Top = 416
    390382  end
     383  object MainMenu1: TMainMenu
     384    Left = 216
     385    Top = 376
     386    object MenuItem1: TMenuItem
     387      Caption = 'Tools'
     388      object MenuItem2: TMenuItem
     389        Caption = 'Load reports'
     390        OnClick = MenuItem2Click
     391      end
     392      object MenuItem3: TMenuItem
     393        Caption = 'Load spot prices'
     394        OnClick = MenuItem3Click
     395      end
     396    end
     397  end
    391398end
Note: See TracChangeset for help on using the changeset viewer.