Правила форума
SetTextJustify (процедура) (модуль Graph)Язык:
Русский
English
SetTextJustify (процедура) (модуль Graph)
Устанавливает значения текстового выравнивания, используемые процедурами OutText и OutTextXY.
Объявление
Procedure SetTextJustify(Horiz, Vert : Word);
Режим
Real, Protected
Замечания
После вызова SetTextJustify весь выводимый текст будет выравниваться относительно текущего указателя (CP) заданным способом. Следующий отрывок программы выведет букву 'B' так, что точка (100, 100) окажется точно посередине этой буквы:
SetTextJustify(CenterText, CenterText);
OutTextXY(100, 100, 'ABC');
Заданные по умолчанию установки выравнивания могут быть установлены следующим образом : SetTextJustify (LeftText, TopText). Если к SetTextJustify будут переданы недопустимые параметры, то текущие установки выравнивания не будут изменены.
Ограничения
Нужно быть в графическом режиме.
Смотри также
GetTextSettings
GraphResult
OutText
OutTextXY
SetLineStyle
TextHeight
TextWidth
Константы выравнивания
Пример
Язык:
Русский
English
{ Пример программы для процедуры SetTextJustify }
var
Gd, Gm : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
{ Центрируем текст на экране }
SetTextJustify(CenterText, CenterText);
OutTextXY(Succ(GetMaxX) div 2, Succ(GetMaxY) div 2,
'Easily Centered');
ReadLn;
CloseGraph;
end.
::
::
::
