Turbo Pascal Documentation

Процедура SetUserChsrSize

Модуль Graph

     Функция: Позволяет пользователю изменять высоту и шири-
ну символа для "штриховых" шрифтов.
     Описание: SetUserCharSize(MultX, DivX, MultY, DivY :word)
     Примечания: Параметр MultX:DivX представляет собой  от-
ношение,  умноженное для архивного шрифта на обычную ширину.
MultY:DivY - это  отношение,  умноженное  на  для  архивного
шрифта  на  нормальную высоту. Например, чтобы сделать шрифт
вдвое выше, используйте для MultX значение 2, а DivX задайте
равным 1 (2 div 1 = 2).
     После вызова процедуры SetUserCharSize для того,  чтобы
шрифт получил новый размер, вам не нужно сразу вызывать про-
цедуру SetTextStyle. При обращении к процедуре SetUserCharSize
для текущего символа устанавливается заданный размер.
     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Пример: В данном примере показано, как  можно  изменить
высоту и ширину шрифта.

        uses Graph;
        var
          Gd, Gm : integer;
        begin
          Gd := Detect;
          InitGraph(Gd, Gm, '');
          if GraphResult <> grOk then
             Halt(1);
         SetTextStyle(TriplexFont, HorizDir, 4);
         OutText(Нормальный размер');
         SetUserCharSize(1, 3, 1, 1);
         OutText(Уменьшенный по высоте размер');
         SetUserCharSize(3, 1, 1, 1);
         OutText(Широкий шрифт');
       Readln;
       CloseGraph;
       end.