paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced TVideoDriver.InitEnhancedDriver

Browse Source 
git-svn-id: branches/unicodekvm@48467 -
This commit is contained in:
nickysn 2021-01-31 14:26:33 +00:00
parent f8320dff08
commit 3f852e1444
10 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/rtl-console/src/amicommon/video.pp
View File

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

1
packages/rtl-console/src/go32v2/video.pp
View File

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

1
packages/rtl-console/src/inc/videoh.inc
View File

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

1
packages/rtl-console/src/msdos/video.pp
View File

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

1
packages/rtl-console/src/netware/video.pp
View File

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

1
packages/rtl-console/src/netwlibc/video.pp
View File

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

1
packages/rtl-console/src/os2commn/video.pp
View File

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

1
packages/rtl-console/src/unix/video.pp
View File

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

1
packages/rtl-console/src/win/video.pp
View File

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

1
packages/rtl-console/src/win16/video.pp
View File

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