From f4c0e92dd428b38b7c7c729626fdc1495c8169e9 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 21 Aug 2007 20:04:37 +0000
Subject: [PATCH]   * fixed m1024x768x32k initialisation (noted by Evgeniy
 Ivanov)

git-svn-id: trunk@8295 -
---
 packages/base/graph/go32v2/graph.pp |  2 +-
 packages/base/graph/go32v2/vesa.inc | 10 ++++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/packages/base/graph/go32v2/graph.pp b/packages/base/graph/go32v2/graph.pp
index d4d5330b73..9d9e56a431 100644
--- a/packages/base/graph/go32v2/graph.pp
+++ b/packages/base/graph/go32v2/graph.pp
@@ -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;
diff --git a/packages/base/graph/go32v2/vesa.inc b/packages/base/graph/go32v2/vesa.inc
index bb06b3877c..b814780fed 100644
--- a/packages/base/graph/go32v2/vesa.inc
+++ b/packages/base/graph/go32v2/vesa.inc
@@ -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