hedgewars/uTouch.pas
changeset 14326 575baea4108b
parent 14325 055eae933482
child 14559 1dab5d92aca7
--- a/hedgewars/uTouch.pas	Mon Nov 26 21:13:49 2018 +0100
+++ b/hedgewars/uTouch.pas	Mon Nov 26 22:48:27 2018 +0100
@@ -74,9 +74,6 @@
     moveCursor : boolean;
     invertCursor : boolean;
 
-    xTouchClick,yTouchClick : LongInt;
-    timeSinceClick : Longword;
-
     //Pinch to zoom
     pinchSize : LongInt;
     baseZoomValue: GLFloat;
@@ -317,16 +314,6 @@
 
 procedure onTouchClick(finger: TTouch_Data);
 begin
-//if (RealTicks - timeSinceClick < 300) and (sqrt(sqr(finger.X-xTouchClick) + sqr(finger.Y-yTouchClick)) < 30) then
-//    begin
-//    onTouchDoubleClick(finger);
-//    timeSinceClick:= 0;//we make an assumption there won't be an 'click' in the first 300 ticks(milliseconds)
-//    exit;
-//    end;
-
-xTouchClick:= finger.x;
-yTouchClick:= finger.y;
-timeSinceClick:= RealTicks;
 
 if bShowAmmoMenu then
     begin
@@ -637,7 +624,6 @@
 procedure initModule;
 var
     index: Longword;
-    //uRenderCoordScaleX, uRenderCoordScaleY: Longword;
 begin
     buttonsDown:= 0;
     pointerCount:= 0;