Turbo Pascal Documentation

Процедура InitGraph

Модуль Graph

     Функция: Инициализирует графическую систему и переводит
аппаратуру в графический режим.
     Описание: InitGraph(var  граф_драйвер  :  integer;  var
граф_режим : integer; путь_драйвер : string)
     Примечания:  И  параметр  "граф-драйвер",  и   параметр
"граф-режим" являются параметрами-переменными (var).
     Если параметр "граф_драйвер"  равняется  Detect(0),  то
выполняется  вызов  процедуры DetectGraph, загружается соот-
ветствующий драйвер и выбирается графический режим.
     Если параметр "граф_драйвер" не равен  0,  то  значение
этого  параметра  рассматривается,  как номер драйвера. Этот
драйвер загружается и система переводится в режим, определя-
емый параметром "граф_режим". Заметим, что если значение ав-
томатического  распознавания  аппаратуры  изменено,  то   вы
должны  для  требуемого драйвера обеспечить правильный пара-
метр "граф_режим".
     Параметр "путь_драйвер" определяет путь доступа к ката-
логу  (маршрут),  в  котором находятся графические драйверы.
Если этот параметр пуст, то подразумевается, что файлы драй-
веров содержатся в текущем каталоге.
     С помощью обращения к процедуре  GetМем  в  динамически
распределяемой  области для графического драйвера выделяется
память. При обращении к процедуре CloseGraph эта память  ос-
вобождается.
     После обращения к  процедуре  InitGraph  для  параметра
"граф_драйвер"  будет  установлено значение, соответствующее
текущем графическому драйверу, а для параметра  "граф_режим"
будет  установлено значение, соответствующее текущему графи-
ческому режиму.
     Если происходит ошибка, то процедура GrapDriver и функ-
ция GraphResult возвращают одно из следующих значений:

     -2 - не обнаружена графическая плата;
     -3 - не найден файл драйвера;
     -4 - неверный драйвер;
     -5 - для загрузки памяти недостаточно памяти.

     Процедура InitGraph сбрасывает все графические парамет-
ры  (текущий  указатель,  палитру, цвет, область просмотра и
т.д.) и устанавливает для них предусмотренные  по  умолчанию
значения.
     Для установки поставляемый фирмами драйверов можно  ис-
пользовать процедуру InstallDriver (более подробная информа-
ция содержится в описании процедуры InstallUserDriver).
     Для каждого поддерживаемого графического драйвера опре-
делен ряд полезных констант:

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Константа                  Код        Соответствующее
ошибки графики            ошибки       сообщение об ошибке
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  grOk                  =  0; { нет ошибки }
  grNoInitGraph         = -1; { графика не инициализована }
  grNotDetected         = -2; { графические средства не найдены }
  grFileNotFound        = -3; { файл не найден }
  grInvalidDriver       = -4; { недопустимый драйвер }
  grNoLoadMem           = -5; { память не загружена }
  grNoScanMem           = -6; { ошибка при просмотре памяти }
  grNoFloodMem          = -7; { ошибка при зараске }
  grFontNotFound        = -8; { шрифт не найден }
  grNoFontMem           = -9; { шрифт не загружен в память }
  grInvalidMode         = -10; { недопустимый режим }
  grError               = -11; { ошибка графики }
  grIOError             = -12; { ошибка ввода-вывода графики }
  grInvalidFont         = -13; { недопутимый файл шрифта }
  grInvalidFontNum      = -14; { недопустимый номер шрифта }
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

const
   { графические режимы для каждого драйвера }
   CGAC1        = 0; { 1 палитра цветов 320х200: красный,
                       желтый, зеленый; 1 страница }
   CGAC2        = 1; { 2 палитра цветов 320х200: светло-
                       бирюзовый, малиновый, белый; 1
                       страница }
    CGAHi        = 2; { 640х200, 1 страница }
   MCGAC1       = 0  { 1 палитра цветов 320х200: красный,
                       желтый, зеленый; 1 страница }
   MCGAC2       = 1; { 2 палитра цветов 320х200: светло-
                       бирюзовый, малиновый, белый; 1
                       страница }
   MCGAMed      = 2; { 640х200, 1 страница }
   MCGAHi       = 3; { 640х480, 2 цвета, 1 страница }
   EGALo        = 0; { 640х200, 4 страницы }
   EGAHi        = 1; { 640х350, 16 цветов, 2 страницы }
   EGA64Lo      = 0; { 640х200, 16 цветов, 1 страница }
   EGA64Hi      = 1; { 640х350, 4 цвета, 1 страница }
   EGA64MonoHi  = 3; { 640х350, 64К на плату, 1 страница -
                       256К на плату, 4 страницы }
   HercMonoHi   = 0; { 720х348, 2 страницы }
   ATT400C1     = 0; { 1 палитра цветов 320х200: красный,
                       желтый, зеленый; 1 страница }
   ATT400C2     = 1; { 2 палитра цветов 320х200: светло-
                       бирюзовый, малиновый, белый; 1
                       страница; 20 - 640х200, 1 страница }
   ATT400Med    = 2; { 640х200, 1 страница }
   ATT400Hi     = 3; { 640х200, 1 страница }
   VGALo        = 0; { 640х200, 16 цветов, 4 страницы }
   VGAMed       = 1; { 640х350, 16 цветов, 2 страницы }
   VGAHi        = 2; { 640х480, 16 цветов, 1 страница }
   VGANi2       = 3; { 640х480, 2 цвета, 1 страница }
   PC3270Hi     = 0; { 720х350, 1 страница }

     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры CloseGraph, DetectGraph,
     RestoreCrtMode, SetGraphMode, GraphResult, InstallUser-
Driver, SetGraphBufSize, RegisterBGIDriver, RegisterBGIFont,
GraphDefaults.
     Пример:

uses  Graph;
var
   grDriver : integer;
    grMode   : integer;
   EmCode   : integer;
begin
  gDriver := Detect;
  InitGraph(grDiver,grMode,'');
  ErrCode := GraphResult;
  it ErrCode <> grOk then
  begin                   { выполнить графические функции }
   Line(0, 0, GetMaxX, GetMaxY);
   Readln;
   CloseGraph;
  end
  else
    Writeln('Ошибка графики : ',GraphErrorMsg(ErrCode));
  end.