From 5d75e55db4c09256e6ef547db9749f9a31306ea9 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 14 Apr 2014 18:24:37 +0000
Subject: [PATCH] Qt: use cheaper method to check modality.

git-svn-id: trunk@44732 -
---
 lcl/interfaces/qt/qtwsforms.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwsforms.pp b/lcl/interfaces/qt/qtwsforms.pp
index b984c4364a..d295531b3f 100644
--- a/lcl/interfaces/qt/qtwsforms.pp
+++ b/lcl/interfaces/qt/qtwsforms.pp
@@ -563,7 +563,7 @@ begin
         (TCustomForm(AWinControl).PopupParent = nil) then
       begin
         W := QApplication_activeWindow;
-        if (W <> nil) and (W <> QApplication_activeModalWidget) then
+        if (W <> nil) and not QWidget_isModal(W) then
         begin
           Flags := QWidget_windowFlags(W);
           if (Flags and QtWindowStaysOnTopHint <> QtWindowStaysOnTopHint) and