Changeset 112 for trunk/UCore.pas

Timestamp:

Nov 1, 2016, 12:12:04 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Put back accidently removed actions to tray icon popup menu.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -33 +33 @@
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure TrayIcon1Click(Sender: TObject);
   private
     FAlwaysOnTop: Boolean;
@@ -81 +82 @@
   FreeAndNil(StoredDimension);
   FreeAndNil(AcronymDb);
+end;
+
+procedure TCore.TrayIcon1Click(Sender: TObject);
+begin
+  if not FormMain.Visible then FormMain.AShow.Execute
+    else FormMain.Hide;
 end;