home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / LIB / MENU.LIB < prev    next >
Text File  |  2001-05-14  |  1KB  |  45 lines
  1.  
  2. rem> pouºívá jednotku MenuFB
  3. Main DemoMenu;
  4. DefFrom EndDMnu;
  5. :>menu>
  6.   NewMenu;
  7.   rem> poloºek v menu màºe b∞t maximáln╪ 20 
  8.   MenuItem(' Název 1. poloºky ',1,' Informace k 1.poloºce');
  9.   MenuItem(' Název 2. poloºky ',1,' Informace k 2.poloºce');
  10.   MenuItem(' Název 3. poloºky ',1,' Informace k 3.poloºce');
  11.   MenuItem(' Název 4. poloºky ',1,' Informace k 4.poloºce');
  12.   MenuItem(' Název 5. poloºky ',1,' Informace k 5.poloºce');
  13.   MenuLine;     rem> odd╪lovací linka má po²adí poloºky (nap².6)
  14.   MenuItem(' Název 7. poloºky',1,' Informace k 7.poloºce');
  15.   AssignMenu(MLBlue,DBlue,LBlue);
  16.  
  17.   OpenMenu(15,50);  rem> 15 = lev∞ kraj menu, 50 = horní kraj menu
  18.   :loop>
  19.     let VyberMenu : SelectItem;  rem> vrací vybranou poloºku jako ƒíslo
  20.     Case VyberMenu part
  21.       case>1 :>pol1>
  22.                {...}
  23.              :<pol1<
  24.       case>2 :>pol2>
  25.                {...}
  26.              :<pol2<
  27.       case>3 :>pol3>
  28.                {...}
  29.              :<pol3<
  30.       case>4 :>pol4>
  31.                {...}
  32.              :<pol4<
  33.       case>5 :>pol5>
  34.                {...}
  35.              :<pol6<
  36.       case>7 :>pol7>
  37.                {...}
  38.              :<pol7<
  39.     :case<
  40.  
  41.   :loop< VyberMenu in[0,1..5,7];
  42.   @EndJMnu<
  43.   CloseMenu(15,50);
  44.   FillInfoLine;
  45. :<menu<