home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / toolkid / menu123.dem < prev    next >
Encoding:
Text File  |  1988-04-05  |  2.6 KB  |  108 lines
  1. USES IOSTUFF,MENU123,MENUBOX,CRT;
  2. VAR
  3.    ExitNow,ExitSub : boolean;
  4.    Menu1,Sub1,Sub4,Sub5 : String[160];
  5.    Ch : Char;
  6. {============================================================================}
  7. PROCEDURE WriteMsg(Msg:AnyStr);
  8. BEGIN
  9. GoToXY(1,24);
  10. Write(Msg);
  11. End;
  12.  
  13. {============================================================================}
  14. BEGIN
  15. SetColor(Yellow,Magenta);
  16. ClrScr;
  17.  
  18. Menu1 :=('File/Edit/Run/Compile/Options/');
  19. Sub1 :=('Load      /'+
  20.         'Pick      /'+
  21.         'New       /'+
  22.         'Save      /'+
  23.         'Write to  /'+
  24.         'Directory /'+
  25.         'Change Dir/'+
  26.         'OS Shell  /'+
  27.         'Quit      /');
  28. Sub4 :=('Compile     /'+
  29.         'Make        /'+
  30.         'Build       /'+
  31.         'Destination /'+
  32.         'Find error  /'+
  33.         'Primary file/'+
  34.         'Get Info    /');
  35. Sub5 :=('Compiler    /'+
  36.         'Environment /'+
  37.         'Directories /'+
  38.         'Parameters  /'+
  39.         'Load options/'+
  40.         'Save options/');
  41.  
  42. ExitNow := false;
  43. WriteSt('This example shows combinations of Menu123 and MenuBox.',1,23);
  44. WriteSt('Hit enter on main menu to see sub menus appear under 123 menu.',1,24);
  45. WriteSt('The Menu123/MenuBox combination is less powerful than MenuPull.',1,25);
  46. SetMenu123(2,1,Menu1);
  47. SaveScreen(1);
  48. Repeat Case PickMenu123 of
  49. 'F' :  Begin
  50.       SetMenuBox(1,2,Sub1);
  51.       ExitSub := false;
  52.       WriteSt('Hit escape to exit File sub menu',40,15);
  53.       Repeat Case PickMenuBox of
  54.       'L' : Begin
  55.              FillScr(':');
  56.              Reset123;
  57.              SaveScreen(1);
  58.              ResetBox;
  59.             End;
  60.       'P' : Begin End;
  61.       'N' : Begin End;
  62.       'S' : Begin End;
  63.       'W' : Begin End;
  64.       'D' : Begin End;
  65.       'C' : Begin End;
  66.       'O' : Begin End;
  67.       'Q' : Exit;
  68.       #0  : ExitSub := true;
  69.       End;
  70.       Until ExitSub;
  71.       RestoreScreen(1);
  72.      End;
  73. 'E' :  Begin End;
  74. 'R' :  Begin End;
  75. 'C' :  Begin;
  76.       SetMenuBox(24,2,Sub4);
  77.       Case PickMenuBox of
  78.       'C' : Begin End;
  79.       'M' : Begin End;
  80.       'B' : Begin End;
  81.       'D' : Begin End;
  82.       'F' : Begin End;
  83.       'P' : Begin End;
  84.       'G' : Begin End;
  85.       #0  : WriteMsg('ABORT');
  86.       End;
  87.       RestoreScreen(1);
  88.      End;
  89. 'O' : Begin;
  90.       SetMenuBox(35,2,Sub5);
  91.       Case PickMenuBox of
  92.       'C' : Begin End;
  93.       'E' : Begin End;
  94.       'D' : Begin End;
  95.       'P' : Begin End;
  96.       'L' : Begin End;
  97.       'S' : Begin End;
  98.       #0  : Begin End;
  99.       End;
  100.       RestoreScreen(1);
  101.      End;
  102. #0  : Begin
  103.         ExitNow := true;
  104.       End;
  105. End;{case Pick}
  106. Until ExitNow;
  107. End.
  108.