Chip 2001 July/Chip_2001-07_cd1.bin/ctenari/Cerny/INSTALLF.EXE/rar/FREETFB/DOC/GRAPHFBP.DOC

Text File | 2001-05-06 | 18KB | 433 lines

~16|0|05 Pⁿ╓KAZY A FUNKCE
~16|0|05 JEDNOTKY "GraphFBP":

~16|0|09 1.0   ⁿ╓D╓C╓ JEDNOTKA "GraphFBP"

~16|0|05    < B >

 |1|09 B.2  BmgToArea(X1,Y1,X2,Y2,MaxX,MaxY,'NAME.BMG',TV,BP);
  Vyplní plochu dle parametrà X1,Y1,X2 a Y2 obrázkem formátu BMG.
  Parametr MaxX urƒuje maximální Xovou hranici, po kterou smí b∞t
  obrázek opakovan╪ vykreslován. Obdobnou funkci plní parametr
  MaxY. Parametrem TV màºeme urƒit typ zobrazení obrázku a p²ípadn╪
  v této souvislosti zm╪nit barvu pozadí obrázku.

~16|0|05    < C >

~16|0|05    < D >
 |1|09 D.1   DisposeFB;
 Nastaví zp╪t pàvodní textov∞ reºim, uvolní alokované pam╪£ové
 buσky, a zruτí v podadresá²i TEMP vτechny soubory s koncovkou
 UND a .DTA, které vytvo²ily jednotky p²i ukládání pozadí
 (.UND) a p²i p²evodu textov∞ch souborà pro v∞pis (.DTA).

 |1|09 D.2  DrawRectangle(X1,Y1,X2,Y2,Barva);
  Vykreslí rámeƒek na zadan∞ch pozicích a zadan∞ch rozm╪rech
  a zadanou barvou. P²ed voláním této funkce lze pouºít také
  funkci SetLineType. Po provedení je vτak nutné op╪t urƒit
  pàvodní SetLineType, kter∞m byl p²ed voláním DrawRectangle.

~16|0|05    < E >
 |1|09 E.1  EndLoop;
  Pouºívá se pro uzav²ení cyklu repeat...until v ƒásti
  programu, která je obsluhována myτí. Pokud za p²íkazem until
  pouºijeme tuto funkci, cyklus bude stále uzav²en.
  Pro opuτt╪ní cyklu musíme pouºít p²íkaz GOTO nebo stisknutí
  prost²edního tlaƒítka myτi (stejn∞ efekt nastane stikem
  levého a pravého tlaƒítka myτi souƒasn╪).
  P²íklad:
 |0|09 :Loop>
 |0|09  if LeftMousButton part
 |0|09   if PosCursor(10,80,200,220) From EndProg;
 |0|09  :if<
 |0|09 :loop< EndLoop;

 |1|09 E.2 ErrInfoLine('TlaĒtkoTRUE','TlaĒtoFALSE',
 |1|09                  '²et╪zec');
  Pro ràzná krátká hláτení o dalτím postupu programu nebo
  vznikl∞ch chybách lze vyuºít spodního dialogového ²ádku.
  P²edpokladem vτak je, ºe program byl zapoƒat p²íkazem
  OpeningArea. Do této funkce nejprve uvedeme obsah levého
  (TRUE) tlaƒítka, obsah pravého (FALSE) tlaƒítka a text
  pot²ebného hláτení. Pokud bude v programu zvoleno první
  tlaƒítko za textem, zapíτe se do prom╪nné ChoicePositive
  hodnota TRUE. P²i volb╪ druhého tlaƒítka se zapíτe FALSE.
  V programu pak tuto situaci ²eτíme následovn╪:
 |1|09  ErrInfoLine('Ukonƒit','Opakovat',
 |1|09              'Tiskárna nekomunikuje!');
 |1|09  if ChoicePositive From Konec else ....

 |1|05 E.3 ErrFileInfoLine(Soubor);
    Zjiτ£uje existenci souboru. Pokud tomu tak není, vypíτe
 chybové hláτení do spodního informaƒního ²ádku dopln╪né
 tlaƒítkem "Budiº".
 P²íklad:
   |0|09variable~
   |0|09  text~ft;
   |0|09Main Nahraj(Soubor:string);
   |1|09DefFrom Chyba;
   |0|09:>proc>
   |1|09  if ErrInfoLine(Soubor) from Chyba;
   |0|09  OpenF(ft,Soubor);
   |0|09  .....
   |0|09  Close(ft);
   |1|09  @Chyba<
   |0|09:<proc<

