Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ Дополнительные модули для работы с графикой

Автор: serge2k 2.06.2004 21:46

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

Автор: virt 2.06.2004 22:38

Код
installuserdriver('svga256.bgi',nil);

Автор: Altair 3.06.2004 11:28

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

Автор: serge2k 6.06.2004 20:49

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

Автор: Altair 6.06.2004 20:56

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

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

Автор: Romtek 7.06.2004 2:31

Код
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;