paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 02:28:14 +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

6
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.ClearScreen;
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.SetCursorPos(0,0);
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.DoneVideo;
{$ifdef FV_UNICODE}
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.DoneEnhancedVideo;
{$else FV_UNICODE}
{$IFDEF FPC_DOTTEDUNITS}System.Console.{$ENDIF}Video.DoneVideo;
{$endif FV_UNICODE}
VideoInitialized:=false;
END;