1 578
editací
Změny
Created page with "Pošle řetězec na výstupní zařízení. ;Deklarace procedure OutTextXY(X,Y: Integer; TextString: string); ;Režim :Reálný, Chráněný ;Poznámky :Zobrazí [[TextStr..."
Pošle řetězec na výstupní zařízení.
;Deklarace
procedure OutTextXY(X,Y: Integer; TextString: string);
;Režim
:Reálný, Chráněný
;Poznámky
:Zobrazí [[TextString]] v místě (X, Y). [[TextString]] je odříznut na hranici výřezu, je-li příliš dlouhý. Pokud je aktivní některý vektorový font, je [[TextString]] odříznut na kraji obrazovky, je-li příliš dlouhý. Pokud je aktivní implicitní (bitmapový) font a [[TextString]] je příliš dlouhý, než aby se vešel na obrazovku, nezobrazí se žádný text.
:[[OutText]] použijte k výstupu textu v místě CP; [[OutTextXY]] použijte k výstupu kdekoli jinde na obrazovce.
:[[OutTextXY]] používá font nastavený pomocí [[SetTextStyle]]. Pro udržení kompatibility kódu při používání několika fontů použijte k určení rozměrů řetězce volání [[TextWidth]] a [[TextHeight]].
:[[OutText]] používá výstupní volby, nastavené pomocí [[SetTextJustify]] (zarovnání, centrování, otočení o 90 stupňů atd.).
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[OutText]]
:[[SetTextStyle]]
:[[SetUserCharSize]]
:[[TextHeight]]
:[[TextWidth]]
Vzorový příklad
{Outtxtxy.PAS}
{Vzorový příklad pro proceduru OutTextXY.}
uses Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
MoveTo(0, 0);
OutText('Nedostatečné');
Readln;
OutTextXY(GetX, GetY, 'Také nedostatečné');
Readln;
ClearDevice;
OutTextXY(0, 0, 'Perfect!'); { Nahrazuje výše uvedené }
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure OutTextXY(X,Y: Integer; TextString: string);
;Režim
:Reálný, Chráněný
;Poznámky
:Zobrazí [[TextString]] v místě (X, Y). [[TextString]] je odříznut na hranici výřezu, je-li příliš dlouhý. Pokud je aktivní některý vektorový font, je [[TextString]] odříznut na kraji obrazovky, je-li příliš dlouhý. Pokud je aktivní implicitní (bitmapový) font a [[TextString]] je příliš dlouhý, než aby se vešel na obrazovku, nezobrazí se žádný text.
:[[OutText]] použijte k výstupu textu v místě CP; [[OutTextXY]] použijte k výstupu kdekoli jinde na obrazovce.
:[[OutTextXY]] používá font nastavený pomocí [[SetTextStyle]]. Pro udržení kompatibility kódu při používání několika fontů použijte k určení rozměrů řetězce volání [[TextWidth]] a [[TextHeight]].
:[[OutText]] používá výstupní volby, nastavené pomocí [[SetTextJustify]] (zarovnání, centrování, otočení o 90 stupňů atd.).
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[OutText]]
:[[SetTextStyle]]
:[[SetUserCharSize]]
:[[TextHeight]]
:[[TextWidth]]
Vzorový příklad
{Outtxtxy.PAS}
{Vzorový příklad pro proceduru OutTextXY.}
uses Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
MoveTo(0, 0);
OutText('Nedostatečné');
Readln;
OutTextXY(GetX, GetY, 'Také nedostatečné');
Readln;
ClearDevice;
OutTextXY(0, 0, 'Perfect!'); { Nahrazuje výše uvedené }
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]