home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TVTOOL.ZIP / MTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-08-24  |  914 b   |  45 lines
  1. { THIS PROGRAM IS FOR TESTING MENUS CREATED WITH THE MENU DESIGNER. }
  2.  
  3. program MTest;
  4.  
  5. uses Objects, Drivers, Views, Menus, App, TvKeys;
  6.  
  7. {---------------- INSERT MENU CONSTANTS ------------------}
  8.  
  9. {---------------------------------------------------------}
  10.  
  11. type
  12.   TMyApp = object(TApplication)
  13.     procedure InitMenuBar; virtual;
  14.     procedure InitStatusLine; virtual;
  15.   end;
  16.  
  17.  
  18. { TMyApp }
  19.  
  20. {------------ INSERT InitMenuBar METHOD HERE -------------}
  21.  
  22. {---------------------------------------------------------}
  23.  
  24. procedure TMyApp.InitStatusLine;
  25. var R: TRect;
  26. begin
  27.   GetExtent(R);
  28.   R.A.Y := R.B.Y - 1;
  29.   StatusLine := New(PStatusLine, Init(R,
  30.     NewStatusDef(0, $FFFF,
  31.       NewStatusKey('', kbF10, cmMenu,
  32.       NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
  33.       nil)),
  34.     nil)
  35.   ));
  36. end;
  37.  
  38. var
  39.   MyApp: TMyApp;
  40.  
  41. begin
  42.   MyApp.Init;
  43.   MyApp.Run;
  44.   MyApp.Done;
  45. end.