SetTextJustify

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.