Jeśli ktoś wie prosze o pomoc. Jest to mi bardzo potrzebne do mojego programu.
0
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]