paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Clearscreen now also clears oldvideobuf after screenupdate

Browse Source
This commit is contained in:
michael 2001-10-10 21:03:48 +00:00
parent ab5bd73633
commit c957bff371
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/video.inc
View File

@ -145,6 +145,7 @@ begin
CurrentVideoDriver.ClearScreen
else
UpdateScreen(True);
FillWord(OldVideoBuf^,VideoBufSize shr 1,$0720);
end;
Procedure SetCursorType (NewType : Word);
@ -242,7 +243,10 @@ end;
{
$Log$
Revision 1.4 2001-10-06 22:28:24 michael
Revision 1.5 2001-10-10 21:03:48 michael
+ Clearscreen now also clears oldvideobuf after screenupdate
Revision 1.4 2001/10/06 22:28:24 michael
+ Merged video mode selection/setting system
Revision 1.3 2001/10/04 20:51:56 michael