hedgewars/uTouch.pas
changeset 9377 48ab6dea8d2f
parent 8204 9a6030d96273
child 9379 1bcfcaf0926e
--- a/hedgewars/uTouch.pas	Fri Jul 26 00:37:56 2013 +0200
+++ b/hedgewars/uTouch.pas	Fri Jul 26 23:02:25 2013 +0200
@@ -558,7 +558,7 @@
     isOnCrosshair:= isOnRect((x-HalfRectSize), (y-HalfRectSize), RectSize, RectSize, finger);
     printFinger(finger);
     WriteLnToConsole(inttostr(finger.x) + '   ' + inttostr(x));
-    WriteLnToConsole(inttostr(x) + '  ' + inttostr(y) + '   ' + inttostr(round(mobileRecord.getScreenDPI() * 10)));
+    WriteLnToConsole(inttostr(x) + '  ' + inttostr(y) + '   ' + inttostr(10));
 end;
 
 function isOnCurrentHog(finger: TTouch_Data): boolean;
@@ -640,8 +640,8 @@
     for index := 0 to High(fingers) do 
         fingers[index].id := nilFingerId;
 
-    rectSize:= round(baseRectSize * mobileRecord.getScreenDPI());
-    halfRectSize:= rectSize shl 1;
+    rectSize:= baseRectSize;
+    halfRectSize:= baseRectSize shl 1;
 end;
 
 procedure freeModule;