Правила форума
Instufnt.PASЯзык:
Русский
English
{ Пример программы для функции 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, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
{ Используем новый шрифт }
SetTextStyle(TestFont, HorizDir, 2);
OutText('Installable fonts supported...');
ReadLn;
CloseGraph;
end.
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, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
{ Используем новый шрифт }
SetTextStyle(TestFont, HorizDir, 2);
OutText('Installable fonts supported...');
ReadLn;
CloseGraph;
end.
::
::
::
