Turbo Pascal Documentation

Процедура SetTextStyle

Модуль Graph

     Функция: Устанавливает текущий шрифт, тип и коэффициент
размера символа.
     Описание:  SetTextStyle(шрифт: word; направление: word;
разм_символа: CharSizeType)
     Примечания: Процедура влияет на весь  текстовый  вывод,
выполняемый процедурами OutText и OutTextXY. Можно использо-
вать один шрифт с двоичным образом 8х8 и несколько  "штрихо-
вых" шрифтов. Поддерживается нормальное (слева направо) рас-
положение шрифта и вертикальное (развернутое на 90  градусов
относительно  нормального  расположения),  при котором текст
начинается с нижней границы  экрана  и  продолжается  вверх.
Размер  каждого  символа может увеличиваться на коэффициент,
задаваемый параметром "разм_символа". Значение размера  сим-
вола,  равное  единице,  приводит  к выводу двоичного образа
шрифта 8х8 в прямоугольную область  экрана,  содержащую  8х8
элементов  изображения,  параметр  "разм_символа",  равный 2
приведет к выводу на экран двоичного  образа  шрифта  8х8  в
прямугольную  область элементов изображения размером 16х16 и
т. д. (вплоть до десятикратного увеличения нормального  раз-
мера). Для определения действительных размеров шрифта всегда
используйте процедуры TextHeight и TextWidth.
     Нормальными значениями размера для  шрифта  являются  1
для принятого по умолчанию шрифта и 4 для "штрихового" шриф-
та. Эти значения можно передавать процедуре SetTextStyle   в
параметра "разм_символа". Для настройки размера "штрихового"
текстового шрифта можно использовать процедуру SetUserFont.
     Обычно "штриховые" шрифты  при  обращении  к  процедуре
SetTextStyle  "штриховые" шрифты загружаются с диска в дина-
мически распределяемую область памяти. Однако, вы сами може-
те  загрузить  шрифты  или скомпоновать их непосредственно с
вашим файлом .EXE. В этом случае для регистрации шрифта  мо-
дулем Graph используйте процедуру RegisterBGIfont.
     Когда "штриховые" шрифты хранятся на диске, при попытке
их  загрузки  могут  происходить  ошибки. При наличии ошибок
функция GraphResult возвращает одно из следующих значений:

     -8 - файл не найден;
     -9 - не хватает памяти для загрузки выбранного шрифта;
     -11 - ошибки графики;
     -12 - графическая ошибка ввода-вывода;
     -13 - недопустимый файл шрифта;
     -14 - недопустимый номер шрифта.

     Определены следующие константы и типы:
        const
         DefaultFont         = 0; { шрифт с двоичным образом 8х8 }
         TriplexFont         = 1; { "штриховые" шрифты }
         SmallFont           = 2;
         SanSerifFont        = 3;
         GothicFont          = 4;
         HorizDir    = 0;         { слева направо }
         Vertir      = 1;         { снизу вверх }
         NormSize    = 1;

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

        uses Graph;
        var
          Gd, Gm : integer;
          Y, Size : integer;
        begin
          Gd := Detect;
          InitGraph(Gd, Gm, '');
          if GraphResult <> grOk then
             Halt(1);
       Y := 0;
       for Size := 1 to 4 do
       begin
         SetTextStyle(DefaultFont, HorizDir, Size);
         OutText(1,y,'Размер = '+Chr(Size+48));
         Inc(Y, TextHeight('H') + 1);
       end;
       Readln;
       CloseGraph;
       end.