Changeset 102 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 23, 2016, 12:29:16 PM (8 years ago)

Author:

chronos

Message:

• Added: Main form hide action to tray icon popup menu.

File:

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

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
 
   TFormMain = class(TForm)
+    AHide: TAction;
     AExport: TAction;
     AProcessImports: TAction;
@@ -57 +58 @@
     MenuItem24: TMenuItem;
     MenuItem25: TMenuItem;
+    MenuItem26: TMenuItem;
+    MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
     MenuItemToolbar: TMenuItem;
     MenuItem4: TMenuItem;
@@ -93 +97 @@
     procedure AFileSaveAsExecute(Sender: TObject);
     procedure AFileSaveExecute(Sender: TObject);
+    procedure AHideExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
     procedure AProcessImportsExecute(Sender: TObject);
@@ -182 +187 @@
 begin
   if Core.InitializeFinished then Core.PersistentForm1.Save(Self);
+  UpdateInterface;
 end;
 
@@ -279 +285 @@
     UpdateInterface;
   end else AFileSaveAs.Execute;
+end;
+
+procedure TFormMain.AHideExecute(Sender: TObject);
+begin
+  Hide;
 end;
 
@@ -598 +609 @@
   AShowImportFormats.Enabled := Assigned(Core.AcronymDb);
   ToolBar1.Visible := MenuItemToolbar.Checked;
+  AHide.Enabled := FormMain.Visible;
 
   Title := Application.Title;