GetTextSettings

Vrací nastavení pro výstup textu v grafickém režimu.

Deklarace

procedure GetTextSettings(var TextInfo: TextSettingsType);

Režim

Reálný, Chráněný

Poznámky

Vrací aktuální textový font, směr, velikost a způsob zarovnání, nastavené procedurami SetTextStyle a SetTextJustify.

Viz také

InitGraph

SetTextJustify

SetTextStyle

TextHeight

TextWidth

Vzorový příklad

{Gettxtst.PAS}
{Vzorový příklad pro proceduru GetTextSettings.}
uses Graph;
var
  Gd, Gm: Integer;
  OldStyle: TextSettingsType;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  GetTextSettings(OldStyle);
  OutTextXY(0, 0, 'Starý styl textu');
  SetTextJustify(LeftText, CenterText);
  SetTextStyle(TriplexFont, VertDir, 4);
  OutTextXY(GetMaxX div 2, GetMaxY div 2, 'Nový styl');
  with OldStyle do
  begin                 { Obnovení starého stylu textu }
    SetTextJustify(Horiz, Vert);
    SetTextStyle(Font, Direction, CharSize);
  end;
  OutTextXY(0, TextHeight('H'), 'Opět starý styl');
  Readln;
  CloseGraph;
end.