Процедура GetTextSettings
Модуль Graph
Возвращает установки для вывода текста в графическом режиме.
Объявление:
Procedure GetTextSettings(Var TextInfo : TextSettingsType);
Режим:
Замечания:
Возвращает текущий шрифт, направление, размер и выравнивание текста,
установленные процедурами 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.
Пример программы: gettxtst.pas
См. также: