doubletap

diff --git a/Unit1.fmx b/Unit1.fmx
index 993c935..ed6892e 100644 (file)
--- a/Unit1.fmx
+++ b/Unit1.fmx
@@ -9,7 +9,7 @@ object Form1: TForm1
   FormFactor.Devices = [Desktop]
   DesignerMasterStyle = 0
   object Image1: TImage
-    Touch.InteractiveGestures = [Zoom, Pan, LongTap]
+    Touch.InteractiveGestures = [Zoom, Pan, DoubleTap]
     OnGesture = Image1Gesture
     OnTap = Image1Tap
     MultiResBitmap = <

diff --git a/Unit1.pas b/Unit1.pas
index c959332..9363bd6 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -46,7 +46,7 @@ var
   i, j: Single;
 begin
   case EventInfo.GestureID of
-    igiLongTap:
+    igiDoubleTap:
       begin
         SpeedButton1Click(Sender);
         tap := 0;