Otevřít hlavní menu

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.