Changeset 146 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 24, 2017, 4:34:36 PM (8 years ago)

Author:

chronos

Message:

• Added: A context menu from main acronym filter list to show selected acronym in Acronyms window for its further management.

File:

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

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TFormMain = class(TForm)
+    AManageAcronym: TAction;
     AFilterSameLetterCase: TAction;
     AFilterSameLength: TAction;
@@ -44 +45 @@
     ListViewSort1: TListViewSort;
     MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
     MenuItemParam: TMenuItem;
     MenuItem10: TMenuItem;
@@ -71 +73 @@
     PanelParam: TPanel;
     PanelMain: TPanel;
+    PopupMenuFilter: TPopupMenu;
     PopupMenuOpenRecent: TPopupMenu;
     SaveDialog1: TSaveDialog;
@@ -100 +103 @@
     procedure AHideExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
+    procedure AManageAcronymExecute(Sender: TObject);
     procedure AProcessImportsExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -320 +324 @@
 end;
 
+procedure TFormMain.AManageAcronymExecute(Sender: TObject);
+begin
+  FormAcronyms := TFormAcronyms.Create(Self);
+  try
+    if Assigned(ListViewAcronyms.Selected) then
+      FormAcronyms.FocusAcronym := ListViewAcronyms.Selected.Data;
+    FormAcronyms.ShowModal;
+    UpdateAcronymsList;
+    UpdateInterface;
+  finally
+    FreeAndNil(FormAcronyms);
+  end;
+end;
+
 procedure TFormMain.AProcessImportsExecute(Sender: TObject);
 begin