Więcej niż 640x480 w pscalu?

0

Jeśli ktoś wie prosze o pomoc. Jest to mi bardzo potrzebne do mojego programu.

0

we FreePascalu to proste

0

OK źle sprecyzowałem pytanie. Chodzi mi o Turbo Pascala.

0

Nie ma problemu. Ściągnij sobie drivera SVGA.BGI lub napisz do mnie na maila to Ci prześlę. Następnie zassaj ten moduł, który inicjuje jeden ze zdefiniowanych typów i po kłopocie.

{------------------------------------------}
{                                          }
{ Modul do obslugi wysokich rozdzielczosci }
{ w trybach 256 kolorowych. Tryby dostepne }
{ tylko dla standardu VESA i SVGA          }
{                                          }
{------------------------------------------}

UNIT Svga256;

INTERFACE

USES Graph, Crt;

CONST
 { dostepne tryby graficzne }
 v320x200   = 0;
 v640x400   = 1;
 v640x480   = 2;
 v800x600   = 3;
 v1024x768  = 4;
 v1280x1024 = 5;

{ funkcje ustawiamy jako daleka po to by moc ja swobodnie wywolac }
FUNCTION  DetectSvga256 : Integer; FAR;
PROCEDURE InitSvga256(Path :STRING);

IMPLEMENTATION

VAR GraphDriver, GraphMode, GrErr : integer;

PROCEDURE InitSvga256(Path :STRING);
BEGIN
 GraphDriver := InstallUserDriver('SVGA256', @DetectSvga256);
 GraphDriver := DETECT;
 InitGraph(GraphDriver, GraphMode, Path);
 GrErr := GraphResult;
 IF GrErr AND $80 = $80 THEN GrErr := GrErr OR $FF00;
 IF GrErr <> grOK THEN
    BEGIN
     ClrScr;
     Writeln('Graphics error: ', GraphErrorMsg(GrErr));
     Halt(1);
    END;
 SetColor(White);
END;

FUNCTION DetectSvga256 : Integer;
BEGIN
 DetectSvga256 := v640x480;
END;

END.

I po kłopocie.

0

I o to chodziło!!! Gratulacje wspaniały zawodnik. [rotfl]

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0