Changeset 8 for trunk/FormMain.pas

Timestamp:

Apr 13, 2026, 11:12:39 PM (2 weeks ago)

Author:

chronos

Message:

• Fixed: Data tab populating and refreshing.
• Fixed: Used currency as decimal type for measured values instead inaccurate double type.

File:

• trunk/FormMain.pas (modified) (4 diffs)

trunk/FormMain.pas

@@ -65 +65 @@
     procedure ButtonIntervalRightClick(Sender: TObject);
     procedure CheckBoxShowResultChange(Sender: TObject);
+    procedure ComboBoxEanDataSelect(Sender: TObject);
     procedure ComboBoxEanSelect(Sender: TObject);
     procedure ComboBoxPeriodSelect(Sender: TObject);
@@ -139 +140 @@
 end;
 
+procedure TFormMain.ComboBoxEanDataSelect(Sender: TObject);
+begin
+  ReloadListViewData;
+end;
+
 procedure TFormMain.ButtonIntervalRightClick(Sender: TObject);
 begin
@@ -348 +354 @@
       ListItem.SubItems.Add(FloatToStr(PriceHigh));
       ListItem.SubItems.Add(FloatToStr(PriceSpot));
+      ListItem.SubItems.Add(IntToStr(GetSavings(IntervalFrom, IntervalTo)));
     end;
   finally
@@ -367 +374 @@
     ListView2.BeginUpdate;
     try
-      for I := 0 to Ean.Values.Count - 1 do begin
+      for I := 0 to Ean.Values.Count - 1 do
+      with Ean.Values[I] do
+      if (Time >= IntervalFrom) and (Time < IntervalTo) then begin
         ListItem := ListView2.Items.Add;
-        ListItem.Caption := DateTimeToStr(Ean.Values[I].Time);
-        ListItem.SubItems.Add(FloatToStr(Ean.Values[I].ValueIn));
-        ListItem.SubItems.Add(IntToStr(Trunc(Ean.Values[I].GetShared)));
+        ListItem.Caption := DateTimeToStr(Time);
+        ListItem.SubItems.Add(FloatToStr(ValueIn));
+        ListItem.SubItems.Add(FloatToStr(ValueOut));
+        ListItem.SubItems.Add(IntToStr(Trunc(GetShared)));
       end;
     finally