home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 July
/
Chip_2001-07_cd1.bin
/
ctenari
/
Cerny
/
INSTALLF.EXE
/
rar
/
FREETFB
/
DOC
/
COMPFB.DOC
< prev
next >
Wrap
Text File
|
2001-03-01
|
2KB
|
61 lines
~16|0|05 Jednotka "CompFB.fbl"
|1|05 N.1 ü NewComponent;
Provede p²ípravu datového pole a pot²ebn∞ch prom╪nn∞ch pro tvorbu
okna kartotéky na poƒáteƒní nulové hodnoty.
|1|05 A.1 ü AssignComponent(Poƒet,X1,Y1,X2,Y2,SS,TS,BP);
Urƒí se Poƒet karet v kartotéce, jejíº okno bude mít rozm╪ry dle
údajà v X1,Y1,X2 a Y2. Za parametr SS dosadíme ƒíslo barvy sv╪tlého
stínu, za parametr TS ƒíslo barvy tmavého stínu orámování karty a za
parametr BP dosadíme ƒíslo barvy plochy karty. Základní barvy jsou
pro SS=MLGray(sv╪tle τedá/254), pro TS=DGray(tmav╪ τedá/252) a pro
barvu plochy BP=LGray(st²edn╪ τedá/253).
P²íklad pouºití pro kartotéku se ƒty²mi kartami:
|0|09AssignComp(4,40,100,520,300,MLGray,DGray,LGray);
|1|05 I.1 ü CompItem(N,'hlaviƒka');
Uvede se ƒíslo N po²adí karty a text, kter∞ bude umíst╪n v záhlaví
karty.
P²íklad pouºití:
|0|09CompItem(1,'V∞pis nabídky');
|1|05 B.1 ü CompButt(N,' text ');
Uvede se ƒíslo N po²adí textového tlaƒítka, které bude pouºito
v okn╪ kompletní kartotéky a text tlaƒítka.
P²íklad pouºití:
|0|09CompButt(1,'Uloºit konfiguraci');
|1|05 O.1 ü OpenComponent('ico.lmg','Hlavicka');
Provede aktivaci kartotéky podle zadan∞ch údajà a hodnot uveden∞ch
v p²edeτl∞ch p²íkazech. P²ed text hlaviƒky umístí ikonu (16x16).
U názvu ikony se uvádí p²ípadná cesta a úpln∞ název souboru .lmg.
P²íklad pouºití:
|0|09OpenComponent('system\telefon.lmg','Konfigurace');
|1|05 P.1 ü PosComp(N);
Zjiτ£uje, zda bylo kliknuto na pozici hlaviƒky karty uvedeného
po²adí N. Pokud tomu tak je, vrátí hodnotu TRUE.
P²íklad pouºití:
|0|09if PosComp(1) next Nabidka;
|1|05 P.2 ü PosCompButt(N);
Zjiτ£uje, zda bylo kliknuto na tlaƒítko okna kompletní kartotéky
uvedeného po²adí N. Pokud tomu tak je, vrátí hodnotu TRUE.
P²íklad pouºití:
|0|09if |1|09PosCompButt(1)|0|09 part
|0|09 UloºeníDat;
|0|09 OrigCompButt(1);
|0|09:if<
|1|05 O.2 ü OrigCompButt(N);
Pokud bylo aº dosud textové tlaƒítko kartotéky uvedeného po²adí N ve
stavu stlaƒeném, vrátí jeho pàvodní nestlaƒen∞ (neaktivní) stav.
P²íklad pouºití:
|0|09if PosCompButt(1) part
|0|09 UloºeníDat;
|1|09 OrigCompButt(1);
|0|09:if<