Changeset 7 for trunk/FormMain.pas

Timestamp:

Apr 13, 2026, 7:11:03 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Store imported values in EdcProject.

File:

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

trunk/FormMain.pas

@@ -7 +7 @@
   EditBtn, Menus, TAGraph, TASeries, Generics.Collections, Generics.Defaults,
   DateUtils, Ean, Translator, ApplicationInfo, RegistryEx, PersistentForm,
-  Theme, Common, XML, DOM, XMLRead, EdcProject;
+  Theme, Common, XML, EdcProject;
 
 type
@@ -45 +45 @@
     MainMenu1: TMainMenu;
     Memo1: TMemo;
-    MenuItem1: TMenuItem;
-    MenuItem2: TMenuItem;
-    MenuItem3: TMenuItem;
+    MenuItemRemove: TMenuItem;
+    MenuItemLoad: TMenuItem;
+    MenuItemSave: TMenuItem;
+    MenuItemTools: TMenuItem;
+    MenuItemImportReports: TMenuItem;
+    MenuItemImportSpotPrices: TMenuItem;
+    MenuItemFile: TMenuItem;
     PageControl1: TPageControl;
     PersistentForm1: TPersistentForm;
+    PopupMenuOverview: TPopupMenu;
     TabSheetOverview: TTabSheet;
     TabSheetData: TTabSheet;
@@ -64 +69 @@
     procedure ComboBoxUnitSelect(Sender: TObject);
     procedure DateEdit1Change(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure MenuItem2Click(Sender: TObject);
-    procedure MenuItem3Click(Sender: TObject);
+    procedure MenuItemImportReportsClick(Sender: TObject);
+    procedure MenuItemImportSpotPricesClick(Sender: TObject);
+    procedure MenuItemLoadClick(Sender: TObject);
+    procedure MenuItemRemoveClick(Sender: TObject);
+    procedure MenuItemSaveClick(Sender: TObject);
     procedure TabSheetOverviewShow(Sender: TObject);
     procedure TabSheetChartShow(Sender: TObject);
@@ -81 +90 @@
     Period: TPeriod;
     ReportsDir: string;
-    OwnersFileName: string;
+    ProjectFileName: string;
     ShowResult: Boolean;
     EdcProject: TEdcProject;
-    procedure LoadReports;
     function MeasureToFloat(Value: Double; Interval: Double): Double;
     function MeasureToStr(Value: Double): string;
@@ -110 +118 @@
 {$R *.lfm}
 
-uses
-  csvdocument, BufferedFileStream;
-
 resourcestring
   SEAN = 'EAN';
@@ -174 +179 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
@@ -189 +198 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  LoadReports;
-end;
-
-procedure TFormMain.MenuItem2Click(Sender: TObject);
-begin
-  LoadReports;
-end;
-
-procedure TFormMain.MenuItem3Click(Sender: TObject);
+  MenuItemLoad.Click;
+end;
+
+procedure TFormMain.MenuItemImportReportsClick(Sender: TObject);
+begin
+  EdcProject.Import(ReportsDir);
+
+  if (EdcProject.Eans.Count > 0) and (EdcProject.Eans[0].Values.Count > 0) then
+    IntervalTo := EdcProject.Eans[0].Values.Last.Time + 15 * OneMinute;
+  UpdateInterval;
+  UpdateInterface;
+end;
+
+procedure TFormMain.MenuItemImportSpotPricesClick(Sender: TObject);
 begin
   EdcProject.SpotPrices.LoadSpotPrices(StrToDate('1.4.2026'));
+end;
+
+procedure TFormMain.MenuItemLoadClick(Sender: TObject);
+begin
+  EdcProject.LoadFromFile(ProjectFileName);
+
+  if (EdcProject.Eans.Count > 0) and (EdcProject.Eans[0].Values.Count > 0) then
+    IntervalTo := EdcProject.Eans[0].Values.Last.Time + 15 * OneMinute;
+  UpdateInterval;
+  UpdateInterface;
+end;
+
+procedure TFormMain.MenuItemRemoveClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    EdcProject.Eans.Remove(ListView1.Selected.Data);
+  ReloadListViewOverview;
+end;
+
+procedure TFormMain.MenuItemSaveClick(Sender: TObject);
+begin
+  EdcProject.SaveToFile(ProjectFileName);
 end;
 
@@ -248 +284 @@
   ComboBoxPeriod.Items[Integer(prYear)] := SYear;
   Ean.Translate;
-end;
-
-procedure TFormMain.LoadReports;
-begin
-  EdcProject.LoadFromFile(OwnersFileName);
-  EdcProject.Import(ReportsDir);
-
-  if (EdcProject.Eans.Count > 0) and (EdcProject.Eans[0].Values.Count > 0) then
-    IntervalTo := EdcProject.Eans[0].Values.Last.Time + 15 * OneMinute;
-  UpdateInterval;
-  UpdateInterface;
 end;
 
@@ -314 +339 @@
       ListItem := ListView1.Items.Add;
       ListItem.Caption := Number;
+      ListItem.Data := EdcProject.Eans[I];
       ListItem.SubItems.Add(Owner);
       ListItem.SubItems.Add(MeasureToStr(GetTotalIn(IntervalFrom, IntervalTo)));
@@ -470 +496 @@
     Period := TPeriod(ReadIntegerWithDefault('Period', Integer(Period)));
     ReportsDir := ReadStringWithDefault('ReportsDir', ReportsDir);
-    OwnersFileName := ReadStringWithDefault('OwnersFileName', OwnersFileName);
+    ProjectFileName := ReadStringWithDefault('ProjectFileName', ProjectFileName);
     PageControl1.TabIndex := ReadIntegerWithDefault('ActiveTab', PageControl1.TabIndex);
     ShowResult := ReadBoolWithDefault('ShowResult', ShowResult);
@@ -492 +518 @@
     WriteInteger('Period', Integer(Period));
     WriteString('ReportsDir', ReportsDir);
-    WriteString('OwnersFileName', OwnersFileName);
+    WriteString('ProjectFileName', ProjectFileName);
     WriteInteger('ActiveTab', PageControl1.TabIndex);
     WriteBool('ShowResult', ShowResult);