Правила форума
GetTextSettings (процедура) (модуль Graph)Язык:
Русский
English
GetTextSettings (процедура) (модуль Graph)
Возвращает установки для вывода текста в графическом режиме.
Объявление
Procedure GetTextSettings(Var TextInfo : TextSettingsType);
Режим
Real, Protected
Замечания
Возвращает текущий шрифт, направление, размер и выравнивание текста, установленные процедурами SetTextStyle и SetTextJustify.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры GetTextSettings }
uses Graph;
var
Gd, Gm : Integer;
OldStyle : TextSettingsType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
OldStyle : TextSettingsType;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
