Changeset 14 for trunk/UFormMain.pas

Timestamp:

Apr 28, 2016, 10:56:31 PM (8 years ago)

Author:

chronos

Message:

• Added: Window for acronym categories management. There acronyms can be added, modifed and removed.

File:

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

trunk/UFormMain.pas

@@ -19 +19 @@
     AAcronymRemove: TAction;
     AAcronymRemoveAll: TAction;
+    AShowCategories: TAction;
     ASettings: TAction;
     AFileSaveAs: TAction;
@@ -45 +46 @@
     MenuItem18: TMenuItem;
     MenuItem19: TMenuItem;
+    MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -72 +75 @@
     procedure AImportExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
+    procedure AShowCategoriesExecute(Sender: TObject);
     procedure AShowExecute(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
@@ -111 +115 @@
 
 uses
-  UFormImport, UFormAcronym, UFormSettings;
+  UFormImport, UFormAcronym, UFormSettings, UFormCategories;
 
 resourcestring
@@ -230 +234 @@
   TempCategories: TStringList;
   Meaning: TAcronymMeaning;
+  I: Integer;
 begin
   if Assigned(ListViewAcronyms.Selected) then
@@ -252 +257 @@
         Meaning.Description := TempEntry.Description;
         Meaning.Categories.AssignFromStrings(TempEntry.Categories);
+        for I := 0 to Meaning.Categories.Count - 1 do
+          TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
         UpdateAcronymsList;
         UpdateInterface;
@@ -289 +296 @@
   TempEntry: TAcronymEntry;
   Meaning: TAcronymMeaning;
+  I: Integer;
 begin
   TempEntry := TAcronymEntry.Create;
@@ -300 +308 @@
     Meaning.Description := TempEntry.Description;
     Meaning.Categories.AssignFromStrings(TempEntry.Categories);
+    for I := 0 to Meaning.Categories.Count - 1 do
+      TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
     UpdateAcronymsList;
     UpdateInterface;
@@ -318 +328 @@
   if FormSettings.ShowModal = mrOk then
     FormSettings.Save;
+end;
+
+procedure TFormMain.AShowCategoriesExecute(Sender: TObject);
+begin
+  FormCategories.ShowModal;
 end;
 
@@ -440 +455 @@
   EditSearch.Enabled := Assigned(AcronymDb);
   AImport.Enabled := Assigned(AcronymDb);
+  AShowCategories.Enabled := Assigned(AcronymDb);
 
   Title := Application.Title;