home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / LIB / DIALOG.LIB < prev    next >
Text File  |  2001-05-14  |  1KB  |  31 lines
  1. rem> pouºívá jednotku DialogFB
  2. Main DemoDialog;
  3. DefFrom VenDemo;
  4. :>oknodialog>
  5.   WinDialogXY(150,100);    rem> 150=levv∞ okraj, 100=horní okraj okna
  6.             rem> 20=max.poƒ.znakà, NoOffer=ºádná dalτí nabídka=0,''
  7.   DialogItem('Poloºka','vstup dat',20,NoOffer,0,'');
  8.   DialogItem('Poloºka','vstup dat',20,NoOffer,0,'');
  9.   DialogItem('Poloºka','vstup dat',20,NoOffer,0,'');
  10.   DialogItem('Poloºka','vstup dat',20,NoOffer,0,'');
  11.   DialogItem('Poloºka','vstup dat',20,NoOffer,0,'');
  12.             rem> OfferTo=nabídkov∞ soubor,5 poloºek, soubor NABIDKA.DOC
  13.   DialogItem('Poloºka','vstup dat',20,OfferTo,5,'DOC\NABIDKA.DOC');
  14.   DialogButt(1,' Uloºit ');  rem> první tlaƒítko
  15.   DialogButt(2,' Zp╪t ');    rem> druhé tlaƒítko
  16.   AssignDialog('SYSTEM\OTESLOZK.LMG','Hlaviƒka okna',
  17.                LGray,MLGray,'');  rem> v '' màºe b∞t obrázek formátu PGF
  18.   :loop>
  19.     OpenDialog;
  20.     VyberVOkne == SelectDialog;
  21.     case VyberVOkne part
  22.       case>1 :>uloºit>
  23.                rem> následuje uloºení do souboru
  24.                From VenDemo;
  25.              :<uloºit<    rem> ven z dialogu
  26.       case>2 WriteInfoLine('Data nebudou uloºena do souboru.');
  27.     :case<
  28.   :loop< VyberVOkne = 2;
  29.   @VenDemo<
  30.   CloseDialog;
  31. :<oknodialog<