Changeset 3 for trunk/UFormMain.pas


Ignore:
Timestamp:
Mar 13, 2013, 11:15:09 PM (11 years ago)
Author:
chronos
Message:
  • Upraveno: Ikona a nabídka oznamovací oblasti.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22FioInfo
        33FioInfo.lps
         4FioInfo.exe

  • trunk/UFormMain.pas

    r2 r3  
    1414
    1515  TFormMain = class(TForm)
     16    AExit: TAction;
    1617    AShow: TAction;
    1718    ActionList1: TActionList;
    … …  
    1920    LabeledEdit1: TLabeledEdit;
    2021    MenuItem1: TMenuItem;
     22    MenuItem2: TMenuItem;
    2123    PopupMenuTray: TPopupMenu;
    2224    TrayIcon1: TTrayIcon;
     25    procedure AExitExecute(Sender: TObject);
     26    procedure AShowExecute(Sender: TObject);
    2327  private
    2428    { private declarations }
    … …  
    3438{$R *.lfm}
    3539
     40{ TFormMain }
     41
     42procedure TFormMain.AShowExecute(Sender: TObject);
     43begin
     44  Application.Restore;
     45end;
     46
     47procedure TFormMain.AExitExecute(Sender: TObject);
     48begin
     49  Application.Terminate;
     50end;
     51
    3652end.
    3753
Note: See TracChangeset for help on using the changeset viewer.