From 12aa20049632a6755a052e882157c0bb6aa460ce Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 23 Apr 2010 21:32:45 +0000
Subject: [PATCH] Qt: do not double mouse events from tabbar. fixes #16325

git-svn-id: trunk@24868 -
---
 lcl/interfaces/qt/qtwidgets.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index c43d8112cb..ac004ec1fc 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -6270,7 +6270,11 @@ begin
     QEventKeyRelease: SlotKey(Sender, Event);
     QEventMouseButtonPress,
     QEventMouseButtonRelease,
-    QEventMouseButtonDblClick: Result := SlotTabBarMouse(Sender, Event);
+    QEventMouseButtonDblClick:
+      begin
+        if QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton then
+          Result := SlotTabBarMouse(Sender, Event);
+      end;
   else
     QEvent_ignore(Event);
   end;