Changeset 112 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (3 diffs)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 782
   Caption = 'Acronym Decoder'
-  ClientHeight = 417
+  ClientHeight = 422
   ClientWidth = 782
   Menu = MainMenu1
@@ -17 +17 @@
   object Panel1: TPanel
     Left = 0
-    Height = 391
+    Height = 396
     Top = 26
     Width = 782
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 391
+    ClientHeight = 396
     ClientWidth = 782
     TabOrder = 1
     object CheckBoxExactMath: TCheckBox
       Left = 8
-      Height = 29
+      Height = 24
       Top = 3
-      Width = 124
+      Width = 104
       Caption = 'Exact match'
       OnChange = CheckBoxExactMathChange
@@ -44 +44 @@
     object ListViewAcronyms: TListView
       Left = 8
-      Height = 319
+      Height = 324
       Top = 64
       Width = 767

trunk/Forms/UFormMain.pas

@@ -115 +115 @@
     procedure ListViewSort1Filter(ListViewSort: TListViewSort);
     procedure MenuItemToolbarClick(Sender: TObject);
-    procedure TrayIcon1Click(Sender: TObject);
   private
     RegistryContext: TRegistryContext;
@@ -484 +483 @@
   MenuItemToolbar.Checked := not MenuItemToolbar.Checked;
   UpdateInterface;
-end;
-
-procedure TFormMain.TrayIcon1Click(Sender: TObject);
-begin
-  if not Visible then AShow.Execute
-    else Hide;
 end;