Changeset 90 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 10, 2016, 11:24:45 PM (8 years ago)

Author:

chronos

Message:

• Added: Acronym export action in menu Tools - Export. Supported formats are CSV and MediaWiki list/table.

File:

• trunk/Forms/UFormMain.pas (modified) (10 diffs)

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TFormMain = class(TForm)
+    AExport: TAction;
     AProcessImports: TAction;
     AShowImportFormats: TAction;
@@ -28 +29 @@
     AFileNew: TAction;
     AFileOpen: TAction;
-    AManualImport: TAction;
+    AImport: TAction;
     AShow: TAction;
     AExit: TAction;
@@ -57 +58 @@
     MenuItem23: TMenuItem;
     MenuItem24: TMenuItem;
+    MenuItem25: TMenuItem;
     MenuItemToolbar: TMenuItem;
     MenuItem4: TMenuItem;
@@ -88 +90 @@
     TrayIcon1: TTrayIcon;
     procedure AExitExecute(Sender: TObject);
+    procedure AExportExecute(Sender: TObject);
     procedure AFileCloseExecute(Sender: TObject);
     procedure AFileNewExecute(Sender: TObject);
@@ -93 +96 @@
     procedure AFileSaveAsExecute(Sender: TObject);
     procedure AFileSaveExecute(Sender: TObject);
-    procedure AManualImportExecute(Sender: TObject);
+    procedure AImportExecute(Sender: TObject);
     procedure AProcessImportsExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -150 +153 @@
 
 uses
-  UFormImport, UFormSettings, UFormCategories, UFormAcronyms,
+  UFormImport, UFormSettings, UFormCategories, UFormAcronyms, UFormExport,
   UFormImportSources, UFormAbout, UFormImportFormats, UCore;
 
@@ -199 +202 @@
 begin
   Close;
+end;
+
+procedure TFormMain.AExportExecute(Sender: TObject);
+begin
+  FormExport.ShowModal;
 end;
 
@@ -270 +278 @@
 end;
 
-procedure TFormMain.AManualImportExecute(Sender: TObject);
+procedure TFormMain.AImportExecute(Sender: TObject);
 begin
   FormImport.ShowModal;
@@ -421 +429 @@
     case Column of
       0: Result := CompareString(TAcronymMeaning(Item1).Acronym.Name, TAcronymMeaning(Item2).Acronym.Name);
-      1: Result := CompareString(TAcronymMeaning(Item1).Description, TAcronymMeaning(Item2).Description);
+      1: Result := CompareString(TAcronymMeaning(Item1).Name, TAcronymMeaning(Item2).Name);
       2: Result := CompareString(TAcronymMeaning(Item1).Categories.GetString, TAcronymMeaning(Item2).Categories.GetString);
     end;
@@ -543 +551 @@
   AFileSave.Enabled := Assigned(Core.AcronymDb) and Core.AcronymDb.Modified;
   AFileSaveAs.Enabled := Assigned(Core.AcronymDb);
-  AManualImport.Enabled := Assigned(Core.AcronymDb);
+  AImport.Enabled := Assigned(Core.AcronymDb);
+  AExport.Enabled := Assigned(Core.AcronymDb);
   AProcessImports.Enabled := Assigned(Core.AcronymDb);
   AShowCategories.Enabled := Assigned(Core.AcronymDb);