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

* changed the parameters to SetMouseXRange and SetMouseYRange (used internally

Browse Source 
in the msdos mouse unit) to word instead of longint

git-svn-id: trunk@37748 -
This commit is contained in:
nickysn 2017-12-16 03:09:15 +00:00
parent 91a182081f
commit 5fd1d28f62
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-console/src/msdos/mouse.pp
View File

@ -460,7 +460,7 @@ asm
@@SetMouseXYExit:
end;
Procedure SetMouseXRange (Min,Max:Longint);
Procedure SetMouseXRange (Min,Max:word);
begin
If Not(MousePresent) Then Exit;
asm
@ -473,7 +473,7 @@ begin
end;
end;
Procedure SetMouseYRange (min,max:Longint);
Procedure SetMouseYRange (min,max:word);
begin
If Not(MousePresent) Then Exit;
asm