Changeset 12 for trunk/FormMain.pas

Timestamp:

Apr 17, 2026, 2:31:42 PM (13 days ago)

Author:

chronos

Message:

• Added: Min/max interval position navigation buttons.
• Modified: Remember last interval position.

File:

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

trunk/FormMain.pas

@@ -20 +20 @@
     ButtonIntervalRight: TButton;
     ButtonIntervalLeft: TButton;
+    ButtonIntervalRightMax: TButton;
+    ButtonIntervalLeftMin: TButton;
     Chart1: TChart;
     Chart1LineSeries1: TLineSeries;
@@ -65 +67 @@
     Translator1: TTranslator;
     procedure ButtonIntervalLeftClick(Sender: TObject);
+    procedure ButtonIntervalLeftMinClick(Sender: TObject);
     procedure ButtonIntervalRightClick(Sender: TObject);
+    procedure ButtonIntervalRightMaxClick(Sender: TObject);
     procedure CheckBoxShowResultChange(Sender: TObject);
     procedure ComboBoxEanDataSelect(Sender: TObject);
@@ -156 +160 @@
 end;
 
+procedure TFormMain.ButtonIntervalRightMaxClick(Sender: TObject);
+begin
+  IntervalTo := EdcProject.Eans.GetMaxTime + FifteenMinute;
+  UpdateInterval;
+end;
+
 procedure TFormMain.ButtonIntervalLeftClick(Sender: TObject);
 begin
   IntervalTo := IntervalTo - GetIntervalLength;
+  UpdateInterval;
+end;
+
+procedure TFormMain.ButtonIntervalLeftMinClick(Sender: TObject);
+begin
+  IntervalTo := EdcProject.Eans.GetMinTime + GetIntervalLength + FifteenMinute;
   UpdateInterval;
 end;
@@ -209 +225 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  MenuItemLoad.Click;
+  EdcProject.LoadFromFile(ProjectFileName);
+
+  UpdateInterval;
+  UpdateInterface;
 end;
 
@@ -217 +236 @@
 
   if (EdcProject.Eans.Count > 0) and (EdcProject.Eans[0].Values.Count > 0) then
-    IntervalTo := EdcProject.Eans[0].Values.Last.Time + 15 * OneMinute;
+    IntervalTo := EdcProject.Eans[0].Values.Last.Time + FifteenMinute;
   UpdateInterval;
   UpdateInterface;
@@ -235 +254 @@
 
   if (EdcProject.Eans.Count > 0) and (EdcProject.Eans[0].Values.Count > 0) then
-    IntervalTo := EdcProject.Eans[0].Values.Last.Time + 15 * OneMinute;
+    IntervalTo := EdcProject.Eans[0].Values.Last.Time + FifteenMinute;
   UpdateInterval;
   UpdateInterface;
@@ -501 +520 @@
 begin
   case Period of
-    prDay: Result := 15 * OneMinute;
+    prDay: Result := FifteenMinute;
     prWeek: Result := 1;
     prMonth: Result := 1;
@@ -549 +568 @@
     PageControl1.TabIndex := ReadIntegerWithDefault('ActiveTab', PageControl1.TabIndex);
     ShowResult := ReadBoolWithDefault('ShowResult', ShowResult);
+    IntervalFrom := ReadDateTimeWithDefault('IntervalFrom', IntervalFrom);
+    IntervalTo := ReadDateTimeWithDefault('IntervalTo', IntervalTo);
   finally
     Free;
@@ -572 +593 @@
     WriteInteger('ActiveTab', PageControl1.TabIndex);
     WriteBool('ShowResult', ShowResult);
+    WriteDateTime('IntervalFrom', IntervalFrom);
+    WriteDateTime('IntervalTo', IntervalTo);
   finally
     Free;