HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 октября. В 1970 году (48 лет назад) - На Бонневильской соляной равнине в американском штате Юта Гэри Гейблих (Gary GABELICH) на четырехколесном автомобиле "Блю Флэйм" устанавливает рекорд скорости, развиваемой автомобилем с ракетным двигателем, - 1 016,086 км/ч на первом километре. На короткое время его скорость даже превышает отметку 1 046 км/ч. Двигатель работает на жидком ракетном топливе, состоящим из природного газа и перекиси водорода.
 
 

Turbo Pascal Documentation

Процедура DetectGraph

Модуль Graph


     Функция: Проверяет наличие  соответствующих  аппаратных
средств и определяет, какой графический режим и драйвер сле-
дует использовать.
     Описание: 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