home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / menugen / testmenu.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1990-12-19  |  1.3 KB  |  43 lines
  1. PROCEDURE TMApp. InitMenuBar;
  2.  
  3. VAR
  4.    R                            :   TRect;
  5.  
  6. BEGIN
  7.    GetExtent (R);
  8.    R. B. Y := R. A. Y + 1;
  9.    MenuBar := NEW (PMenuBar,
  10.       Init (R,
  11.          NewMenu (
  12.             NewSubMenu ('~F~ile', hcNoContext, NewMenu (
  13.                NewItem ('~O~pen', 'F3', kbF3, cmFileOpen, hcNoContext,
  14.                NewItem ('~N~ew', 'F4', kbF4, cmNewWin, hcNoContext,
  15.                   NewLine (
  16.                NewItem ('E~x~it', 'Alt-X', kbAltX, cmQuit, hcNoContext,
  17.                      nil))))), 
  18.             NewSubMenu ('~W~indow', hcNoContext, NewMenu (
  19.                NewItem ('~N~ext', 'F6', kbF6, cmNext, hcNoContext,
  20.                NewItem ('~Z~oom', 'F5', kbF5, cmZoom, hcNoContext,
  21.                NewItem ('~D~ialog', 'F2', kbF2, cmNewDialog, hcNoContext,
  22.                      nil)))), nil)))));
  23. END;
  24.  
  25.  
  26.  
  27. PROCEDURE TMApp. InitStatusLine;
  28.  
  29. VAR
  30.    R                            :   TRect;
  31.  
  32. BEGIN
  33.    GetExtent (R);
  34.    R. A. Y := R. B. Y - 1;
  35.    StatusLine := NEW (PStatusLine,
  36.       Init (R,
  37.          NewStatusDef (0, $FFFF,
  38.          NewStatusKey ('~Alt-X~ Exit', kbAltX, cmQuit, 
  39.          NewStatusKey ('~F4~ New', kbF4, cmNewWin, 
  40.          NewStatusKey ('~Alt-F3~ Close', kbAlt3, cmClose, 
  41.             nil))), nil)));
  42. END;
  43.