home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / LIB / POSCICO.LIB < prev    next >
Text File  |  2001-05-14  |  1KB  |  36 lines
  1.   rem> reakce na volbu z ikonov∞ch tlaƒítek ve sloupci
  2.  
  3.   CursorOn; rem> zapni kurzor
  4.   :loop>    rem> zaƒátek podmín╪né sekvence
  5.     WatchCursor;               rem> sleduj pohyb kurzoru
  6.  
  7.     if LeftMousButton part     rem> bylo kliknuto na levé tlaƒítko myτi?
  8.  
  9.       CursorOff;               rem> vypni kurzor
  10.  
  11.       if PosColumIco(1) part   rem> zjiτ£uje, zda se kurzor nalézá na pozici
  12.         {........}             rem> první ikony ve sloupci, je-li tomu 
  13.         OrigColumIco(1);       rem> tak, uvede ikonu jako stlaƒenou
  14.       :if<ico1<                rem> Vrátí pàvodní stav nestlaƒené ikony 
  15.  
  16.       if PosColumIco(2) part   rem> zjiτ£uje, zda se kurzor nalézá na pozici
  17.         {........}             rem> druhé ikony ve sloupci, je-li tomu 
  18.         OrigColumIco(2);       rem> tak, uvede ikonu jako stlaƒenou
  19.       :if<ico2<                rem> Vrátí pàvodní stav nestlaƒené ikony 
  20.  
  21.       rem> atd...
  22.  
  23.       CursorOn;   rem> zapni kurzor
  24.     :if<lfmous<
  25.  
  26.     if RightMousButton part    rem> bylo kliknuto na pravé tlaƒítko myτi?
  27.       CursorOff;               rem> vypni kurzor
  28.       if PosAreaColumIco next InfoColumIco;   rem> bylo to v oblasti sloupce
  29.                                               rem> ikonov∞ch tlaƒítek? Pokud ano, piτ info
  30.       CursorOn;  rem> zapni kurzor
  31.     :if<rgmous<
  32.  
  33.   :loop< EndLoop;  rem> konec podmín╪né sekvence
  34.   CursorOff;
  35.   @EndAdr<         rem> náv╪τtí na opuτt╪ní sekvence
  36.