~16|0|05    < F >

 |1|09 F.4  FillArea(X1,Y1,X2,Y2,Barvou);
  V podstat╪ vytvo²í plochu na uveden∞ch pozicích o zadan∞ch
  rozm╪rech a barvou.

 |1|09 F.5  FillInfoLine;
  Pokud pot²ebujeme uvolnit spodní informaƒní ²ádek, ve kterém
  se nalézá informace, která jiº neplatí, pouºijeme tuto
  funkci.

 |1|09 F.6  FillPattern(X1,Y1,X2,Y2,Barva);
  Vykreslí vzor na uvedn∞ch pozicích o zadan∞ch rozm╪rech
  a zadanou barvou.

~16|0|05    < G >
 |1|05 G.1  GetLmgSize('Soubor.LMG');
  Zjistí rozm╪r obrázku typu .LMG. Tato funkce je vhodná
  nap². v p²ípad╪, ºe vedle obrázku bude umíst╪na n╪jaká dalτí
  plocha nebo text ap., Abychom zjistili od jaké pozice màºe
  dalτí plocha nebo text následovat vyuºijeme záznamu v
  prom╪nné SizeX = τí²ka obrázku a SizeY = hloubka
  obrázku. Chceme-li nap²íklad pod obrázek umístit text
  uƒiníme to následovn╪:
  P²íklad:
 |0|09  GetLmgSize('KRAJINA.LMG');
 |0|09  LoadLmg(10,50,'KRAJINA.LMG',0);
 |0|09  TextGraphXY(10,50+SizeY,0,SysF,
 |0|09             'Pohled na zasn╪ºené chaloupky.',DBlue);

 |1|09 G.2  GetBmgSize('Soubor.BMG');
  Zjistí rozm╪r obrázku typu .BMG. Tato funkce je vhodná
  nap². v p²ípad╪, ºe vedle obrázku bude umíst╪na n╪jaká
  dalτí plocha nebo text ap., Abychom zjistili od jaké pozice
  màºe dalτí plocha nebo text následovat vyuºijeme záznamu v
  prom╪nné SizeX = τí²ka obrázku a SizeY = hloubka
  obrázku. Chceme-li nap²íklad pod obrázek umístit text
  uƒiníme to následovn╪:
  P²íklad:
 |0|09  GetBmgSize('KRAJINA.BMG');
 |0|09  LoadBmg(10,50,0,'KRAJINA.BMG',0,0);
 |0|09  TextGraphXY(10,50+SizeY,0,SysF,
 |0|09             'Pohled na zasn╪ºené chaloupky.',DBlue);

 |1|09 G.4  GetPicture(X1,Y1,X2,Y2,Pam؜);
  Obdoba pàvodní funkce GetImage(X1,Y1,X2,Y2,Pam^) s tím
  rozdílem, ºe u prom╪nné typu Pointer (Pam) neuvádíme znak
  pro ^ (Pointer):
      GetPicture(X1,Y1,X2,Y2,Pam).

 |1|09 G.5   GetPointXY(X,Y);
 Zjiτ£uje barvu bodu (pixelu) na obrazovce na uvedené pozici
 X a Y. Zjiτt╪nou hodnotu vrací jako WORD. Je to obdoba
 pàvodní funkce GetPixel.

 |1|09 G.6   GraphDriveName
  Náhrada pàvodní funkce GetDriveName. Pouºití je shodné.

