SetTextJustify: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(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...") |
m (1 revízia: Unit Graph) |
(Žádný rozdíl)
|
Aktuální verze z 4. 10. 2012, 17:01
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
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.