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

Qt, Qt5: process all events. issue #31372

Browse Source 
git-svn-id: trunk@54136 -
This commit is contained in:
zeljko 2017-02-10 17:03:38 +00:00
parent 12b82fa209
commit 4064104009
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwsforms.pp
View File

@ -594,7 +594,7 @@ begin
if Assigned(Application) and not Application.Terminated then if Assigned(Application) and not Application.Terminated then
begin begin
if AWinControl.HandleObjectShouldBeVisible or (fsModal in TCustomForm(AWinControl).FormState) then if AWinControl.HandleObjectShouldBeVisible or (fsModal in TCustomForm(AWinControl).FormState) then
QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents); QCoreApplication_processEvents(QEventLoopAllEvents);
end; end;
if (Application.TaskBarBehavior = tbSingleButton) or if (Application.TaskBarBehavior = tbSingleButton) or

5
lcl/interfaces/qt5/qtwsforms.pp
View File

@ -583,8 +583,9 @@ begin
Widget.EndUpdate; Widget.EndUpdate;
{$IFDEF HASX11} {$IFDEF HASX11}
if AWinControl.HandleObjectShouldBeVisible then if AWinControl.HandleObjectShouldBeVisible or
QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents); (fsModal in TCustomForm(AWinControl).FormState) then
QCoreApplication_processEvents(QEventLoopAllEvents);
if (Application.TaskBarBehavior = tbSingleButton) or if (Application.TaskBarBehavior = tbSingleButton) or
(TForm(AWinControl).ShowInTaskBar <> stDefault) then (TForm(AWinControl).ShowInTaskBar <> stDefault) then