home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / LIB / INFOFB.LIB < prev    next >
Text File  |  2001-05-14  |  557b  |  15 lines
  1. rem> pouºije jednotku InfoFB
  2. Main DemoInfo;
  3. :>demoinfo>
  4.   NewInfo;
  5.   LineInfo('  Demo WinInfo');
  6.   LineInfo('Toto je ukázka informaƒního okna,');
  7.   LineInfo('do kterého je moºné umístit ');
  8.   LineInfo('maximáln╪ 10 ²ádkà.');
  9.   LineInfo('Ikona màºe b∞t ve formátu .LMG');
  10.   LineInfo('a uvede se název vƒetn╪ adresá²e');
  11.   WinInfoXY(120,200,' A N O ',' N E ','SYSTEM\INFOW.LMG');
  12.   if ChoicePositive next  rem> Bylo kliknuto na tlaƒítko ANO ?
  13.     rem> next = jednorázov∞ odkaz 
  14.     rem> part = sekvenƒní odkaz ukonƒen∞ slovem :part< 
  15. :<demoinfo<