Turbo Pascal Documentation

Процедура SetTextJustify

Модуль Graph

     Функция: Устанавливает  значения  выравнивания  текста,
которые используются процедурами OutText и OutTextXY.
     Описание: SetTextJustify(гориз, верт : word)
     Примечания: После процедуры SetTextJustify вывод
     текста будет выравниваться по текущему указателю задан-
ным способом. При использовании двух следующих операторов

           SetTextJustify(CenterText, CenterText);
           OutTextXY(100, 100, 'ABC');

в середине точки с координатами (100,100) появится буква  В.
Установленные по умолчанию параметры выравнивания можно вос-
становить с помощью вызова SetTextJustify(LeftText,TopText).
Если  процедуре SetTextJustify передаются недопустимые пара-
метры, функция GraphResult  будет  возвращать  значение  -11
(grError), а текущие параметры выравнивания текста останутся
неизмененными.
     Определены следующие константы:

       const
         { горизонтальное выравнивание }
         LeftText    = 0;   { выровнять влево }
         CenterText  = 1;   { центрировать }
         RightText   = 2;   { выровнять вправо }
         { вертикальное выравнивание }
         BottomText  = 0;   { переместить вниз }
         CenterText  = 1;   { центрировать }
         TopText     = 2;   { переместить вверх }
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры SetLineStyle, OutTextXY,
GetTextSettings, OutText, TextHeight, TextWidth,
SetUserCharSize, GraphResult.
     Пример:

        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,
                 'Легко центрируется');
         Фжгенп;
         ЕнрфжЙугсй;
        жпе.