HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1922 году (95 лет назад) - Писатель А.С. ГРИН завершает в Петербурге написание фантастической феерии "Алые паруса", посвятив ее своей жене Нине Грин.
 
 

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.




HOME