Changeset 5 for trunk/FormMain.pas

Timestamp:

Jul 8, 2024, 11:31:59 PM (5 months ago)

Author:

chronos

Message:

• Added: Show source tab with source text which is automatically loaded on start and saved on close.

File:

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

trunk/FormMain.pas

@@ -17 +17 @@
     MemoSummary: TMemo;
     MemoLog: TMemo;
+    MemoSource: TMemo;
     PageControlSummary: TPageControl;
-    TabSheet1: TTabSheet;
+    TabSheetSummary: TTabSheet;
+    TabSheetSource: TTabSheet;
     TabSheetLog: TTabSheet;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -40 +43 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  if FileExists(EditSource.Text) then
+    MemoSource.Lines.LoadFromFile(EditSource.Text);
   Summary.OnLog := Log;
-  Summary.LoadFromFile(EditSource.Text);
+  Summary.LoadFromStrings(MemoSource.Lines);
   MemoSummary.Text := Summary.Print;
+  //PageControlSummary.TabIndex := 1;
 end;
 
@@ -55 +61 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  MemoSource.Lines.SaveToFile(EditSource.Text);
+end;
+
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin