Дополнительные модули для работы с графикой, Всякие там svga256.bgi Опции

[serge2k]

Народ, может подскажите, как подключить библитеку с функциями для работы с большими разрешениями и большим количеством цветов? Я пробовал в свое время и ничего не получилось. А может посоветуете какой-нить модуль неплохой? И вообще хорошо бы было если все процедуры из graph.tpu работали и в новом модуле. Есть Такие??
А насчет параллельных процессов(мой прошлый вопрос) Вам большое спаибо. Выручили...

[virt]

Код

installuserdriver('svga256.bgi',nil);

[Altair]

Только вместо svga советую использовать vesa.

[serge2k]

Спасибки, но тока надо не installuserdriver('svga256.bgi',nil); аinstalluserdriver('svga256',nil);. Долго не мог врубиться в чем проблема, но потом нашел установил отлов ошибок и все прояснилось.

[Altair]

Спасибки, но тока надо не installuserdriver('svga256.bgi',nil); аinstalluserdriver('svga256',nil);.

У тебя какой комилер???????

[Romtek]

Код

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;