program test3;

uses App, Objects, Menus, Drivers, Views, Dialogs, MsgBox, StdDlg;

type
  TMyApp = object(TApplication)
    procedure InitMenuBar; virtual;
    procedure HandleEvent(var Event: TEvent); virtual;
  end;

procedure TMyApp.InitMenuBar;
var
  R: TRect;
  pFileMenu, pHelpMenu : PMenuItem;
begin
  GetExtent(R);
  R.B.Y := R.A.Y + 1;
  pHelpMenu := NewSubMenu('~H~elp', hcNoContext, NewMenu(
        NewItem('~A~bout', '', 0, cmHelp, hcNoContext, nil)),
        nil);
  pFileMenu := NewSubMenu('~F~ile', hcNoContext, NewMenu(
        NewItem('~O~pen', 'F2', kbF2, cmOpen, hcNoContext,
        NewItem('~C~lose', 'F3', kbF3, cmClose, hcNoContext,
        NewLine(
        NewItem('E~x~it', 'Alt-X', kbAltX, cmQuit, hcNoContext, nil))))),
        pHelpMenu);
  MenuBar := new (PMenuBar, Init(R,
      NewMenu(pFileMenu)));
end;

procedure TMyApp.HandleEvent(var Event: TEvent);
var
  FileName: String;
  result : integer;
  pOpen : PFileDialog;
begin
  inherited HandleEvent(Event);
  if Event.What = evCommand then
  begin
    if Event.Command = cmHelp then
    begin
    	  MessageBox('About:'+#13#10+'This is my test app'+#13#10+'Alan Ward (C) 2016',
    	   nil, mfInformation or mfOKButton);
    end;
    if Event.Command = cmOpen then
    begin
        pOpen := New(PFileDialog, Init('*.txt', 'Open', 'File ~N~ame',
          fdOpenButton, hcNoContext));
        result := ExecuteDialog (pOpen, @FileName);
    end;
  end;
end;

var MyApp : TMyApp;

begin
  MyApp.Init;
  MyApp.Run;
  MyApp.Done;
end.