Ignore:
Timestamp:
Aug 1, 2012, 4:36:04 PM (12 years ago)
Author:
chronos
Message:
  • Added: Unit for project management.
  • Added: Some base actions and menu items.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/StudioPackage/Forms/UFormMain.pas

    r1 r2  
    1414
    1515  TFormMain = class(TForm)
    16     Action1: TAction;
     16    AClipboardCopy: TAction;
     17    AClipboardPaste: TAction;
     18    AExit: TAction;
     19    ASelectAll: TAction;
     20    AClipboardCut: TAction;
     21    AProjectOpenRecent: TAction;
     22    AProjectSaveAs: TAction;
     23    AProjectSave: TAction;
     24    AProjectClose: TAction;
     25    AProjectOpen: TAction;
     26    AProjectNew: TAction;
    1727    ActionList1: TActionList;
     28    ImageList1: TImageList;
    1829    MainMenu1: TMainMenu;
    1930    MenuItem1: TMenuItem;
     31    MenuItem10: TMenuItem;
     32    MenuItem11: TMenuItem;
     33    MenuItem12: TMenuItem;
     34    MenuItem13: TMenuItem;
     35    MenuItem14: TMenuItem;
    2036    MenuItem2: TMenuItem;
    2137    MenuItem3: TMenuItem;
     38    MenuItem4: TMenuItem;
     39    MenuItem5: TMenuItem;
     40    MenuItem6: TMenuItem;
     41    MenuItem7: TMenuItem;
     42    MenuItem8: TMenuItem;
     43    MenuItem9: TMenuItem;
    2244    StatusBar1: TStatusBar;
    2345    ToolBar1: TToolBar;
    2446    ToolButton1: TToolButton;
     47    procedure AExitExecute(Sender: TObject);
    2548  private
    2649    { private declarations }
    … …  
    3659{$R *.lfm}
    3760
     61{ TFormMain }
     62
     63procedure TFormMain.AExitExecute(Sender: TObject);
     64begin
     65  Application.Terminate;
     66end;
     67
    3868end.
    3969
Note: See TracChangeset for help on using the changeset viewer.