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

Qt5: more safe appTerminate.

Browse Source 
git-svn-id: trunk@62230 -
This commit is contained in:
zeljko 2019-11-11 09:57:46 +00:00
parent d35e17fbdd
commit e5aa7dd8f8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt5/qtobject.inc
View File

@ -311,8 +311,12 @@ end;
procedure TQtWidgetSet.AppTerminate;
begin
// free hooks
if Assigned(FAppEvenFilterHook) then
QObject_hook_destroy(FAppEvenFilterHook);
if Assigned(FAppFocusChangedHook) then
QApplication_hook_destroy(FAppFocusChangedHook);
FAppEvenFilterHook := nil;
FAppFocusChangedHook := nil;
// do not quit application if we are library
if not FIsLibraryInstance then
begin