mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 18:58:17 +02:00
parent
12b82fa209
commit
4064104009
@ -594,7 +594,7 @@ begin
|
||||
if Assigned(Application) and not Application.Terminated then
|
||||
begin
|
||||
if AWinControl.HandleObjectShouldBeVisible or (fsModal in TCustomForm(AWinControl).FormState) then
|
||||
QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents);
|
||||
QCoreApplication_processEvents(QEventLoopAllEvents);
|
||||
end;
|
||||
|
||||
if (Application.TaskBarBehavior = tbSingleButton) or
|
||||
|
@ -583,8 +583,9 @@ begin
|
||||
Widget.EndUpdate;
|
||||
|
||||
{$IFDEF HASX11}
|
||||
if AWinControl.HandleObjectShouldBeVisible then
|
||||
QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents);
|
||||
if AWinControl.HandleObjectShouldBeVisible or
|
||||
(fsModal in TCustomForm(AWinControl).FormState) then
|
||||
QCoreApplication_processEvents(QEventLoopAllEvents);
|
||||
|
||||
if (Application.TaskBarBehavior = tbSingleButton) or
|
||||
(TForm(AWinControl).ShowInTaskBar <> stDefault) then
|
||||
|
Loading…
Reference in New Issue
Block a user