Changeset 102 for trunk/Forms


Ignore:
Timestamp:
Sep 23, 2016, 12:29:16 PM (8 years ago)
Author:
chronos
Message:
  • Added: Main form hide action to tray icon popup menu.
Location:
trunk/Forms
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormExport.pas

    r98 r102  
    108108  I: Integer;
    109109  J: Integer;
    110   Line: string;
    111110begin
    112111  Job.Progress.Max := Core.AcronymDb.Acronyms.Count;

  • trunk/Forms/UFormMain.lfm

    r100 r102  
    11object FormMain: TFormMain
    2   Left = 454
    3   Height = 446
    4   Top = 401
     2  Left = 449
     3  Height = 447
     4  Top = 396
    55  Width = 782
    66  Caption = 'Acronym Decoder'
    … …  
    2727    object CheckBoxExactMath: TCheckBox
    2828      Left = 8
    29       Height = 21
     29      Height = 24
    3030      Top = 3
    31       Width = 102
     31      Width = 104
    3232      Caption = 'Exact match'
    3333      OnChange = CheckBoxExactMathChange
    … …  
    699699      Default = True
    700700    end
     701    object MenuItem26: TMenuItem
     702      Action = AHide
     703    end
    701704    object MenuItem3: TMenuItem
    702705      Action = AImport
     706    end
     707    object MenuItem27: TMenuItem
     708      Action = AExport
     709    end
     710    object MenuItem28: TMenuItem
     711      Action = AProcessImports
    703712    end
    704713    object MenuItem19: TMenuItem
    … …  
    793802      Caption = 'Show'
    794803      OnExecute = AShowExecute
     804    end
     805    object AHide: TAction
     806      Caption = 'Hide'
     807      OnExecute = AHideExecute
    795808    end
    796809    object AImport: TAction

  • trunk/Forms/UFormMain.lrt

    r95 r102  
    99TFORMMAIN.AEXIT.CAPTION=Exit
    1010TFORMMAIN.ASHOW.CAPTION=Show
     11TFORMMAIN.AHIDE.CAPTION=Hide
    1112TFORMMAIN.AIMPORT.CAPTION=Import
    1213TFORMMAIN.AFILEOPEN.CAPTION=Open

  • trunk/Forms/UFormMain.pas

    r100 r102  
    1616
    1717  TFormMain = class(TForm)
     18    AHide: TAction;
    1819    AExport: TAction;
    1920    AProcessImports: TAction;
    … …  
    5758    MenuItem24: TMenuItem;
    5859    MenuItem25: TMenuItem;
     60    MenuItem26: TMenuItem;
     61    MenuItem27: TMenuItem;
     62    MenuItem28: TMenuItem;
    5963    MenuItemToolbar: TMenuItem;
    6064    MenuItem4: TMenuItem;
    … …  
    9397    procedure AFileSaveAsExecute(Sender: TObject);
    9498    procedure AFileSaveExecute(Sender: TObject);
     99    procedure AHideExecute(Sender: TObject);
    95100    procedure AImportExecute(Sender: TObject);
    96101    procedure AProcessImportsExecute(Sender: TObject);
    … …  
    182187begin
    183188  if Core.InitializeFinished then Core.PersistentForm1.Save(Self);
     189  UpdateInterface;
    184190end;
    185191
    … …  
    279285    UpdateInterface;
    280286  end else AFileSaveAs.Execute;
     287end;
     288
     289procedure TFormMain.AHideExecute(Sender: TObject);
     290begin
     291  Hide;
    281292end;
    282293
    … …  
    598609  AShowImportFormats.Enabled := Assigned(Core.AcronymDb);
    599610  ToolBar1.Visible := MenuItemToolbar.Checked;
     611  AHide.Enabled := FormMain.Visible;
    600612
    601613  Title := Application.Title;

  • trunk/Forms/UFormSettings.pas

    r96 r102  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ULanguages;
     9  Menus, ULanguages;
    1010
    1111type
Note: See TracChangeset for help on using the changeset viewer.