Процедура GetTextSettings

Модуль GRAPH

Возвращает установки для вывода текста в графическом режиме.

Объявление:

Procedure GetTextSettings(Var TextInfo : TextSettingsType);

Режим:

Protected,  Real

Замечание:

Возвращает текущий шрифт, направление, размер и выравнивание текста, установленные процедурами SetTextStyle и SetTextJustify.

Пример:

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, 'Old text style');
 SetTextJustify(LeftText, CenterText);
 SetTextStyle(TriplexFont, VertDir, 4);
 OutTextXY(GetMaxX div 2, GetMaxY div 2, 'New style');
 { Восстанавливаем старый стиль }
 With OldStyle Do
  Begin
     SetTextJustify(Horiz, Vert);
     SetTextStyle(Font, Direction, CharSize);
    End;
   OutTextXY(0, TextHeight('H'), 'Old style again');
   ReadLn;
   CloseGraph;
  End.