+ introduced TVideoDriver.InitEnhancedDriver

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

packages/rtl-console/src/amicommon/video.pp

@@ -849,6 +849,7 @@ end;
 const
   SysVideoDriver : TVideoDriver = (
     InitDriver : @SysInitVideo;
+    InitEnhancedDriver: nil;
     DoneDriver : @SysDoneVideo;
     UpdateScreen : @SysUpdateScreen;
     ClearScreen : @SysClearScreen;

packages/rtl-console/src/go32v2/video.pp

@@ -306,6 +306,7 @@ end;
 Const
   SysVideoDriver : TVideoDriver = (
     InitDriver      : @SysInitVideo;
+    InitEnhancedDriver: nil;
     DoneDriver      : @SysDoneVideo;
     UpdateScreen    : @SysUpdateScreen;
     ClearScreen     : Nil;

packages/rtl-console/src/inc/videoh.inc

@@ -54,6 +54,7 @@ type
 
   TVideoDriver = Record
     InitDriver        : Procedure;
+    InitEnhancedDriver: Procedure;
     DoneDriver        : Procedure;
     UpdateScreen      : Procedure(Force : Boolean);
     ClearScreen       : Procedure;

packages/rtl-console/src/msdos/video.pp

@@ -279,6 +279,7 @@ end;
 Const
   SysVideoDriver : TVideoDriver = (
     InitDriver      : @SysInitVideo;
+    InitEnhancedDriver: nil;
     DoneDriver      : @SysDoneVideo;
     UpdateScreen    : @SysUpdateScreen;
     ClearScreen     : Nil;

packages/rtl-console/src/netware/video.pp

@@ -174,6 +174,7 @@ end;
 Const
   SysVideoDriver : TVideoDriver = (
   InitDriver        : @SysInitVideo;
+  InitEnhancedDriver: nil;
   DoneDriver        : @SysDoneVideo;
   UpdateScreen      : @SysUpdateScreen;
   ClearScreen       : Nil;

packages/rtl-console/src/netwlibc/video.pp

@@ -163,6 +163,7 @@ end;
 Const
   SysVideoDriver : TVideoDriver = (
   InitDriver        : @SysInitVideo;
+  InitEnhancedDriver: nil;
   DoneDriver        : @SysDoneVideo;
   UpdateScreen      : @SysUpdateScreen;
   ClearScreen       : Nil;

packages/rtl-console/src/os2commn/video.pp

@@ -428,6 +428,7 @@ end;
 Const
   SysVideoDriver : TVideoDriver = (
     InitDriver        : @SysInitVideo;
+    InitEnhancedDriver: nil;
     DoneDriver        : @SysDoneVideo;
     UpdateScreen      : @SysUpdateScreen;
     ClearScreen       : @SysClearScreen;

packages/rtl-console/src/unix/video.pp

@@ -1353,6 +1353,7 @@ end;
 Const
   SysVideoDriver : TVideoDriver = (
     InitDriver : @SysInitVideo;
+    InitEnhancedDriver: nil;
     DoneDriver : @SysDoneVideo;
     UpdateScreen : @SysUpdateScreen;
     ClearScreen : @SysClearScreen;

packages/rtl-console/src/win/video.pp

@@ -754,6 +754,7 @@ end;
 Const
   SysVideoDriver : TVideoDriver = (
     InitDriver : @SysInitVideo;
+    InitEnhancedDriver: nil;
     DoneDriver : @SysDoneVideo;
     UpdateScreen : @SysUpdateScreen;
     ClearScreen : @SysClearScreen;

packages/rtl-console/src/win16/video.pp

@@ -256,6 +256,7 @@ end;
 const
   SysVideoDriver: TVideoDriver = (
     InitDriver: @SysInitVideo;
+    InitEnhancedDriver: nil;
     DoneDriver: @SysDoneVideo;
     UpdateScreen: @SysUpdateScreen;
     ClearScreen: nil;