~16|0|05    < Ch >

~16|0|05    < I >

 |1|09 I.1  InitFB;
  Nastaví grafick∞ reºim 800x600 bodà. P²ítomen musí b∞t
  grafick∞ ovladaƒ (svgatfb .BGI). Dále nastaví dàleºité
  prom╪nné na poƒáteƒní hodnoty, nainstaluje systémov∞ a
  nadpisov∞ font.
  Protoºe vτechny jednotky jsou obsluhovány zásadn╪ myτí,
  zjistí zda je instalován ovladaƒ myτi, pokud tomu tak není
  nebude instalace úplná a màºe dojít k "zamrznutí" programu!

 |1|09 I.2 InstallUserPalette(pal,'JMENO.PAL');
    Tento p²íkaz nahraje a nainstaluje paletu ze souboru, jehoº
 jméno bylo uvedeno v uvozovkách. Pokud soubor nenajde, nebude
 nahrán ani instalován.

~16|0|05    < K >

~16|0|05    < L >

 |1|09 L.1   LenSysF('²et╪zec');
 |1|09 L.1   LenSubF('²et╪zec');
 Jednotky TPFAST pracují se dv╪ma typy proporcionálního písma.
 Systémové písmo resp. SysF je velikosti maximáln╪ 8 x 14 bodà
 a druhé tzv.nadpisové písmo resp. SubF je velikosti maximáln╪
 16 x 16 bodà. Kaºdá tato sada je uloºena v rozdílném datovém
 poli. Písma SysF jsou ukládána jako byte, písma typu SubF
 jsou typu word. Jelikoº kaºd∞ znak má jinou τí²ku, musí b∞t
 pro p²ípad pot²eby zjiτt╪ní skuteƒné délky ²et╪zce m╪²ena
 v poƒtech bodà, které odpovídají τí²ce kaºdého znaku.
 Zjiτt╪nou délku ²et╪zce vrátí jako ƒíslo vyjad²ující
 skuteƒnou délku ²et╪zce v grafick∞ch bodech.

 |1|09 L.2  LineDraw(X1,Y1,X2,Y2,Barva);
  Nahrazuje pàvodní p²íkaz Line. Pouºití je shodné s tím
  rozdílem, ºe lze pouºít urƒení barvy linky - 0 aº 15.

 |1|09 L.3  LmgToArea(X1,Y1,X2,Y2,MaxX,MbaxY,'NAME.LMG',TV,BP);
  Vyplní plochu dle parametrà X1,Y1,X2 a Y2 obrázkem formátu LMG.
  Parametr MaxX urƒuje maximální Xovou hranici, po kterou smí b∞t
  obrázek opakovan╪ vykreslován. Obdobnou funkci plní parametr
  MaxY. Parametrem TV màºeme urƒit typ zobrazení obrázku a p²ípadn╪
  v této souvislosti zm╪nit barvu pozadí obrázku.

 |1|09 L.4  LoadArea(X1,Y1,'Soubor .UND',TV);
  Vrátí zp╪t na plochu obrazovky prve uloºenou plochu
  p²íkazem SaveArea. Soubor pro vrácení musí mít stejn∞
  název a stejné rozm╪ry levého horního rohu jako prve
  uloºen∞ soubor. Pokud má koncovku .UND bude tento soubor
  po vrácení na obrazovku automaticky smazán. Parametr TV
  urƒuje typ vykreslení plochy (viz. konstanty a prom╪nné)

 |1|09 L.5  LoadSysF('soubor.FND');
  Nainstaluje zvolen∞ systémov∞ font. Fonty jsou vytvá²eny
  programem EditFn, kter∞ je souƒástí programovacího balíku.
  Tyto soubory mají koncovku FND.

 |1|09 L.6 LoadSubF('soubor.FNP');
  Nainstaluje zvolen∞ nadpisov∞ font. Fonty jsou vytvá²eny
  programem EditFont, kter∞ je souƒástí programovacího balíku.
  Tyto soubory mají koncovku FNP.

 |1|09 L.7 LoadConF('soubor.FND');
 Nainstaluje zvolen∞ neproporcionální font velikosti 7x14 bodà.
 Standartn╪ je nahráván font CONSUL.FND. Lze vytvo²it nebo
 upravit vlastní v programu EditFn.

 |1|09 L.8 LoadLmg(X,Y,'Soubor .LMG',TypZobrazení,BP);
  Nainstaluje a vykreslí obrázek typu .LMG. Lev∞ horní roh
  obrázku bude na pozici X a Y. Obrázek bude vykreslen podle
  zadaného typu (Typ) bu╘to normáln╪, inverzn╪, pràhledn╪
  a nebo se zm╪nou barev. Parametr BP urƒuje barvu plochy na
  které bude obrázek vykreslen. Základní hodnota je nula, jinak
  se tento parametr uvádí pouze ve spojitosti s typem zobrazení.
 |1|05  Obrázek smí mít maximální velikost 64kB!

 |1|05 L.9  LoadBmg(X,Y,MaxY,'Soubor.BMG',TypZobrazení,BP);
  Nainstaluje a vykreslí obrázek typu .BMG (BigImageGraphics).
  Protoºe pascalovská funkce PutImage dovoluje vykreslit
  (a GetImage uloºit) obrázek pouze do velikosti 64kB, byl
  vyvynut tento nov∞ formát, kter∞ je sice stejného typu,
  ale màºe mít velikost aº celé obrazovky. Lev∞ horní roh
  obrázku bude na pozici X a Y. Obrázek bude vykreslen podle
  zadaného typu (Typ) bu╘to normáln╪, inverzn╪, pràhledn╪ a
  nebo se zm╪nou barev. Pokud se v této souvislosti uvede
  jako parametr BP i barva plochy, dojde tím k zajímavému
  efektu zobrazení obrázku. Jinak se parametr BP zadává
  hodnotou nula. Parametr MaxY umoºσuje urƒit maximální
  Yovou pozici pro vykreslení obrázku. Pokud má b∞t zachována
  pàvodní velikost obrázku, uvedeme za parametr MaxY hodnotu
  nula.
  P²íklad vykreslení obrázku ve své originální podob╪:
  |0|09LoadBmg(4,27,0,'BMG\KRAJINA.BMG',0,0);
  P²íklad vykreslení obrázku se zm╪nou typu vykrelsení:
  |0|09LoadBmg(4,27,0,'BMG\KRAJINA.BMG',2,1);
  P²íklad vykreslení obrázku se zm╪nou jeho velikosti:
  |0|09LoadBmg(4,27,350,'BMG\KRAJINA.BMG',0,0);

