paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed m1024x768x32k initialisation (noted by Evgeniy Ivanov)

Browse Source 
git-svn-id: trunk@8295 -
This commit is contained in:
Jonas Maebe 2007-08-21 20:04:37 +00:00
parent d69db0aa54
commit f4c0e92dd4
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/base/graph/go32v2/graph.pp
View File

@ -2737,7 +2737,7 @@ const CrtAddress: word = 0;
mode.GetPixel:={$ifdef fpc}@{$endif}GetPixVESA32kOr64k;
mode.SetRGBPalette := {$ifdef fpc}@{$endif}SetVESARGBPalette;
mode.GetRGBPalette := {$ifdef fpc}@{$endif}GetVESARGBPalette;
mode.InitMode := {$ifdef fpc}@{$endif}Init640x480x32k;
mode.InitMode := {$ifdef fpc}@{$endif}Init1024x768x32k;
mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisualVESA;
mode.SetActivePage := {$ifdef fpc}@{$endif}SetActiveVESA;
mode.XAspect := 10000;

10
packages/base/graph/go32v2/vesa.inc
View File

@ -2393,9 +2393,9 @@ Const
ScanLines := GetMaxScanLines;
end;
procedure Init640x480x32k; {$ifndef fpc}far;{$endif fpc}
procedure Init1024x768x32k; {$ifndef fpc}far;{$endif fpc}
begin
SetVESAMode(m640x480x32k);
SetVESAMode(m1024x768x32k);
{ Get maximum number of scanlines for page flipping }
ScanLines := GetMaxScanLines;
end;
@ -2449,6 +2449,12 @@ Const
ScanLines := GetMaxScanLines;
end;
procedure Init640x480x32k; {$ifndef fpc}far;{$endif fpc}
begin
SetVESAMode(m640x480x32k);
{ Get maximum number of scanlines for page flipping }
ScanLines := GetMaxScanLines;
end;
procedure Init640x480x256; {$ifndef fpc}far;{$endif fpc}
begin