paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 22:17:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* screen dimensions for g640x480x32k were set to 640x400, changed

Browse Source
This commit is contained in:
Jonas Maebe 1999-12-25 08:25:20 +00:00
parent 735c2e8720
commit 04e5edf419
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/go32v2/graph.inc
View File

@ -1475,6 +1475,7 @@ const CrtAddress: word = 0;
{************************************************************************}
var
SavePtr : pointer; { pointer to video state }
CrtSavePtr: pointer; { pointer to video state when CrtMode gets called }
StateSize: word; { size in 64 byte blocks for video state }
VideoMode: byte; { old video mode before graph mode }
SaveSupPorted : Boolean; { Save/Restore video state supPorted? }
@ -1800,7 +1801,7 @@ const CrtAddress: word = 0;
function QueryAdapterInfo:PModeInfo;
{ This routine returns the head pointer to the list }
{ of supPorted graphics modes. }
{ Returns nil if no graphics mode supPorted. }
{ Returns nil if no graphics mode supported. }
{ This list is READ ONLY! }
var
EGADetected : Boolean;
@ -2139,7 +2140,7 @@ const CrtAddress: word = 0;
InitMode(mode);
mode.ModeNumber:=m640x480x32k;
mode.DriverNumber := VESA;
mode.ModeName:='640 x 400 VESA';
mode.ModeName:='640 x 480 VESA';
mode.MaxColor := 32768;
{ the ModeInfo is automatically set if the mode is supPorted }
{ by the call to SearchVESAMode. }
@ -2147,7 +2148,7 @@ const CrtAddress: word = 0;
mode.PaletteSize := mode.MaxColor;
mode.DirectColor := TRUE;
mode.MaxX := 639;
mode.MaxY := 399;
mode.MaxY := 479;
mode.DirectPutPixel:={$ifdef fpc}@{$endif}DirectPutPixVESA32k;
mode.PutPixel:={$ifdef fpc}@{$endif}PutPixVESA32k;
mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32k;
@ -2512,7 +2513,10 @@ const CrtAddress: word = 0;
{
$Log$
Revision 1.7 1999-12-12 13:34:19 jonas
Revision 1.8 1999-12-25 08:25:20 jonas
* screen dimensions for g640x480x32k were set to 640x400, changed
Revision 1.7 1999/12/12 13:34:19 jonas
* putimage now performs the lipping itself and uses directputpixel
(note: this REQUIRES or/and/notput support in directputpixel,
this is not yet the case in the assembler versions!)
@ -2632,7 +2636,7 @@ Revision 1.10 1999/09/11 19:43:01 jonas
places where it doesn't matter
Revision 1.9 1999/08/01 14:50:51 jonas
* fixed hline16 and vline16 for notput (also TP supPorts copy, and, or, xor and
* fixed hline16 and vline16 for notput (also TP supports copy, and, or, xor and
notput for lines!!)
* fixed directputpixel16 to support all the different put types