GetTextSettings

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.