Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Графика    >>    vga256s
   
 
 BGI - VGA256.BGI и пример использования   Виктор Вагнер 30.12.1993

Драйвер VGA256.BGI (320х200х256) и пример использования



2k 
 

From: Vitus B. Wagner <vitus@agropc.msk.su> Organization: Agroecological problems Center Это есть VGA256.BGI. Поддерживает режим 320х200 256 цветов. Обнаружен один глюк. - при выполнении процедуры GetImage в поле размера образа по горизонтали записывается число на 1 больше, чем всеми остальными мне известныи BGI. Для тех, кто не готовит данные для PutImage вручную, это не имеет никакого значения. Еще - игнорирует значение параметра GraphDriver в процедуре InitGraph. Процедура GetModeRange возвращает чушь. При вызове InstallBGIDriver передавайте в нее в качестве AutoDetect function адрес такой функции: {$F+} function DetectVGA256:Integer; var GraphDriver,Graphmode:Integer; begin if GraphDriver=VGA then DetectVga256:=1 else DetectVGA256:=grError; end; {$F-} {Главная программа} var VGA256,GD,GM:Integer; begin VGA256:=InstallUserDriver('VGA256',@DetectVGA256); Gd:=VGA256; InitGraph(GD,GM,''); ...