home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / DIALOGFB.DOC < prev    next >
Text File  |  2001-04-08  |  5KB  |  108 lines
  1. ~16|0|05  DialogFB.fbl
  2.  
  3.  |1|05 W.1  WinDialogXY(X,Y);
  4.   První ze skupiny p²íkazà pro vytvo²ení dialogového okna.
  5.   Parametry X a Y urƒují lev∞ horní roh dialogového okna.
  6.  
  7.  |1|05 D.3  DialogItem('Poloºka','vstupní data',
  8.  |1|05                 MPZ,NoOffer,0,'');
  9.  |1|05      DialogItem('Poloºka','vstupní data',
  10.  |1|05                 MPZ,OfferTo,20,'NABIDKA.DOC');
  11.   Druh∞ ze skupiny p²íkazà pro vytvo²ení dialogového okna.
  12.   Na místo 'Poloºka' se uvede skuteƒn∞ název poloºky,
  13.   na místo 'vstupní data' se uvede bud£o ²et╪zec nebo
  14.   prom╪nná obsahující vstupní data. Za parametr MPZ se
  15.   dosadí maximální povolen∞ poƒet znakà pro vstupní data.
  16.   Parametr NoOffer urƒuje samostatn∞ / nerozτí²en∞ ²ádek
  17.   pro vstupní data.
  18.   Parametr OfferTo urƒuje rozτí²en∞ ²ádek o dalτí nabídku
  19.   uvedenou v souboru 'NABIDKA.DOC'.
  20.   Pokud je ²ádek pro data rozτí²en o dalτí nabídku, musí
  21.   b∞t uveden maximální poƒet ²ádkà pro v∞pis nabídky a
  22.   cesta a jméno souboru s nabídkou 'Nabidka.doc'.
  23.   |1|12 DialogItem('Typ PC',Adresy.PC,30,OfferTo,
  24.   |1|12            20,'SYSTEM\TYPYPC.DOC');
  25.  
  26.  |1|05 D.2  DialogButt(1,' Text ');
  27.   T²etí ze skupiny p²ípazà pro vytvo²ení dialogového okna.
  28.   První parametr urƒuje po²adí tlaƒítka. Druh∞ parametr se
  29.   zadává do uvozovek jako text tlaƒítka.
  30.  
  31.  |1|05 A.1  AssignDialog('ico.lmg','Hlaviƒka okna',LGray,MLGray,'obr.pgf');
  32.   ¼tvrt∞ ze skupiny p²íkazà pro tvorbu dialogového okna.
  33.   Vytvo²í dialogové okno podle zadan∞ch parametrà v p²edeτl∞ch
  34.   p²íkazech. P²i tvorb╪ okna bere tato procedura v úvahu délku
  35.   textu poloºek a textu pro vstup dat, dále poƒet tlaƒítek
  36.   a jejich τí²ku (podle jejich textu), podle toho pak sestaví
  37.   grafick∞ tvar okna. P²ed text hlaviƒky umístí ikonu (16x16)
  38.   Parametr LGray urƒuje barvu plochy okna a parametr MLGray
  39.   sv╪tl∞ stín orámování okna (LGray=st²edn╪ τedá, MLGray=sv╪tle
  40.   τedá). Pokud bude jako poslední parametr v uvozovkách uveden
  41.   název obrázku formátu .PGF (p²íp.vƒetn╪ cesty), bude obrázek
  42.   umíst╪n po pravé stran╪ okna, které bude τirτí sm╪rem vpravo
  43.   práv╪ o τí²ku tohoto obrázku a hlubτí sm╪rem dolu o hloubku
  44.   (v∞τku Y1 aº Y2) obrázku. V takovém prípad╪ je dobré s tím
  45.   poƒítat p²ed stanovením levého kraje okna.
  46.  
  47.  |1|05 O.1  OpenDialog;
  48.   Pát∞ ze skupiny p²íkazà pro vytvo²ení dialogového okna.
  49.   Umístí dialogové okno na pracovní plochu a ƒeká na jeho
  50.   aktivaci.
  51.  
  52.  |1|05 S.1  SelectDialog;
  53.   Provádí ²ídící ƒinnost dialogového okna, zajiτ£uje volbu
  54.   poloºek, vstup dat, volbu nabídky a tlaƒítek. Rozhodující
  55.   je volba tlaƒítek, kterou vrací jako ƒíselnou hodnotu podle
  56.   po²adí tlaƒítek. Je-li v okn╪ zvoleno nap². t²etí tlaƒítko,
  57.   vrací hodnotu 3. Takto vrácenou hodnotu lze dále programov╪
  58.   zpracovávat. Vloºená vstupní data ukádá do prom╪nné
  59.                   Dialog[po²adí].Data
  60.   Po²adí vyjad²uje skuteƒné po²adí poloºek (od horní ƒásti okna).
  61.   P²íklad pouºití:
  62.   |0|09....
  63.   |0|09DialogButt(1,'Uloºit');
  64.   |0|09DialogButt(2,'Zp╪t');
  65.   |0|09AssignDialog('oteslozk.lmg','Adresá²',LGray,MLGray,'');
  66.   |0|09:loop>
  67.   |0|09 OpenDialog;
  68.   |0|09 let Vyber : SelectDialog;
  69.   |0|09 case Vyber part
  70.   |0|09   case>1 :let>
  71.   |0|09            Adr.Jm : Dialog[1].Data;
  72.   |0|09            Adr.Pr : Dialog[2].Data;
  73.   |0|09          :let<
  74.       atd...
  75.  
  76.  
  77.  |1|05 C.1  CloseDialog;
  78.   Poslední ze skupiny p²íkazà pro vytvo²ení dialogového okna.
  79.   Vrátí pàvodní plochu, kterou dosud p²ekr∞valo dialogové okno
  80.   a tím okno uzav²e.
  81.  
  82. ~16|0|05 D.4 Dialogov∞ ²ádek ²ízen∞ programátorem 
  83.  
  84.  |1|05 D.4  DialogLineXY(X,Y,Por,'poloºka','vstupní data',MaxData,
  85.  |1|05                   NabAnoNe,PrNab,'SouNab.DOC');
  86.  Pouºívá se pro umíst╪ní dialogového ²ádku ve vlastním dialogovém
  87.  okn╪ (jeho úprava není vytvá²ena jednotkou, ale programátorem).
  88.  Uvedou se parametry X a Y pro umíst╪ní levého horního okna
  89.  dialogového ²ádku a jeho po²adí. Do uvozovek se uvede jméno
  90.  poloºky a do dalτích p²ípadná vstupní data. Dále se musí uvést
  91.  maximální povolen∞ poƒet znakà pro vstupní data. Pokud bude ²ádek
  92.  vybaven dalτí nabídkou uvede se místo parametru NabAnoNe prom╪nná
  93.  OfferTo jinak se uvede NoOffer. Jako parametr PrNab se uvede poƒet
  94.  ²ádkà pro nabídku, dále jméno souboru s nabídkou. Jinak se uvede
  95.  0 a prázdné uvozovky ''.
  96.  
  97.  |1|05 P.1  PosDialogLine(N);
  98.  Zjiτ£uje, zda bylo kliknuto na pozici dialogového ²ádku po²adí N.
  99.  Pokud ano, vrací hodnotu TRUE jinak FALSE.
  100.  
  101.  |1|05 D.1  DialogEntry(N);
  102.  Pokud p²edeτlá funkce nabyla hodnotu TRUE lze pouºít tuto funkci
  103.  na aktivaci ²ádku pro vstup dat. Vloºená data jsou uloºena do
  104.  prom╪nné SetSys.DialogData.
  105.  P²íklad pouºití:
  106.  |0|09if PosDialogLine(1) next DialogEntry(1);
  107.  
  108.