diff options
Diffstat (limited to 'packages/rtl-console/src/win16/video.pp')
-rw-r--r-- | packages/rtl-console/src/win16/video.pp | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/packages/rtl-console/src/win16/video.pp b/packages/rtl-console/src/win16/video.pp index 22d656fc8a..fde5347938 100644 --- a/packages/rtl-console/src/win16/video.pp +++ b/packages/rtl-console/src/win16/video.pp @@ -31,7 +31,7 @@ var implementation uses - WinProcs; + WinProcs, graphemebreakproperty, eastasianwidth, charset; {$I video.inc} @@ -255,17 +255,22 @@ end; const SysVideoDriver: TVideoDriver = ( - InitDriver: @SysInitVideo; - DoneDriver: @SysDoneVideo; - UpdateScreen: @SysUpdateScreen; - ClearScreen: nil; - SetVideoMode: @SysSetVideoMode; - GetVideoModeCount: nil; - GetVideoModeData: nil; - SetCursorPos: @SysSetCursorPos; - GetCursorType: @SysGetCursorType; - SetCursorType: @SysSetCursorType; - GetCapabilities: @SysGetCapabilities; + InitDriver : @SysInitVideo; + InitEnhancedDriver : nil; + DoneDriver : @SysDoneVideo; + UpdateScreen : @SysUpdateScreen; + ClearScreen : nil; + SetVideoMode : @SysSetVideoMode; + GetVideoModeCount : nil; + GetVideoModeData : nil; + SetCursorPos : @SysSetCursorPos; + GetCursorType : @SysGetCursorType; + SetCursorType : @SysSetCursorType; + GetCapabilities : @SysGetCapabilities; + GetActiveCodePage : nil; + ActivateCodePage : nil; + GetSupportedCodePageCount : nil; + GetSupportedCodePage : nil; ); begin |