home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / _MENU.IPS next >
Text File  |  1998-04-19  |  2KB  |  41 lines
  1. PROCEDURE main
  2.    MESSAGEBOX('Ukßzka naprogramovßnφ menu systΘmu'+chr(10)
  3.              +'OZOGAN KLONDAIK.', 'zprßva', 0)
  4.    MenuInit;
  5.    MenuChange(1,0,'Klondaik','','P°φklady zßkladnφch program∙');
  6.    MenuChange(1,1,'Vstup (hello.ips)','hello.ips','Vstup hodnot');
  7.    MenuChange(1,2,'Φtenφ 1 (read.ips)','read.ips','Φtenφ hodnot z klßvesnice');
  8.    MenuChange(1,3,'╚tenφ 2 (filetxt1.ips)','filetxt1.ips','╚tenφ textovΘho souboru');
  9.    MenuChange(1,4,'Dotaz (dotaz.ips)','dotaz.ips','V²b∞r zadan²ch hodnot');
  10.    MenuChange(1,5,'Rekurze (rekurze.ips)','rekurze.ips','V²poΦet s opakovßnφm');
  11.    MenuChange(1,6,'Diskety (fileutil.ips)','fileutil.ips','Zjituje kapacitu disku a disket');
  12.    MenuChange(1,7,'Prom∞nnΘ (lokal.ips)','lokal.ips','Ukßzka pou₧itφ lokßlnφho prom∞nn²ch');
  13.    MenuChange(1,8,'Pr∙m∞r (prumer.ips)','prumer.ips','V²poΦet pr∙m∞rnΘ hodnoty');
  14.  
  15.    MenuChange(2,0,'Malovßnφ','','P°φklady zpracovßnφ grafiky');
  16.    MenuChange(2,1,'DomeΦek (domek.ips)','domek.ips','Namaluje domeΦek');
  17.    MenuChange(2,2,'Nßhoda (roundrec.ips)','roundrec.ips','Kreslφ nßhodnΘ obrazce');
  18.    MenuChange(2,3,'Spirßla (spirala.ips)','spirala.ips','Nakreslφ spirßlu');
  19.    MenuChange(2,4,'Text (oramuj.ips)','oramuj.ips','Oramuje zapsany text v grafickΘm v²stupnφm okn∞');
  20.  
  21.    MenuChange(3,0,'Databßze','','P°φklady obsluhy databßzφ');
  22.    MenuChange(3,1,'Otev°enφ(dbfuse.ips)','dbfuse.ips','Otev°enφ databßze');
  23.    MenuChange(3,2,'Hledßnφ (dbfseek.ips)','dbfseek.ips','Hledßnφ v databßzi');
  24.    MenuChange(3,3,'V²maz   (dbfdele.ips)','dbfdele.ips','V²maz v databßzi');
  25.    MenuChange(3,4,'Filtr   (dbffiltr.ips)','dbffiltr.ips','Nastavenφ filtru');
  26.  
  27.    MenuChange(4,0,'Formulß°e','','P°φklady prßce s formulß°i');
  28.    MenuChange(4,1,'Ukßzka (form1.ips)','form1.ips', 'pou₧itφ jednoduchΘho formulß°e');
  29.    MenuChange(4,2,'Ukßzka (form2.ips)','form2.ips', 'pou₧itφ slo₧it∞jÜφch formulß°∙');
  30.    MenuChange(4,3,'Ukßzka (form3.ips)','form3.ips', 'Jednoduchß hra na formulß°i');
  31.    MenuChange(4,4,'Sou°adnice (form4.ips)','form4.ips', 'Snφmßnφ sou°adnic na bitmap∞');
  32.  
  33.    MenuChange(5,0,'R∙znΘ','','DalÜφ p°φklady pou₧itφ systΘmu KLONDAIK');
  34.    MenuChange(5,1,'Grafy (chart.ips)','chart.ips','Nakreslφ graf');
  35.    MenuChange(5,2,'Tabulka (zisk.ips)','zisk.ips','Pou₧itφ tabulky pro v²poΦet zisku');
  36.  
  37.    MenuIcon(1,'sipka_v.bmp','domek.ips', 'Nakreslφ domeΦek');
  38.    MenuIcon(3,'sipka_z.bmp','spirala.ips', 'Nakreslφ spiurßlu');
  39.    MenuActive(true);
  40. ENDPROC
  41.