~16|0|05    < N >

~16|0|05    < O >

 |1|09  O.1  OpeningOptional('ICO.LMG','Hlaviƒka',TF,'FONT.FND');
  Vytvo²í základní (úvodní) plochu o rozm╪ru 800x600 bodà. Do levého
  horního rohu je moºné umístit ikonu 16x16b. Parametr TF urƒuje
  typ fontu pro v∞pis hlaviƒky plochy, kter∞ màºe b∞t SysF (písmo
  8x16) nebo SubF (písmo 16x16). Pro typ SysF se pouºije font, kter∞
  má koncovku .FND a pro SubF s koncovkou .FNP.

  |1|09 O.2 OptionalArea(Stav,X,Y,X2,Y2,SS,TS,BP);
  Vytvo²í plastickou plochu o zadan∞ch rozm╪rech X,Y,X2,Y2. Barevné
  provedení plochy bude podle parametrà SS = sv╪tl∞ stín, TS = tmav∞
  stín a BP = barva plochy. Parametr stav urƒuje, zda bude plocha
  promáƒklá = Active, nebo vystouplá = NoActive.

~16|0|05    < P >

 |1|09 P.2  PictureSize(X1,Y1,X2,Y2);
  Nahrazuje pàvodní funkci ImageSize a pouºívá se stejn∞m
  zpàsobem.

 |1|09 P.3  PosCursor(MinX,MaxX,MinY,MaxY)
  Zjiτ£uje zda se kurzor nalézá v uvedené oblasti. Uvádí se
  minimum a maximum horizontáln╪ a vertikáln╪. Pokud tomu tak
  je, nab∞vá tato funkce hodnotu TRUE.
  Pouºití:
 |0|09   if PosCursor(120,190,200,220) ....

 |1|09 P.4  PutPicture(X,Y,Pam╪£,TypZobrazení);
  Obdoba pàvodni funkce PutImage, uvádí se :
               PutPicture(X,Y,Pam,0);
  Jako typ màºe b∞t uvedena hodnota 0 aº 4.

