paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 16:26:03 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Use VGAHi for go32v2 graph version for now

Browse Source
This commit is contained in:
pierre 2002-05-29 21:21:54 +00:00
parent 92fa4d6388
commit 9e528855ed
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fv/drivers.pas
View File

@ -1293,6 +1293,10 @@ if VideoInitialized then
{$ifdef GRAPH_API} {$ifdef GRAPH_API}
if Not TextmodeGFV then if Not TextmodeGFV then
begin begin
{$ifdef go32v2}
I := VGA;
J := VGAHi;
{$else not go32v2}
{$ifdef win32} {$ifdef win32}
I := VESA; I := VESA;
J := mLargestWindow16; J := mLargestWindow16;
@ -1300,6 +1304,7 @@ if Not TextmodeGFV then
I := Detect; { Detect video card } I := Detect; { Detect video card }
J := 0; { Zero select mode } J := 0; { Zero select mode }
{$endif win32} {$endif win32}
{$endif go32v2}
InitGraph(I, J, ''); { Initialize graphics } InitGraph(I, J, ''); { Initialize graphics }
I := Graph.GetMaxX; { Fetch max x size } I := Graph.GetMaxX; { Fetch max x size }
J := Graph.GetMaxY; { Fetch max y size } J := Graph.GetMaxY; { Fetch max y size }
@ -1621,7 +1626,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.21 2002-05-29 19:36:12 pierre Revision 1.22 2002-05-29 21:21:54 pierre
* Use VGAHi for go32v2 graph version for now
Revision 1.21 2002/05/29 19:36:12 pierre
* fix graph related problems * fix graph related problems
Revision 1.20 2002/05/28 19:14:35 pierre Revision 1.20 2002/05/28 19:14:35 pierre

10
fvision/drivers.pas
View File

@ -1293,6 +1293,10 @@ if VideoInitialized then
{$ifdef GRAPH_API} {$ifdef GRAPH_API}
if Not TextmodeGFV then if Not TextmodeGFV then
begin begin
{$ifdef go32v2}
I := VGA;
J := VGAHi;
{$else not go32v2}
{$ifdef win32} {$ifdef win32}
I := VESA; I := VESA;
J := mLargestWindow16; J := mLargestWindow16;
@ -1300,6 +1304,7 @@ if Not TextmodeGFV then
I := Detect; { Detect video card } I := Detect; { Detect video card }
J := 0; { Zero select mode } J := 0; { Zero select mode }
{$endif win32} {$endif win32}
{$endif go32v2}
InitGraph(I, J, ''); { Initialize graphics } InitGraph(I, J, ''); { Initialize graphics }
I := Graph.GetMaxX; { Fetch max x size } I := Graph.GetMaxX; { Fetch max x size }
J := Graph.GetMaxY; { Fetch max y size } J := Graph.GetMaxY; { Fetch max y size }
@ -1621,7 +1626,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.21 2002-05-29 19:36:12 pierre Revision 1.22 2002-05-29 21:21:54 pierre
* Use VGAHi for go32v2 graph version for now
Revision 1.21 2002/05/29 19:36:12 pierre
* fix graph related problems * fix graph related problems
Revision 1.20 2002/05/28 19:14:35 pierre Revision 1.20 2002/05/28 19:14:35 pierre