Changeset 6 for trunk/FormMain.pas

Timestamp:

Sep 30, 2025, 1:13:00 PM (7 days ago)

Author:

chronos

Message:

• Modified: Present estimated CO2 emissions in separate table.

File:

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

trunk/FormMain.pas

@@ -26 +26 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure MemoSourceChange(Sender: TObject);
   private
     procedure Log(Text: string);
+    procedure UpdateSummary;
   public
     Summary: TSummary;
@@ -34 +36 @@
 var
   FormMain: TFormMain;
+
 
 implementation
@@ -45 +48 @@
   if FileExists(EditSource.Text) then
     MemoSource.Lines.LoadFromFile(EditSource.Text);
-  Summary.OnLog := Log;
-  Summary.LoadFromStrings(MemoSource.Lines);
-  MemoSummary.Text := Summary.Print;
+  UpdateSummary;
   //PageControlSummary.TabIndex := 1;
+end;
+
+procedure TFormMain.MemoSourceChange(Sender: TObject);
+begin
+  UpdateSummary;
 end;
 
@@ -56 +62 @@
 end;
 
+procedure TFormMain.UpdateSummary;
+begin
+  Summary.LoadFromStrings(MemoSource.Lines);
+  MemoSummary.Text := Summary.Print;
+end;
+
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
   Summary := TSummary.Create;
+  Summary.OnLog := Log;
 end;