Změny

Skočit na navigaci Skočit na vyhledávání

SetTextJustify

Přidáno 1 406 bajtů, 4. 10. 2012, 16:38
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]]
Citováno z „https://trsek.com/pascal/Speciální:Mobilní_rozdíl/902“

Navigační menu