1 578
editací
Změny
Created page with "Nastavuje hodnoty zarovnávání textu, používané procedurami OutText a OutTextXY. ;Deklarace procedure SetTextJustify(Horiz, Vert: Word); ;Režim :Reálný, Chr..."
Nastavuje hodnoty zarovnávání textu, používané procedurami [[OutText]] a [[OutTextXY]].
;Deklarace
procedure SetTextJustify(Horiz, Vert: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Textový výstup po volání [[SetTextJustify]] bude zarovnán definovaným způsobem vzhledem k aktuální pozici (CP, current pointer). Jako příklad vezměme dvojici příkazů:
SetTextJustify(CenterText, CenterText);
OutTextXY(100, 100, 'ABC');
:Bod (100, 100) se objeví uprostřed písmena B. Implicitní nastavení zarovnávání lze obnovit příkazem [[SetTextJustify]](LeftText,TopText). Pokud zadáte nesprávné hodnoty parametrů, vrací [[GraphResult]] hodnotu grError a aktuální nastavení zůstávají v platnosti.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[GetTextSettings]]
:[[GraphResult]]
:[[OutText]]
:[[OutTextXY]]
:[[SetLineStyle]]
:[[TextHeight]]
:[[TextWidth]]
:[[Zarovnávání - konstanty]]
Vzorový příklad
{Settxtjs.PAS}
{Vzorový příklad pro proceduru SetTextJustify.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
{ Vycentrovat text na obrazovce }
SetTextJustify(CenterText, CenterText);
OutTextXY( Succ(GetMaxX) div 2, Succ(GetMaxY) div 2, 'Easily Centered');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure SetTextJustify(Horiz, Vert: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Textový výstup po volání [[SetTextJustify]] bude zarovnán definovaným způsobem vzhledem k aktuální pozici (CP, current pointer). Jako příklad vezměme dvojici příkazů:
SetTextJustify(CenterText, CenterText);
OutTextXY(100, 100, 'ABC');
:Bod (100, 100) se objeví uprostřed písmena B. Implicitní nastavení zarovnávání lze obnovit příkazem [[SetTextJustify]](LeftText,TopText). Pokud zadáte nesprávné hodnoty parametrů, vrací [[GraphResult]] hodnotu grError a aktuální nastavení zůstávají v platnosti.
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
:[[GetTextSettings]]
:[[GraphResult]]
:[[OutText]]
:[[OutTextXY]]
:[[SetLineStyle]]
:[[TextHeight]]
:[[TextWidth]]
:[[Zarovnávání - konstanty]]
Vzorový příklad
{Settxtjs.PAS}
{Vzorový příklad pro proceduru SetTextJustify.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
{ Vycentrovat text na obrazovce }
SetTextJustify(CenterText, CenterText);
OutTextXY( Succ(GetMaxX) div 2, Succ(GetMaxY) div 2, 'Easily Centered');
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]