Правила форума
InstallUserFont (функция) (модуль Graph)Язык:
Русский
English
InstallUserFont (функция) (модуль Graph)
Устанавливает новый шрифт.
Объявление
Function InstallUserFont(FontFileName : String ) : Integer;
Режим
Real, Protected
Замечания
Новый шрифт - это тот, который не был встроен в BGI систему. Параметр FontFileName - строка, содержащая путь и имя файла, содержащего новый шрифт. Функция InstallUserFont возвращает номер добавленного шрифта, который вы можете указать при обращении к процедуре SetTextStyle.
Смотри также
Пример
Язык:
Русский
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.
::
::
::
