instufnt.pas

 {Instufnt.PAS}
 
 { Пример программы для функции InstallUserFont }
 
 Uses Graph;
 
 Var Driver, Mode : Integer;
         TestFont : Integer;
 
 Begin
  { Устанавливаем шрифт }
  TestFont:=InstallUserFont('TEST');
  If GraphResult <> grOk Then
   Begin
    WriteLn('Ошибка установки шрифта (используется DefaultFont)');
    WriteLn('Нажмите любую клавишу...');
    ReadLn;
   End;
  { Инициализируем графику }
  Driver:=Detect;
  InitGraph(Driver, Mode, '');
  If GraphResult <> grOk Then Halt(1);
  { Используем новый шрифт }
  SetTextStyle(TestFont, HorizDir, 2);
  OutText('Installable fonts supported...');
  ReadLn;
  CloseGraph;
 End.