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 будут переданы недопустимые параметры, то текущие установки выравнивания не будут изменены.

Ограничения

Нужно быть в графическом режиме.

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для процедуры SetTextJustify }

uses Graph;

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.
Тэги: SetTextJustify
| G+
Код для вставки: :: :: :: ::
Поделиться: // //