Все объекты,
которые входят в модуль
Graph, можно использовать только после задания
инициализации графического режима.
Инициализация графического режима выполняется процедурой
InitGraph:
InitGraph((драйвер) : integer; <режим> :integer; <путь к
файлу> : string);.
Для
инициализации графического режима с автоматическим
распознаванием драйвера и режима достаточно присвоить
переменной, отвечающей за драйвер, константу Detect или 0,
Присваивать какое-либо значение переменной режима в этом
случае не требуется. Третий параметр указывает путь к файлу
(например, EGAVGA) с расширением bgi. Если этот файл
находится в текущем каталоге, то путь может быть пустым (").
Ошибки, которые могут возникнуть при инициализации
графического режима, анализируют с помощью функции
GraphResult. Эта функция генерирует соответствующий код
ошибки. Код ошибки равен нулю, если инициализация прошла
успешно.
Для выхода
из графического режима используется стандартная процедура
без параметров CloseGraph. Она восстанавливает режим,
существовавший до инициализации графики.
При частой
работе с графикой процесс инициализации удобно
оформить отдельной процедурой.
Пример.
Uses Graph;
Var
Driver, Mode: integer;
Procedure
GrInit;
Begin
Driver:=
Detect; {автораспознавание драйвера}
InitGraph
(Driver, Mode,'');
If
GraphResult<>0 then
Begin
Writeln ('Ошибка инициализации!');
Writeln ('Работа программы прервана');
Halt (1) {остановить выполнение программы с кодом
завершения — 1}
End
End;
Begin
GrInit;
{графические
действия}
Readln;
CloseGraph
End.
