|
|||
Скачать BGI - VGA256.BGI и пример использования
30.12.1993 Это есть 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,''); ... | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |