From 6136987045332a8679d1d5b3ad77ea8e834222b3 Mon Sep 17 00:00:00 2001
From: yamat0jp <yamat0jp@yahoo.co.jp>
Date: Sun, 29 Oct 2017 10:43:56 +0900
Subject: [PATCH] doubletap

---
 Unit1.fmx | 2 +-
 Unit1.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Unit1.fmx b/Unit1.fmx
index 993c935..ed6892e 100644
--- 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
--- 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;
-- 
2.11.0