From 04d0286c7301e954952ee50cb03a5f7c74dc20e0 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 30 Jul 2007 20:37:19 +0000
Subject: [PATCH] (Qt): Fix workaround for TCustomPage->mouseGrab().

git-svn-id: trunk@11682 -
---
 lcl/interfaces/qt/qtwinapi.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index ae2f87a13b..45a26ff08b 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -3909,9 +3909,9 @@ begin
     begin
       {TODO: freezing workaround, ttabsheet kills mouse at all (X & app),
        when we click onto empty tabsheet.
-       don't know for others , so it's ifdef-ed}
+       don't know for others , so it's ifdef-ed for linux}
       {$ifdef linux}
-      if not (TQtWidget(AHandle).LCLObject is TTabSheet) then
+      if not (TQtWidget(AHandle).LCLObject.InheritsFrom(TCustomPage)) then
       {$endif}
         TQtWidget(AHandle).grabMouse();
     end;