Changeset 158 for trunk/Core.pas

Timestamp:

Jun 12, 2023, 12:07:42 AM (11 months ago)

Author:

chronos

Message:

• Added: File menu action Export to export vCard data into CSV, XML, MediaWiki, Excel paste, and HTML.

File:

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

trunk/Core.pas

@@ -16 +16 @@
     AAbout: TAction;
     AboutDialog1: TAboutDialog;
+    AFileExport: TAction;
     ANormalize: TAction;
     ARemoveExactDuplicates: TAction;
@@ -50 +51 @@
     procedure AFileCombineExecute(Sender: TObject);
     procedure AFileCompareExecute(Sender: TObject);
+    procedure AFileExportExecute(Sender: TObject);
     procedure AFileNewExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
@@ -130 +132 @@
 uses
   FormMain, FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize,
-  FormGenerate, FormError, FormFind, FormTest, FormSource, TestCases;
+  FormGenerate, FormError, FormFind, FormTest, FormSource, TestCases, FormExport;
 
 resourcestring
@@ -196 +198 @@
   finally
     FreeAndNil(FormCompare);
+  end;
+end;
+
+procedure TCore.AFileExportExecute(Sender: TObject);
+var
+  FormExport: TFormExport;
+begin
+  FormExport := TFormExport.Create(nil);
+  try
+    FormExport.ShowModal;
+  finally
+    FormExport.Free;
   end;
 end;