~16|0|05    < S >
 |1|09 S.1  SaveArea(X1,Y1,X2,Y2,'Soubor .UND');
  Tato funkce uloºí plochu obrazovky o zadan∞ch rozm╪rech
  jako soubor typu LMG. Pokud si nep²ejeme aby tento soubor
  po skonƒení zàstal na disku, umístíme ho do podadresá²e
  TEMP s koncovkou .UND. P²íkaz DisposePGU na konci programu
  pak vτechny soubory s koncovkou .UND v podadresá²i TEMP
  smaºe.
 |1|05 POZOR! Nepouºívejte tento p²íkaz pokud si nejste jisti,
 |1|05 ºe ukládaná plocha není v╪tτí neº 64kb. Pro v╪tτí plochy
 |1|05 rad╪ji pouºijte následující funkci.

 |1|09 S.2  SaveBmg(X1,Y1,X2,Y2,'Soubor.BMG');
  Uloºí obrázek typu BigMagicGraphics, tzn., ºe jeho rozm╪ry
  mohou dosahovat plochy celé obrazovky (800x600bodà).
  Pokud p²íkaz pouºijete pro doƒasné uloºení p²ekr∞vané
  plochy, uve╘te koncovku souboru .UND a soubor uloºte do
  podadresá²e TEMP. Po ukonƒení vaτeho programu bude tento
  soubor smazán.

  |1|09 S.3 SaveUserPalette(pal,'JMENO.PAL');
    Parametr pal je povinn∞ a musí b∞t vºdy uveden. Do uvozovek
  uvedeme název souboru palety s koncovkou .PAL.

 |1|09 S.6  SetMargin(MaxX);
  Pokud poºadujeme omezit v∞pis textu jen na urƒitou hranici,
  màºeme pouºít tento p²íkaz. Text nebude za nastavenou
  hranici vypisován.

 |1|09 S.8   SetPointXY(X,Y,Barva);
 Vykreslí bod na obrazovce, na pozici X,Y uvedenou barvou.
 Je to obdoba pàvodního p²íkazu PutPixel.

 |1|09 S.9  SetLineType(Ln,N,Dw);
  Obdoba pàvodní funkce SetLineStyle nastaví zpàsob kreslení
  ƒar. Platí pro vτechny funkce, které kreslí ƒáry (tlaƒítka,
  rámeƒky, linky atd.) Pouºití je shodné.
     Ln = 0 plná ƒára,
     Ln = 1 teƒkovaná ƒára,
     Ln = 2 ƒerchovaná ƒára,
     Ln = 3 ƒárkovaná ƒára,
     Dw = 1 normální ƒára,
     Dw = 3 tuƒná ƒára.
     Parametr N se pouºívá p²i vlastní definici ƒáry, jinak
  se uvádí 0;

 |1|09 S.10 SetFixTfb(MlSec);
    Protoºe kompilátor TFBPro byl pàvodn╪ urƒen pro poƒítaƒe
 s procesorem 386, zrychluje ƒinnost aplikace ve formátu .exe
 tak, aby byla srovnatelná s aplikací vytvo²ené ve strojím
 kódu. |1|12Tato jeho dobrá vlastnost se vτak nep²ízniv╪ projevuje
 |1|12na poƒítaƒích s rychlejτím procesorem od 486 a v∞τe (100MHz,
 |1|12200MHz a v∞τe). |0|12Standartn╪ je v p²íkazu InitFB nastaveno
 ƒekání na |1|1250 milisekund. |0|12Tento p²íkaz zjiτ£uje typ
 procesoru poƒítaƒe, na kterém je aplikace spuτt╪na, a pokud
 je procesor vyττí neº 386 |1|12násobí tuto hodnotu 5 krát, |0|12coº
 je tady 250 milisekund. Màºe se stát, ºe tato hodnota
 nebude optimální pro danou aplikaci. V takovém p²ípad╪
 umístíme do aplikace |1|12hned za p²íkaz InitFB |0|12tento p²íkaz
 |1|09SetFixTfb |0|12s pot²ebnou hodnotou, kterou uvádíme ve standartní
 velikosti (nap². 100, nap².200 nebo 400 apod.), která pak
 |1|12bude |0|12tímto p²íkazem |1|125 krát zv∞τena.


