Преглед изворни кода

* 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:
 @@SetMouseXYExit:
 end;
 end;
 
 
-Procedure SetMouseXRange (Min,Max:Longint);
+Procedure SetMouseXRange (Min,Max:word);
 begin
 begin
   If Not(MousePresent) Then Exit;
   If Not(MousePresent) Then Exit;
   asm
   asm
@@ -473,7 +473,7 @@ begin
   end;
   end;
 end;
 end;
 
 
-Procedure SetMouseYRange (min,max:Longint);
+Procedure SetMouseYRange (min,max:word);
 begin
 begin
   If Not(MousePresent) Then Exit;
   If Not(MousePresent) Then Exit;
   asm
   asm