Changeset 115 for trunk/UCore.pas

Timestamp:

Feb 15, 2022, 3:46:22 PM (3 years ago)

Author:

chronos

Message:

• Added: New tool action View source to show source code for loaded contacts. Source text can be edited and saved back. The editor shows line numbers and use color highlighting.

File:

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

trunk/UCore.pas

@@ -17 +17 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    AViewSource: TAction;
     ATest: TAction;
     AFind: TAction;
@@ -59 +60 @@
     procedure ASettingsExecute(Sender: TObject);
     procedure ATestExecute(Sender: TObject);
+    procedure AViewSourceExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -106 +108 @@
 uses
   UFormMain, UFormSettings, UContact, UFormContacts, UFormFindDuplicity,
-  UFormGenerate, UFormError, UFormFind, UFormTest;
+  UFormGenerate, UFormError, UFormFind, UFormTest, UFormSource;
 
 resourcestring
@@ -274 +276 @@
   try
     ShowModal;
+  finally
+    Free;
+  end;
+end;
+
+procedure TCore.AViewSourceExecute(Sender: TObject);
+begin
+  with TFormSource.Create(nil) do
+  try
+    Source := TContactsFile(DataFile).AsString;
+    if ShowModal = mrOk then begin
+      TContactsFile(DataFile).AsString := Source;
+      UpdateFile;
+    end;
   finally
     Free;