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

* fixed the go32v2 mouse unit for 40 column modes

Browse Source 
git-svn-id: trunk@29072 -
This commit is contained in:
nickysn 2014-11-13 23:07:48 +00:00
parent 3effe8d62a
commit 537902c2fe
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/rtl-console/src/go32v2/mouse.pp
View File

@ -101,6 +101,10 @@ asm
movw %dx,mousewherey
shrw $3,%cx
shrw $3,%dx
cmpw $40,ScreenWidth
jne .Lmorethan40cols
shrw $1,%cx
.Lmorethan40cols:
{ should we draw the mouse cursor? }
cmpb $0,drawmousecursor
je .Lmouse_nocursor
@ -643,6 +647,10 @@ asm
popl %ebp
movzwl %cx,%eax
shrl $3,%eax
cmpw $40,ScreenWidth
jne .Lmorethan40cols
shrl $1,%eax
.Lmorethan40cols:
incl %eax
jmp .Lexit
.LGetMouseXError:
@ -738,7 +746,10 @@ procedure DoCustomMouse(b : boolean);
CustomMouse_HideCount:=1;
oldmousex:=-1;
oldmousey:=-1;
SetMouseXRange(0,(screenwidth-1)*8);
if ScreenWidth=40 then
SetMouseXRange(0,(screenwidth-1)*16)
else
SetMouseXRange(0,(screenwidth-1)*8);
SetMouseYRange(0,(screenheight-1)*8);
if b then
begin