instudrv.pas
Пример программы для функции InstallUserFont.
Код примера
{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.
Скачать instudrv.pas