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

Qt: Fixed AppWaitMessage(), produced AV's sometimes because of pending events.

Browse Source 
git-svn-id: trunk@12533 -
This commit is contained in:
zeljko 2007-10-20 12:12:46 +00:00
parent ce4864f3b7
commit 53066a6564
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtobject.inc
View File

@ -138,7 +138,11 @@ end;
------------------------------------------------------------------------------}
procedure TQtWidgetSet.AppWaitMessage;
begin
QCoreApplication_processEvents(QEventLoopWaitForMoreEvents);
{we cannot call directly processEvents() with this flag
since it produces AV's sometimes, so better check is there
any pending event.}
if not QCoreApplication_hasPendingEvents then
QCoreApplication_processEvents(QEventLoopWaitForMoreEvents);
end;
{------------------------------------------------------------------------------