home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / LIB / RIDICI.LIB < prev   
Text File  |  2001-05-14  |  605b  |  24 lines
  1. DefFrom EndProg; 
  2. Follow        rem> oznaƒení ²ídící ƒásti programu
  3.   InitFB;     rem> inicializace grafického reºimu / jednotka GraphFBP!
  4.   OpeningOptional('SYSTEM\LOGOTFB.LMG','ΘVODN╓ PLOCHA',SubF,'BENHARD.FNP');
  5.   {.....}
  6.   {.....}
  7.   {.....}
  8.   CursorOn;
  9.   :loop>
  10.      WatchCursor;
  11.  
  12.      if LeftMousButton part   rem> sekvence po stlaƒení levého tlaƒítka myτi
  13.        CursorOff;
  14.        {....}
  15.        {....}
  16.        {....}
  17.        CursorOn;
  18.      :if<lfmous<
  19.  
  20.   :loop< EndLoop;
  21.   @EndProg<
  22.   DisposeFB;   rem> vypnutí grafického reºimu
  23. EndFo          rem> konec ²ídící ƒásti programu
  24.