home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / INFLABEL.DOC < prev    next >
Text File  |  2001-03-10  |  2KB  |  46 lines
  1. ~16|0|05 Jednotka InfLabel.fbl
  2.  
  3.    Umoºσuje vytvo²it mal∞ informaƒní rámeƒek, tzv. nálepku,
  4.  k poºadovanému místu na ploτe. Touto funkcí jsou jiº vybaveny
  5.  jednotky ButtIco pro ikonová tlaƒítka IcoChoice, LinIco pro
  6.  malá i velká ikonová tlaƒítka v jedné lince, ColIco pro 
  7.  malá i velká ikonová tlaƒítka ve sloupci a OButtFB pro 
  8.  automatická textová tlaƒítka AutoButt. Pro ostatní funkce 
  9.  a plochy slouºí tato procedura
  10.  
  11.  |1|05 1.1 InfoLabel(X1,Y1,X2,Y2,'informace');
  12.  
  13.    Parametry X1,Y1,X2 a Y2 urƒují prostor plochy, ke které bude
  14.  náleºet informace uvedená v uvozovkách. Nálepka bude aktivována
  15.  stiskem pravého tlaƒítka myτi v tomto uvedeném prostoru.
  16.  Její deaktivace nastane ve chvíli, kdy pohybem myτi tento prostor
  17.  opustíme.
  18.    Jako p²íklad si uvedeme aktivaci nálepek u setovacích tlaƒítek
  19.  z jednotky OneSetFB, která jinak touto funkcí není vybavena.
  20.  Urƒili jsme dv╪ tato tlaƒítka na t╪chto pozicích:
  21.  |1|05   ButtSet(NoActive,120,100,1,'¼eτtina',MLGray,LGray);
  22.  |1|05   ButtSet(NoActive,220,100,2,'Inverze',MLGray,LGray);
  23.  
  24.  Nálepky v programu pak aktivujeme následovn╪:
  25.     
  26.  |1|05 .....
  27.  |1|05 if RightMousButton part
  28.  |1|05   if PosCursor(120,210,100,120) next
  29.  |1|05            InfoLabel(120,100,210,120,'¼eské znaky');
  30.  |1|05   if PosCursor(220,310,100,120) next
  31.  |1|05            InfoLabel(220,100,310,120,'P²episování');
  32.  |1|05 :if<
  33.  
  34.   U funkce PosCursor uvedeme minimální a maximální Xovou hodnotu (120,210
  35.  a ve druhém p²ípad╪ 220 aº 310) a minimální a maximální Yovou hodnotu 
  36.  (v obou p²ípadech je to 100 aº 120). Jestli-ºe p²íkaz |1|12If |0|12potvrdí, ºe
  37.  bylo kliknuto prav∞m tlaƒítkem myτi v tomto prostoru, následná funkce
  38.  LabelInfo umístí nálepku s informací v uvozovkách pod pozici na které
  39.  se práv╪ nalézá grafick∞ kurzor. Nálepka je deaktivována v moment╪ kdy
  40.  se kurzor p²emístí mimo tuto plochu.
  41.  
  42.  
  43.  
  44.  
  45.  
  46.