InstallUserFont (FontFileName: string): integer

Устанавливает новый шрифт, который не встроен BGI систему.

Пример программы с использованием графики

Program Example;

Uses Graph; {подключение графического модуля}

{раздел описаний Lable,const,Type,Var,Procedure,Function}

Var

I,J:integer;

Begin

I:=Detect;

InitGraph(i,j.'');

IF GraphResult<>grOK then

Begin

Writeln('Ошибка при включении графического режима');

Halt;

End;

SetBkColor(15);SetLineStyle(0,0,3);

For i:=o To 10 Do

Begin

SetColor(I+3);

SetFillStyle(I+1.i+4);

FillEllipse(I*55+30,200,24,10*(1+2));

End;

Readln; {Для задержки изображения}

CloseGraph;

End.

ТУРБО-ПАСКАЛЬ

TURBO-PASCAL

Не нашли, что искали? Воспользуйтесь поиском: