From 9bbc00df63548d428745246f808bc8ce5c254e81 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Fri, 1 Aug 2008 14:04:47 +0000
Subject: [PATCH] Qt: Fixed AV inside TQtScrollBar.EventFilter().

git-svn-id: trunk@15933 -
---
 lcl/interfaces/qt/qtwidgets.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index b7cdbfd973..3bcb18c3b9 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -4605,6 +4605,7 @@ begin
     QEventMouseButtonDblClick:
     begin
       if (FRealParentCtl <> nil)
+      and (FRealParentCtl.CanFocus)
       and not FRealParentCtl.Focused then
         FRealParentCtl.SetFocus;
       Result := False;