Народ, может подскажите, как подключить библитеку с функциями для работы с большими разрешениями и большим количеством цветов? Я пробовал в свое время и ничего не получилось. А может посоветуете какой-нить модуль неплохой? И вообще хорошо бы было если все процедуры из graph.tpu работали и в новом модуле. Есть Такие??
А насчет параллельных процессов(мой прошлый вопрос) Вам большое спаибо. Выручили...
Полная версия: Дополнительные модули для работы с графикой
Код
installuserdriver('svga256.bgi',nil);
Только вместо svga советую использовать vesa.
Спасибки, но тока надо не installuserdriver('svga256.bgi',nil); аinstalluserdriver('svga256',nil);. Долго не мог врубиться в чем проблема, но потом нашел установил отлов ошибок и все прояснилось.
Цитата
Спасибки, но тока надо не installuserdriver('svga256.bgi',nil); аinstalluserdriver('svga256',nil);.
У тебя какой комилер???????
Код
const
{ 256 colors }
v320x200 : byte = 0;
v640x480 : byte = 2;
v800x600 : byte = 3;
v1024x768 : byte = 4;
v1280x1024 : byte = 5;
Procedure SetVMode(Mode: byte);
Var Gd,Gm: integer;
Begin
Gd:= InstallUserDriver('SVGA256',nil);
if Gd= grError { Table full? } then
begin
writeln('Error of installing driver.');
Halt(1);
end;
if RegisterBGIdriver(@SVGA_DRV) < 0 then
begin
Writeln(GraphErrorMsg(GraphResult));
halt(2);
end;
Gm:=Mode;
InitGraph(Gd,Gm,'');
End;
{ 256 colors }
v320x200 : byte = 0;
v640x480 : byte = 2;
v800x600 : byte = 3;
v1024x768 : byte = 4;
v1280x1024 : byte = 5;
Procedure SetVMode(Mode: byte);
Var Gd,Gm: integer;
Begin
Gd:= InstallUserDriver('SVGA256',nil);
if Gd= grError { Table full? } then
begin
writeln('Error of installing driver.');
Halt(1);
end;
if RegisterBGIdriver(@SVGA_DRV) < 0 then
begin
Writeln(GraphErrorMsg(GraphResult));
halt(2);
end;
Gm:=Mode;
InitGraph(Gd,Gm,'');
End;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.