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

Properly mirror InitEnhancedVideo with DoneEnhancedVideo in FV.

Browse Source
This commit is contained in:
Margers 2024-09-11 00:58:54 +00:00 committed by Michael Van Canneyt
parent bc7c288703
commit 359d23e595
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fv/src/drivers.inc
View File

@ -1614,7 +1614,11 @@ BEGIN
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.SetVideoMode(StartupScreenMode); {$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.SetVideoMode(StartupScreenMode);
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.ClearScreen; {$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.ClearScreen;
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.SetCursorPos(0,0); {$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.SetCursorPos(0,0);
{$ifdef FV_UNICODE}
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.DoneEnhancedVideo;
{$else FV_UNICODE}
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.DoneVideo; {$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.DoneVideo;
{$endif FV_UNICODE}
VideoInitialized:=false; VideoInitialized:=false;
END; END;