IPB

> Initgrf.PAS
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Язык:
Русский
English


 { Пример программы для процедуры InitGraph }

uses Graph;

var
  grDriver : Integer;
  grMode   : Integer;
  ErrCode  : Integer;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, 'X:\BP');
  ErrCode := GraphResult;
 if ErrCode = grOk then
 begin
   { Графика }
    Line(0, 0, GetMaxX, GetMaxY);
   ReadLn;
    CloseGraph;
 end
 else
   WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
end.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"