~16|0|05    < T >

 |1|09 T.1 TextGraphXY(X,Y,Typ,TypFontu,'²et╪zec',
 |1|09                  BarvaPísma);
  Vypíτe ²et╪zec na pozici X,Y.
  Jako typ se uvádí: 0 = normální písmo, nebo 1 = tuƒné písmo.
  Typ fontu màºe b∞t SysF tj. systémov∞ font velikosti 8x14,
  nebo ConF neproporcionální typ fontu o velikosti 7x14 bodà,
  nebo SubF tj. nadpisov∞ velikosti 16x16 bodà. Barva písma
  màºe b∞t zadána uvedením názvu barvy podle tabulky barev
  palety základních barev TFBPro, nebo ƒíslenou hodnotou
  od 240 do 256. Do textu màºe b∞t umíst╪na ikona velikosti
  16 aº 47 bodà na τí²ku a 16 bodà na v∞τku. Uvádí se cesta
  k ikon╪ a její jméno bez p²ípony .LMG, kterou si funkce
  doplní sama. Tento údaj musí b∞t uzav²en do speciálních
  znakà, pro tento úƒel vytvo²en∞ch ùCESTA\JMENOù. Tento
  znak vypíτete stiskem klávesy ALT a zadáním ƒísel (za
  souƒasného drºení kl. ALT) 2,5, a 1  (251).
  P²íklad:
 |0|09    TextGraphXY(10,100,0,SysF,²et╪zec,White);
      ²et╪zec bude vypsán normálním systémov∞m písmem a bílou
      barvou,
 |0|09    TextGraphXY(10,100,1,SubF,'ùSYSTEM\BOMBAù Ukonƒí',DBlue);
      ²et╪zec bude vypsán tuƒn∞m nadpisov∞m písmem modrou
      barvou, a p²ed textem bude ikona BOMBA.LMG z podadresá²e
      SYSTEM.

