home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tjock / tot / demo / demmn6.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  1.8 KB  |  66 lines
  1. program DemoMenuSix;
  2. {DEMMN6 - a simple pullmenu}
  3. USES  DOS, CRT,
  4.       totMENU, totFAST;
  5.  
  6. var
  7.   Fmenu,
  8.   Emenu: MenuOBJ;
  9.   Pmenu: PullMenuOBJ;
  10.   Choice: word;
  11.  
  12. procedure InitSubmenus;
  13. {}
  14. begin
  15.    with Fmenu do
  16.    begin
  17.       Init;
  18.       AddFullItem(' ~O~pen...       ',101,79,'',nil);
  19.       AddFullItem(' ~N~ew           ',102,78,'',nil);
  20.       AddFullItem(' ~S~ave...       ',103,83,'',nil);
  21.       AddFullItem(' S~a~ve as       ',104,65,'',nil);
  22.       AddFullItem(' Save a~l~l      ',105,79,'',nil);
  23.       AddItem('-');
  24.       AddFullItem(' ~C~hange dir ...',106,67,'',nil);
  25.       AddFullItem(' ~P~rint         ',106,80,'',nil);
  26.       AddFullItem(' ~G~et info...   ',107,71,'',nil);
  27.       AddFullItem(' ~D~OS shell     ',108,68,'',nil);
  28.       AddFullItem(' E~x~it          ',109,88,'',nil);
  29.       SetForPull;
  30.    end;
  31.    with Emenu do
  32.    begin
  33.       Init;
  34.       AddFullItem(' ~R~estore line   ',201,82,'',nil);
  35.       AddItem('-');
  36.       AddFullItem(' Cu~t~            ',202,84,'',nil);
  37.       AddFullItem(' ~C~opy           ',203,67,'',nil);
  38.       AddFullItem(' ~P~aste          ',204,80,'',nil);
  39.       AddFullItem(' Copy ~E~xample   ',205,69,'',nil);
  40.       SetStatus(6,false);
  41.       AddFullItem(' ~S~how clipboard ',206,83,'',nil);
  42.       AddItem('-');
  43.       AddFullItem(' C~l~ear          ',207,76,'',nil);
  44.       SetForPull;
  45.    end;
  46. end; {InitSubMenus}
  47.  
  48. begin
  49.    Screen.Clear(white,'░'); {paint the screen}
  50.    Screen.PartClear(1,1,80,1,31,' ');
  51.    InitSubMenus;
  52.    with Pmenu do
  53.    begin
  54.       Init;
  55.       AddFullItem('   ~F~ile   ',1,70,'',@Fmenu);
  56.       AddFullItem('   ~E~dit   ',2,69,'',@Emenu);
  57.       AddItem('   Run   ');
  58.       Choice := Activate;
  59.       Done;
  60.    end;
  61.    GotoXY(25,15);
  62.    if Choice = 0 then
  63.       Writeln('You escaped')
  64.    else
  65.       Writeln('You selected menu item ',Choice);
  66. end.