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

amiga: Crt, fixed cursor x and y position

Browse Source 
git-svn-id: trunk@45114 -
This commit is contained in:
marcus 2020-04-26 16:47:47 +00:00
parent f72a795cc7
commit 86fa90b400
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
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, OldCursorY, OldCursorX, crHidden); DrawChar(BufRp, OldCursorX, OldCursorY, crHidden);
if CursorState then DrawChar(BufRp, CursorY, CursorX, CursorType); if CursorState then DrawChar(BufRp, CursorX, CursorY, CursorType);
{$else} {$else}
DrawChar(VideoWindow^.RPort, OldCursorY, OldCursorX, crHidden); DrawChar(VideoWindow^.RPort, OldCursorX, OldCursorY, crHidden);
if CursorState then DrawChar(VideoWindow^.RPort, CursorY, CursorX, CursorType); if CursorState then DrawChar(VideoWindow^.RPort, CursorX, CursorY, CursorType);
{$endif} {$endif}
OldCursorX := CursorX; OldCursorX := CursorX;
OldCursorY := CursorY; OldCursorY := CursorY;
@ -602,8 +602,8 @@ end;
procedure SysSetCursorPos(NewCursorX, NewCursorY: Word); procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
begin begin
CursorX := NewCursorY; CursorX := NewCursorX;
CursorY := NewCursorX; CursorY := NewCursorY;
SysUpdateScreen(False); SysUpdateScreen(False);
end; end;