home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 July
/
Chip_2001-07_cd1.bin
/
ctenari
/
Cerny
/
INSTALLF.EXE
/
rar
/
FREETFB
/
DOC
/
LINICO.DOC
< prev
next >
Wrap
Text File
|
2001-03-01
|
3KB
|
80 lines
~16|0|05 Jednotka LinIco.fbl
|1|05 N.1 NewLineIcoXY(X,Y);
První p²íkaz pro vytvo²ení ²ady (liτty) ikonov∞ch
tlaƒítek o velikosti od 16x16 do 37x37 bodà.
Parametry X a Y urƒují lev∞ horní roh prvního
ikonového tlaƒítka.
|1|05 I.2 LineIco('IKONA','Informace',Stav);
Druh∞ p²íkaz urƒí jak∞ obrázek (ikonu) bude mít
tlaƒítko. |1|12Obrázek/ikona musí b∞t uloºen v podadresá²i
|1|12SYSTEM, proto se jiº cesta k obrázku neuvádí. Neuvádí
|1|12se ani koncovka obrázku typu .lmg, kterou si tato funkce
|1|12p²idá sama.
Do druh∞ch uvozovek lze uvést struƒnou informaci
k ikonovému tlaƒítku (max.40 znakà), která bude vypsána
po stisku pravého tlaƒítka myτi v tzv. nálepce. Poslední
parametr Stav urƒuje, zda bude ikona p²ístupná (Active)
nebo nep²ístupná (NoActive);
|1|05 B.1 BlankLineIco;
Vytvo²í mezeru mezi ikonami. To umoºσuje umíst╪ní
ikonov∞ch tlaƒítek v lince do skupin, které budou
odd╪leny plastickou mezerou.
|1|05 O.1 OpenLineIco(Auto);
|1|05 OpenLineIco(Manual);
Provede umíst╪ní ²ady ikonov∞ch tlaƒítek od pozice
zadané prvním p²íkazem. Pokud bude uveden parametr Auto,
vytvo²í se automaticky pod celou ²adou ikon plastická
plocha. Její délka bude urƒena podle poƒtu vτech ikon.
V p²ípad╪ uvedení parametru Manual se tato plocha
nevytvo²í.
|1|05 P.1 PosLineIco(N);
Zjiτ£uje, zda bylo kliknuto na pozici ikonového
tlaƒítka po²adí uvedeného parametrem N.
Pokud tomu tak je, vrací hodnotu TRUE.
P²íklad:
|1|09 if PosLineIco(4) ...
|1|09 P.2 PosAreaLineIco;
Funkce zjiτ£uje zda bylo kliknuto v celé oblasti
vτech ikon sloupce. Funkce nám tak uτet²í mnoho
²ádkà zdrojového textu, nebo£ sama dále zjistí pozici
kurzoru a podle toho vyvolá nap². informaci k ikon╪,
jak màºete vid╪t na následujícím p²íkladu...
|1|05 I.2 InfoLineIco;
Vypíτe informaci v tzv. nálepce k ikon╪, na které bylo
kliknuto prav∞m tlaƒítkem. Tato procedura se pouºívá ve
spojení s p²edeτlou funkcí |1|12PosAreaLineIco.
P²íklad pouºití:
|1|05if RightMousButton part
|1|05 CursorOff;
|1|05 if PosAreaLineIco next InfoLineIco;
|1|05 CursorOn;
|1|05:if<
|1|05 O.2 OrigLineIco(N);
Pokud byla spln╪na podmínka u funkce PosLineIco,
tlaƒítko bylo stlaƒeno. Po provedení p²ísluτné
ƒásti programu je t²eba vrátit vzhled tlaƒítka
tímto p²íkazem zp╪t do stavu nestaleƒeného.
P²íklad:
|1|05if PosLineIco(4) part
|0|05 {provedení ƒásti programu}
|1|05 OrigLineIco(4);
|1|05:if<
|1|05 L.1 LockLineIco(N);
Pokud je pot²eba n╪které ikonové tlaƒítko v programu
na urƒitou dobu znep²ístupnit (nefunkƒní), zadáme
tento p²íkaz, kde uvedeme po²adí ikony místo
parametru N.
|1|05 U.1 UnLockLineIco(N);
Ikonové tlaƒítko po²adí parametru N bude op╪t funkƒní.