инициализирует графическую систему, устанавливает графический режим, устанавливает исходные значения текущего указателя, палитры, цвета и т.д.
Driver —
переменная, в которую необходимо записать код требуемого графического драйвера или Detect = 0, если требуется автоматическое определение драйвера.
Mode —
переменная, в которую процедура помещает код графического режима для данного драйвера (максимально возможный, если не указать иное).
Path —
строка, содержащая путь к драйверу — если строка пустая, считается, что драйвер находится в текущем каталоге (папке).
Если Driver = Detect, то выполняется вызов процедуры DetectGraph (см. ниже), загружается определенный этой процедурой драйвер и устанавливается определенный ею режим.
В случае аварийной ситуации процедура устанавливает один из следующих кодов ошибки: -2, -3, -4, -5, -10 (см. ниже функцию GraphResult).
Closegraph ;
—
завершает работу в графическом режиме и осуществляет переход в текстовый режим работы экрана.
Пример 12.1 (инициализация графики с автоматическим определением драйвера и максимально возможного режима для него … выход из графического режима):
Uses Graph;
Var
Driver,Mode : Integer ;
Begin
Driver := Detect;
InitGraph ( Driver,Mode, ’’ ) ;
. . .
CloseGraph
End.
DetectGraph ( var Driver, Mode : Integer ) ;
—
проверяет наличие соответствующего оборудования и определяет, какой графический драйвер и максимально возможный режим его работы можно использовать, возвращает эти значения в качестве параметров вызвавшей ее процедуре InitGraph
(единственной причиной непосредственного вызова процедуры DetectGraph является последующая замена выбираемого ею драйвера).
Driver —
переменная, в которую процедура помещает код требуемого графического драйвера.
Mode —
переменная, в которую процедура помещает код графического режима или -2 в случае аварийной ситуации.
В случае аварийной ситуации (у компьютера нет графического адаптера или нет драйвера для него) процедура устанавливает код ошибки: -2 (см. GraphResult).
Пример 12.2 (в случае идентификации драйвера VGA загружается другой драйвер — EGA64 и режим EGA64HI для него):
. . .
Driver:= Detect ;
DetectGraph ( Driver, Mode ) ;
IfDriver = VGA then
Begin
Driver:= EGA64 ;
Mode := EGA64HI
End ;
InitGraph( Driver, Mode, ’C:\BIN ’ ) ;
. . .
SetGraphMode ( Mode : Integer ) ;
—
задает новый графический режим для выбранного драйвера, устанавливает исходные значения текущего указателя, палитры, цвета и т.д., очищает экран.
Mode —
графический режим.
В случае аварийной ситуации процедура устанавливает код ошибки: -10
(см. GraphResult).
возвращает минимальный и максимальный номера графических режимов указанного драйвера.
Driver —
код драйвера.
LoMode —
переменная, в которую записывается минимальный номер режима.
HiMode —
переменная, в которую записывается максимальный номер режима.
Если Driver задан неверно, параметры LoMode и HiMode получают значение: -1.
GraphDefaults ;
—
сбрасывает заданные пользователем параметры графического режима и устанавливает исходные (определяемые при запуске процедуры InitGraph).
RestoreCRTMode ;
—
производит кратковременный возврат в текстовый режим.
