* fixed m1024x768x32k initialisation (noted by Evgeniy Ivanov)

git-svn-id: trunk@8295 -

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;

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