浏览代码

* changed the parameters to SetMouseXRange and SetMouseYRange (used internally
in the msdos mouse unit) to word instead of longint

git-svn-id: trunk@37748 -

nickysn 7 年之前
父节点
当前提交
5fd1d28f62
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/rtl-console/src/msdos/mouse.pp

+ 2 - 2
packages/rtl-console/src/msdos/mouse.pp

@@ -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