Turbo Pascal Documentation

Процедура GetTextSettings

Модуль Graph

     Функция: Возвращает текущий тип текстового шрифта,  его
направление,  размер и выравнивание, установленные с помощью
процедур SetTextStyle и SetTextJustify.
     Описание: GetTextSettings(var TextInfo: TextSettingsType)
     Примечания: Определены следующие константы и типы:

type
   CharSizeType = 1..10;
   TextSettingsType = record
                        Font            : word;
                        Direction       : word;
                        CharSize        : CharSizeType;
                        Horiz           : word;
                        Vert            : word;
                      end;
const
   DefaultFont         = 0; { шрифт с двоичным образом 8х8 }
   TriplexFont         = 1; { "штриховые" шрифты }
   SmallFont           = 2;
   SanSerifFont        = 3;
   GothicFont          = 4;
   HorizDir    = 0;         { слева направо }
   Vertir      = 1;         { снизу вверх }
   NormSize    = 1;

     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры InitGraph,  SetTextJustify,
SetTextStyle, TextHeight, TextWidth.
     Пример:

  uses
    Graph;
  var
    Gd, Gm : integer;
    OldStyle : TextSettingsType;
  begin
    Gd := Detect;  { перевести в графический режим }
    InitGraph(Gd, Gm, '');
    if GraphResult < 0 then
       Halt(1);
  GetTextSettings(OldStyle);
  SetTextJustify(LeftText, CenterText);
  SetTextStyle(TriplexFont, VertDir, 4);
  OutTextXY(GetMaxX, div 2, GetMaxY div 2, 'Новый тип');
  with OldStyle do
  begin                { восстановить старый тип текста}
    SetTextJustify(Horiz, Vert);
    SetTextStyle(Font, Direction, CharSize);
  end;
  OutTextXY(0, TextHeight('H'), 'Снова старый тип');
  Readln;
  CloseGraph;
end.