Процедура SetTextJustify

Модуль 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.