Turbo Pascal Documentation

Функция InstallUserFont

Модуль Graph

     Функция: Устанавливает новый шрифт, не  предусмотренный
в системе фирмы Борланд.
     Описание: InstallUserFont(имя_файла_шрифта : string)
     Примечания:  Параметр  "имя_файла_шрифта"  представляет
собой имя файла "штрихового" шрифта. Фукнция InstallUserFont
возвращает номер шрифта, который  можно  передать  процедуре
SetTextStyle для выбора этого шрифта. Если внутренняя табли-
ца  шрифтов  переполнена,   то   возвращается   значение   0
(DefaultFont).
     Аналогичная функция имеется в версии 2.0 Турбо-Си.
     Прочее: См. также процедуру SetTextStyle.
     Пример:

  uses Graph;
   var
    Driver, Mode : integer;
    TestFont : integer;
  begin
   TestFont := InstallUserFont('TEST'); { установить шрифт }
   if GraphResult <> grOk then
   begin
     Writeln('Ошибка при установке шрифта TestFont; будет
использоваться DefaultFont');
     Readln;
   end;
   Driver := Detect; { перевести в графический режим }
   InitGraph(Driver, Mode, '');
   if GraphResult <> grOk then
      Halt(1);
   SetTextStyle(TestFOnt, HorizDir, 2); { использовать новый
                                          шрифт }
   OutText('Поддерживается новый установленный шрифт...');
   Readln
   GloseGraph;
  end.