Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Функция InstallUserFont.

  • Объявление:

    Function InstallUserFont(FontFileName : String ) : Integer;

  • Описание:

    Устанавливает новый шрифт.

  • Замечания:

    Новый шрифт - это тот, который не был встроен в BGI систему. Параметр FontFileName - строка, содержащая путь и имя файла, содержащего новый шрифт. Функция InstallUserFont возвращает номер добавленного шрифта, который вы можете указать при обращении к процедуре SetTextStyle.

  • Пример:

    { Пример программы для функции 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.



Вернуться к оглавлению справочника