home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / LIB / POSLICO.LIB < prev    next >
Text File  |  2001-05-14  |  1KB  |  35 lines
  1.   rem> reakce na volbu z ikonov∞ch tlaƒítek na lince
  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 PosLineIco(1) part    rem> zjiτ£uje, zda se kurzor nalézá na pozici
  12.         {........}             rem> první ikony v ²ad╪ - zleva, je-li tomu  
  13.         OrigLineIco(1);        rem> tak, uvede ikonu jako stlaƒenou         
  14.       :if<ico1<                rem> Vrátí pàvodní stav nestlaƒené ikony     
  15.  
  16.       if PosLineIco(2) part    rem> zjiτ£uje, zda se kurzor nalézá na pozici
  17.         {........}             rem> druhé ikony v ²ad╪ - zleva, je-li tomu  
  18.         OrigLineIco(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 PosAreaLineIco next InfoLineIco; rem> bylo to v oblasti ²ady ikonov∞ch
  29.       CursorOn; rem> zapni kurzor              tlaƒítek? Pokud ano, piτ info
  30.     :if<rgmous<
  31.  
  32.   :loop< EndLoop;    rem> konec podmín╪né sekvence
  33.   CursorOff;
  34.   @EndAdr<           rem> náv╪τtí na opuτt╪ní sekvence
  35.