+ introduced unit udrivers, which calls InitEnhancedVideo instead of InitVideo (i.e. enables unicode mode in the video unit)

git-svn-id: branches/unicodekvm@48542 -

.gitattributes

@@ -5027,6 +5027,7 @@ packages/fv/src/sysmsg.pas svneol=native#text/plain
 packages/fv/src/tabs.pas svneol=native#text/plain
 packages/fv/src/time.pas svneol=native#text/plain
 packages/fv/src/timeddlg.pas svneol=native#text/plain
+packages/fv/src/udrivers.pas svneol=native#text/plain
 packages/fv/src/unixsmsg.inc svneol=native#text/plain
 packages/fv/src/validate.pas svneol=native#text/plain
 packages/fv/src/views.pas svneol=native#text/plain

packages/fv/fpmake.pp

@@ -118,6 +118,15 @@ begin
           AddUnit('fvcommon');
           AddUnit('fvconsts');
         end;
+    T:=P.Targets.AddUnit('udrivers.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('drivers.inc');
+          AddInclude('platform.inc');
+          AddUnit('sysmsg');
+          AddUnit('fvcommon');
+          AddUnit('fvconsts');
+        end;
     T:=P.Targets.AddUnit('editors.pas');
       with T.Dependencies do
         begin

packages/fv/src/drivers.inc

@@ -31,7 +31,11 @@
 {                                                          }
 {**********************************************************}
 
+{$ifdef FV_UNICODE}
+UNIT UDrivers;
+{$else FV_UNICODE}
 UNIT Drivers;
+{$endif FV_UNICODE}
 
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE
@@ -1359,7 +1363,11 @@ begin
   else
     StoreScreenMode.Col:=0;
 
+{$ifdef FV_UNICODE}
+  Video.InitEnhancedVideo;
+{$else FV_UNICODE}
   Video.InitVideo;
+{$endif FV_UNICODE}
   if video.errorcode<>viook then
     exit;
   GetVideoMode(StartupScreenMode);

packages/fv/src/udrivers.pas

@@ -0,0 +1,2 @@
+{$DEFINE FV_UNICODE}
+{$I drivers.inc}