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

Amiga: Video unit, do not draw Cursor if outside the window (would write over the window border)

Browse Source 
git-svn-id: trunk@45161 -
This commit is contained in:
marcus 2020-04-28 21:14:44 +00:00
parent c8b7094378
commit 8aacea8850
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -584,11 +584,11 @@ begin
SmallForce or ForceCursorUpdate then SmallForce or ForceCursorUpdate then
begin begin
{$ifdef WITHBUFFERING} {$ifdef WITHBUFFERING}
DrawChar(BufRp, OldCursorX, OldCursorY, crHidden); if (OldCursorX >= 0) and (OldCursorX < ScreenWidth) and (OldCursorY >= 0) and (OldCursorY < ScreenHeight) then DrawChar(BufRp, OldCursorX, OldCursorY, crHidden);
if CursorState then DrawChar(BufRp, CursorX, CursorY, CursorType); if CursorState and (CursorX >= 0) and (CursorX < ScreenWidth) and (CursorY >= 0) and (CursorY < ScreenHeight) then DrawChar(BufRp, CursorX, CursorY, CursorType);
{$else} {$else}
DrawChar(VideoWindow^.RPort, OldCursorX, OldCursorY, crHidden); if (OldCursorX >= 0) and (OldCursorX < ScreenWidth) and (OldCursorY >= 0) and (OldCursorY < ScreenHeight) then DrawChar(VideoWindow^.RPort, OldCursorX, OldCursorY, crHidden);
if CursorState then DrawChar(VideoWindow^.RPort, CursorX, CursorY, CursorType); if CursorState and (CursorX >= 0) and (CursorX < ScreenWidth) and (CursorY >= 0) and (CursorY < ScreenHeight) then DrawChar(VideoWindow^.RPort, CursorX, CursorY, CursorType);
{$endif} {$endif}
OldCursorX := CursorX; OldCursorX := CursorX;
OldCursorY := CursorY; OldCursorY := CursorY;