Changeset 112 for trunk/Forms


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r109 r112  
    55  Width = 782
    66  Caption = 'Acronym Decoder'
    7   ClientHeight = 417
     7  ClientHeight = 422
    88  ClientWidth = 782
    99  Menu = MainMenu1
     
    1717  object Panel1: TPanel
    1818    Left = 0
    19     Height = 391
     19    Height = 396
    2020    Top = 26
    2121    Width = 782
    2222    Align = alClient
    2323    BevelOuter = bvNone
    24     ClientHeight = 391
     24    ClientHeight = 396
    2525    ClientWidth = 782
    2626    TabOrder = 1
    2727    object CheckBoxExactMath: TCheckBox
    2828      Left = 8
    29       Height = 29
     29      Height = 24
    3030      Top = 3
    31       Width = 124
     31      Width = 104
    3232      Caption = 'Exact match'
    3333      OnChange = CheckBoxExactMathChange
     
    4444    object ListViewAcronyms: TListView
    4545      Left = 8
    46       Height = 319
     46      Height = 324
    4747      Top = 64
    4848      Width = 767
  • trunk/Forms/UFormMain.pas

    r109 r112  
    115115    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
    116116    procedure MenuItemToolbarClick(Sender: TObject);
    117     procedure TrayIcon1Click(Sender: TObject);
    118117  private
    119118    RegistryContext: TRegistryContext;
     
    484483  MenuItemToolbar.Checked := not MenuItemToolbar.Checked;
    485484  UpdateInterface;
    486 end;
    487 
    488 procedure TFormMain.TrayIcon1Click(Sender: TObject);
    489 begin
    490   if not Visible then AShow.Execute
    491     else Hide;
    492485end;
    493486
Note: See TracChangeset for help on using the changeset viewer.