Więcej niż 640x480 w pscalu?

Odpowiedz Nowy wątek
leonpar
2006-12-08 11:45
leonpar
0

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

Pozostało 580 znaków

Mgr.Dobrowolski
2006-12-08 12:50
Mgr.Dobrowolski
0

we FreePascalu to proste

Pozostało 580 znaków

leonpar
2006-12-08 15:44
leonpar
0

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

Pozostało 580 znaków

2006-12-08 17:23

Rejestracja: 13 lat temu

Ostatnio: 6 lat temu

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.


<span style="color: blue">"Kolarstwo to jedna z najtrudniejszych dyscyplin sportu. Nawet najgorszy kolarz jest wciąż wybitnym sportowcem."
s.p. Marco Pantani
</span>

Pozostało 580 znaków

leonpar
2006-12-09 12:29
leonpar
0

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

Pozostało 580 znaków

Odpowiedz

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