* Try to fix VideoMode change problem

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16452 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 7 insertions, 1 deletions

diff --git a/packages/fv/src/app.pas b/packages/fv/src/app.pas
index 511ce20a1e..876a6ddd01 100644
--- a/packages/fv/src/app.pas
+++ b/packages/fv/src/app.pas
@@ -900,8 +900,14 @@ begin
   ScreenMode:=Mode;
 {  InitMouse;
   InitMemory;}
-  InitScreen;
+{  InitScreen;
+   Warning: InitScreen calls DetectVideo which
+    resets ScreenMode to old value, call it after
+    video mode was changed instead of before }
   Video.SetVideoMode(Mode);
+
+  { Update ScreenMode to new value }
+  InitScreen;
   ScreenWidth:=Video.ScreenWidth;
   ScreenHeight:=Video.ScreenHeight;
   Buffer := Views.PVideoBuf(VideoBuf);