Скачать BGI - VGA256.BGI и пример использования

30.12.1993
Скачать файл (2,88 Кб)

Это есть 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,'');
...