From c871f99df25ead547f6994dccc185cf3bcc81eeb Mon Sep 17 00:00:00 2001 From: ondrej Date: Sun, 3 Jan 2016 22:47:13 +0000 Subject: [PATCH] gtk2: test mouse multiclicks also to component sender. Solves also issue #29314 git-svn-id: trunk@51176 - --- lcl/interfaces/gtk2/gtk2callback.inc | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lcl/interfaces/gtk2/gtk2callback.inc b/lcl/interfaces/gtk2/gtk2callback.inc index 4dd90e65e1..09b1f6822a 100644 --- a/lcl/interfaces/gtk2/gtk2callback.inc +++ b/lcl/interfaces/gtk2/gtk2callback.inc @@ -2039,6 +2039,11 @@ var Result:=(LastMouse.Window<>nil) and (LastMouse.Window=Event^.Window); end; + function LastClickInSameComponent: boolean; + begin + Result:=(LastMouse.Component<>nil) and (LastMouse.Component=AWinControl); + end; + function LastClickAtSamePosition: boolean; begin Result:= (Abs(EventXY.X-LastMouse.WindowPoint.X)<=DblClickThreshold) @@ -2053,6 +2058,7 @@ var function TestIfMultiClick: boolean; begin Result:=LastClickInSameGdkWindow + and LastClickInSameComponent and LastClickAtSamePosition and LastClickInTime; end;