~16|0|05    < W >

 |1|09 W.1  WinOptional(PlYes,TlEsc,X1,Y1,X2,Y2,
 |1|09                  'ICO.LMG','Hlaviƒka',BP);
  Za parametr PlYes dosadíme hodnotu Area, pokud nebudeme urƒovat
  vlastní barvu vnit²ní plochy okna (v tomto p²ípad╪ uvedeme jako
  parametr BP hodnotu 0) nebo Overlap a jako parametr BP uvedem
  ƒíslo barvy pro vnit²ní plochu okna. Parametr TlEsc vyjad²uje,
  zda má b∞t okno vybaveno tlaτítkem ESC pro opuτt╪ní okna.
  Uvádí se parametr ESC nebo NoEsc. Pokud uvedeme ESC musíme
  obslouºit toto tlaƒítko funkcí if PosEsc .... v sekvenci, ve
  které bylo okno aktivováno. Pokud toto okno vybavíme vlastními
  funkcemi, nap². tlaƒítky, které uzavírají okno za dan∞ch
  podmínek, rad╪ji toto tlaƒítko nepouºijeme. Dále uvedeme rozm╪ry
  okna. P²ed hlaviƒku okna màºe b∞t umíst╪na ikona 16x16b, jejíº
  název se uvede i s cestou (pokud je odliτná) a úpln∞m názvem
  obrázku LMG. Do dalτích uvozovek uvedme text hlaviƒky okna.

 |1|09 W.2  WinChoiceXY(X,Y,'ICO.LMG','TlaĒtkoTRUE',
 |1|09                  'TlaƒítkoFALSE','²et╪zec');
  Jiº z názvu je z²ejmé, ºe se tato procedura pouºije v
  p²ípad╪, kdy je t²eba nabídnout uºivateli dalτí moºnost v
  postupu programu. Nap²íklad p²i uzav²ení jedné jeho ƒásti
  lze nabídnout volbu pro pokraƒování, uzav²ení, opravu a pod.
  Lev∞ horní roh okna bude na pozici X a Y. Text prvního
  tlaƒítka musí vyjad²ovat kladnou odpov╪╘. Volba tlaƒítek je
  vyhodnocena do prom╪nné ChoicePositive. Kliknutím na levé
  (první) tlaƒítko získá tato prom╪nná hodnotu TRUE a kliknutím
  na pravé (druhé) tlaƒítko hodnotu FALSE. Lze pouºít i jen
  jednoho tlaƒítka. V takovém p²ípad╪ místo textu druhého
  tlaƒítka uvedeme pouze prázdné uvozovky. Pokud za parametr
  ICO.LMG dosadíte skuteƒn∞ název ikony 16x16b formátu LMG, bude
  ikona umíst╪na p²ed textem hlaviƒky okna.
  Za text druhého tlaƒítka umístíme krátkou informaci (doporuƒ.
  max. 40 znakà).
  P²íklad:
 |0|09  if PosCursor(60,150,200,240) part
 |0|09    WinChoiceXY(150,200,'BOMBA.LMG','Ukonƒit','Pokraƒovat',
 |0|09                'Chcete ukonƒit program?');
 |0|09    if ChoicePositive From EndProgram;
 |0|09    ....;
 |0|09  :if<
  Nebo:
 |0|09  if PosCursor(60,150,200,240) part
 |0|09    WinChoiceXY(150,200,'VARUJ.LMG',' Budiτ ','',
 |0|09                'Tiskárna nekomunikuje.');
 |0|09    From EndProgram;
 |0|09    ....;
 |0|09  :if<

 |1|09 W.3  WriteInfoLine('²et╪zec');
  Pokud byla na poƒátku programu pouºita procedura
  OpeningArea, je moºné tuto funkci pouºívat pro struƒné
  informace urƒené obsluze programu. Informace je vypisována
  do spodního informaƒního ²ádku. Pokud nemá b∞t tato
  informace trvale nebo delτí dobu vypsána, pouºijeme
  nap²íklad bu╘to po Pause(1000) p²íkaz FillInfoLine nebo
  jej umístíme p²ed volání následující procedury. Jinak bude
  tento ²ádek automaticky smazán p²i dalτím pouºití programem.
  Do textu màºe b∞t umíst╪na ikona velikosti 16 aº 47 bodà
  na τí²ku a 16 bodà na v∞τku. Uvádí se cesta k ikon╪
  a její jméno bez p²ípony .LMG, kterou si funkce doplní
  sama. Tento údaj musí b∞t uzav²en do speciálních znakà,
  pro tento úƒel vytvo²en∞ch ùCESTA\JMENOù. Tento znak
  vypíτete pomocí klávesy ALT a zadáním ƒísla 251.

  P²íklad:
 |0|09 WriteInfoLine('Ukládám soubor "ADRESY.DTA" na C:\ADRESAR');
 |0|09 UlozeniSouboru;
 |0|09 FillInfoLine;