Changeset 9 for trunk/FormMain.lfm

Timestamp:

Apr 14, 2026, 12:57:08 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Loading of spot prices and calculation prices for each EAN.

File:

• trunk/FormMain.lfm (modified) (7 diffs)

trunk/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 367
+  Left = 362
   Height = 884
-  Top = 361
+  Top = 356
   Width = 1203
   Caption = 'EDC Stats'
@@ -20 +20 @@
     Top = 56
     Width = 1176
-    ActivePage = TabSheetData
+    ActivePage = TabSheetSpotPrices
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 3
+    TabIndex = 4
     TabOrder = 0
     object TabSheetOverview: TTabSheet
@@ -29 +29 @@
       ClientWidth = 1166
       OnShow = TabSheetOverviewShow
-      object ListView1: TListView
+      object ListViewOverview: TListView
         Left = 8
         Height = 763
@@ -50 +50 @@
           end        
           item
-            Caption = 'Result'
+            Caption = 'Shared'
             Width = 100
           end        
@@ -74 +74 @@
           end        
           item
+            Caption = 'Price [Kč]'
+            Width = 100
+          end        
+          item
             Caption = 'Savings [Kč]'
+            Width = 100
+          end        
+          item
+            Caption = 'Tariff'
+            Width = 100
           end>
         PopupMenu = PopupMenuOverview
@@ -220 +229 @@
       ClientWidth = 1166
       OnShow = TabSheetDataShow
-      object ListView2: TListView
+      object ListViewData: TListView
         Left = 16
         Height = 696
@@ -266 +275 @@
         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