From de2d562cfe97769b160f74c98b920b82a7e8d917 Mon Sep 17 00:00:00 2001
From: hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 11 Apr 2010 00:29:09 +0000
Subject:   * fix previously broken TProgram based FV programs (assuming that
 unit Video initializes screen parameters at startup)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15130 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fv/src/app.pas     | 2 +-
 packages/fv/src/drivers.pas | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'packages/fv')

diff --git a/packages/fv/src/app.pas b/packages/fv/src/app.pas
index 25a68630c6..511ce20a1e 100644
--- a/packages/fv/src/app.pas
+++ b/packages/fv/src/app.pas
@@ -806,7 +806,7 @@ BEGIN
   { the orginal code can't be used here because of the limited
     video unit capabilities, the mono modus can't be handled
   }
-{  Drivers.InitVideo;}
+  Drivers.DetectVideo;
   if (ScreenMode.Col div ScreenMode.Row<2) then
     ShadowSize.X := 1
   else
diff --git a/packages/fv/src/drivers.pas b/packages/fv/src/drivers.pas
index 6ec43e026d..57a382f128 100644
--- a/packages/fv/src/drivers.pas
+++ b/packages/fv/src/drivers.pas
@@ -483,6 +483,12 @@ be used after a call to this. Read(ln)/write(ln) can be used again.
 
 procedure donekeyboard;
 
+{-DetectVideo---------------------------------------------------------
+Detects the current video mode without initializing or otherwise
+changing the current screen.
+---------------------------------------------------------------------}
+procedure DetectVideo;
+
 {-InitVideo---------------------------------------------------------
 Initializes the video manager, Saves the current screen mode in
 StartupMode, and switches to the mode indicated by ScreenMode.
-- 
cgit v1.2.1