HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail |
|
|
Turbo Pascal Documentation | ||
Функция: Проверяет наличие соответствующих аппаратных средств и определяет, какой графический режим и драйвер сле- дует использовать. Описание: DetectGraph(var драйвер, режим : integer) Примечания: Возвращает значения выбранного режима и драйвера, которые можно передать в качестве параметров про- цедуре InitGraph для загрузки соответствующего драйвера. Если графическая аппаратура не найдена, то параметры "драй- вер" и "режим" будут содержать значения -2. Определены следующие константы: const Detect = 0; { требование автоматического распознава- ния } CGA = 1; MCGA = 2; EGA = 3; EGA64 = 4; EgaMono = 5; Reserved = 6; HercMono = 7; ATT400 = 8; VGA = 9; PC3270 = 10; Если не указываются другие действия, процедура Init- Graph вызывает процедуру DetectGraph, находит и загружает соответствующий драйвер и инициализирует графическую систе- му. Единственной причиной непосредственного вызова процедуры DetectGraph является замена выбираемого ей драйвера. В при- веденном ниже примере идентифицируется система с объемом па- мяти 64 или 256К и графическим адаптером ЕGА, но загружается драйвер СGА. Заметим, что когда вы передаете процедуре Init- Graph параметр GraphDriver (задающий драйвер), отличающийся от Detect, вы должны также передать для требуемого драйвера в параметре GraphMode допустимый графичекий режим. Прочее: См. также процедуры InitGraph, GraphResult. Пример: .... GraphDriver := Detect; DetectGraph(GraphDriver, GraphMode); if (GraphDriver = EGA64) then begin GraphDriver := CGA; GraphMode := CGAHi; end; InitGraph(GraphDriver, GraphMode, 'C:\BIN'); ... |
HOME |