Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 26 стр.

                                                                            26




           2.2.1 Инициализация и закрытие графического режима

      Инициализация графического режима адаптера производится с помощью
процедуры
      InitGraph(Драйвер, Режим, Путь к драйверу);
      Драйвер - переменная типа Integer, определяет тип графического драйвера;
Режим - переменная того же типа, задающая режим работы графического
адаптера; Путь к драйверу - выражение типа String, содержащее путь к файлу
драйверу.
      Для задания двух первых параметров в модуле Graph определены
специальные константы, но проще всего использовать для указания типа драйвера
константу с именем Detect, что позволяет не указывать режим.
      Путь к драйверу представляет собой последовательность, состоящую из
имени диска и списка имен каталогов и подкаталогов, разделенных символом "\"
и заключенную в апострофы, в которых находится файл драйвера. Например, для
нашего ВЦ этот путь имеет вид: 'P:\BP\7.0\BGI'.
      Если скопировать файл egavga.bgi в текущий каталог (из которого вы вошли
в среду Турбо Паскаль), то путь к файлу состоит из двух апострофов ('').
      Анализ правильности открытия графического режима, производится с
помощью функции GraphResult. Она возвращает значение типа Integer. Если
ошибок нет, то результат равен 0, в противном случае результатом будет
отрицательное число, значение которого определяет тип ошибки. Приведем
некоторые из них:
      -1 - не инициирован графический режим;
      -2 - не определен тип драйвера;
      -3 - не найден графический драйвер и т. д. (см []).
      Для определения типа ошибки можно использовать функцию
GraphErrorMsg, которая выводит сообщение, соответствующее типу ошибки.
      Можно написать небольшую подпрограмму, позволяющую производить
инициализацию графического режима с анализом типа ошибки.
      Procedure Init_Graph_Mode;
             Var
                   Gr_Driver, Gr_Mode, Error_Code: Integer;
      Begin
      Gr_driver:= Detect; {Автоопределение драйвера и режима}
      InitGraph(Gr_Driver, Gr_mode, ''); {Инициализация графического
         режима - файл с дравером должен располагаться в текущем каталоге}
      Error_Code:= GraphResult;
      If    Error_Code <> 0 then
                   Begin
                   Writeln(' Сообщение об ошибке:',GraphErrorMsg(Error_Code));
                   Halt; { Выход из программы}
                   End
             {Ошибок не обнаружено}
      End; { Конец процедуры инициализации графического режима}
                                                                            26