From 811a82264ede77183171763dce514716d9a16a2f Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Wed, 17 Aug 2016 11:48:44 +0000
Subject: [PATCH] QT: Fix not firing OnShow of TColorDialog and TFontDialog.
 Part of Issue #0030449.

git-svn-id: trunk@52815 -
---
 lcl/interfaces/qt/qtwsdialogs.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lcl/interfaces/qt/qtwsdialogs.pp b/lcl/interfaces/qt/qtwsdialogs.pp
index 4ff768c70d..58bff997df 100644
--- a/lcl/interfaces/qt/qtwsdialogs.pp
+++ b/lcl/interfaces/qt/qtwsdialogs.pp
@@ -890,6 +890,9 @@ begin
       X11Raise(QWidget_winID(TQtWidget(AWND).Widget));
   end;
   {$ENDIF}
+  //Since TQtWSColorDialog.CreateHandle returns 0, in TCommonDialog.Close DoClose will not be called,
+  //so call it from here
+  ACommonDialog.DoClose;
 end;
 
 { TQtWSFontDialog }
@@ -967,6 +970,9 @@ begin
       X11Raise(QWidget_winID(TQtWidget(AWND).Widget));
   end;
   {$ENDIF}
+  //Since TQtWSFontDialog.CreateHandle returns 0, in TCommonDialog.Close DoClose will not be called,
+  //so call it from here
+  ACommonDialog.DoClose;
 end;
 
 end.