Changeset 10 for trunk/FormMain.pas

Timestamp:

Apr 15, 2026, 9:35:17 AM (2 weeks ago)

Author:

chronos

Message:

• Added: Show spot total price above zero for EANs.

File:

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

trunk/FormMain.pas

@@ -224 +224 @@
 procedure TFormMain.MenuItemImportSpotPricesClick(Sender: TObject);
 begin
-  EdcProject.SpotPrices.Import(SpotPricesDir);
-  //EdcProject.SpotPrices.LoadSpotPricesFromWeb(StrToDate('1.4.2026'));
+  //EdcProject.SpotPrices.Import(SpotPricesDir);
+  EdcProject.SpotPrices.LoadFromWeb;
+
   ShowActiveTab;
 end;
@@ -366 +367 @@
       ListItem.SubItems.Add(FloatToStr(PriceHigh));
       ListItem.SubItems.Add(FloatToStr(PriceSpot));
-      ListItem.SubItems.Add(CurrToStr(GetPrice(IntervalFrom, IntervalTo, EdcProject.SpotPrices)));
+      ListItem.SubItems.Add(CurrToStr(GetPrice(IntervalFrom, IntervalTo, EdcProject.SpotPrices, Low(Integer))));
       ListItem.SubItems.Add(CurrToStr(GetSavings(IntervalFrom, IntervalTo, EdcProject.SpotPrices)));
       ListItem.SubItems.Add(DistributionTariff);
+      ListItem.SubItems.Add(CurrToStr(GetPrice(IntervalFrom, IntervalTo, EdcProject.SpotPrices, 0)));
     end;
   finally