initgrf.pas
Пример программы для процедуры InitGraph.
Код примера
{Initgrf.PAS}
{ Пример программы для процедуры InitGraph }
Uses Graph;
Var grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
ErrCode:=GraphResult;
If ErrCode = grOk Then
Begin
{ Графика }
Line(0, 0, GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End
Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End.
Скачать initgrf.pas