GetTextSettings

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 16:23, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Created page with "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 :...")
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
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.