Модуль GRAPH
Устанавливает значения текстового выравнивания, используемые процедурами
OutText и OutTextXY.
Объявление:
Procedure SetTextJustify(Horiz, Vert : Word);
Режим:
Protected, Real
Замечание:
После вызова SetTextJustify весь выводимый текст будет выравниваться относительно текущего указателя (CP) заданным способом. Следующий отрывок программы выведет букву 'B' так, что точка (100, 100) окажется точно посередине этой буквы:
SetTextJustify(CenterText, CenterText);
OutTextXY(100, 100, 'ABC');
Заданные по умолчанию установки выравнивания могут быть установлены следующим образом : SetTextJustify (LeftText, TopText). Если к SetTextJustify будут переданы недопустимые параметры, то текущие установки выравнивания не будут изменены.
Нужно быть в графическом режиме.
Пример:
{Settxtjs.PAS}
{ Пример программы для процедуры SetTextJustify }
Uses Graph;
Var Gd, Gm : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
{ Центрируем текст на экране }
SetTextJustify(CenterText, CenterText);
OutTextXY(Succ(GetMaxX) Div 2, Succ(GetMaxY) Div 2, 'Easily Centered');
ReadLn;
CloseGraph;
End.