paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 15:36:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

QT: Fix not firing OnShow of TColorDialog and TFontDialog. Part of Issue #0030449.

Browse Source 
git-svn-id: trunk@52815 -
This commit is contained in:
bart 2016-08-17 11:48:44 +00:00
parent df62e1d21c
commit 811a82264e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtwsdialogs.pp
View File

@ -890,6 +890,9 @@ begin
X11Raise(QWidget_winID(TQtWidget(AWND).Widget)); X11Raise(QWidget_winID(TQtWidget(AWND).Widget));
end; end;
{$ENDIF} {$ENDIF}
//Since TQtWSColorDialog.CreateHandle returns 0, in TCommonDialog.Close DoClose will not be called,
//so call it from here
ACommonDialog.DoClose;
end; end;
{ TQtWSFontDialog } { TQtWSFontDialog }
@ -967,6 +970,9 @@ begin
X11Raise(QWidget_winID(TQtWidget(AWND).Widget)); X11Raise(QWidget_winID(TQtWidget(AWND).Widget));
end; end;
{$ENDIF} {$ENDIF}
//Since TQtWSFontDialog.CreateHandle returns 0, in TCommonDialog.Close DoClose will not be called,
//so call it from here
ACommonDialog.DoClose;
end; end;
end. end.