Changeset 167 for trunk/Core.pas

Timestamp:

Jul 1, 2023, 11:54:02 AM (11 months ago)

Author:

chronos

Message:

• Added: Import form preparation.

File:

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

trunk/Core.pas

@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AFileImport: TAction;
     AFileExport: TAction;
     ANormalize: TAction;
@@ -51 +52 @@
     procedure AFileCompareExecute(Sender: TObject);
     procedure AFileExportExecute(Sender: TObject);
+    procedure AFileImportExecute(Sender: TObject);
     procedure AFileNewExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
@@ -132 +134 @@
   FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize,
   FormGenerate, FormError, FormFind, FormSource, TestCases, FormExport, FormEx,
-  FormAbout, FormTests;
+  FormAbout, FormTests, FormImport;
 
 resourcestring
@@ -210 +212 @@
   finally
     FormExport.Free;
+  end;
+end;
+
+procedure TCore.AFileImportExecute(Sender: TObject);
+var
+  FormImport: TFormImport;
+begin
+  FormImport := TFormImport.Create(nil);
+  try
+    FormImport.ShowModal;
+  finally
+    FormImport.Free;
   end;
 end;