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

clean up

Browse Source 
git-svn-id: trunk@11237 -
This commit is contained in:
mattias 2007-05-31 11:01:22 +00:00
parent b55c917aee
commit 7cee27e7d9
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/application.inc
View File

@ -143,17 +143,14 @@ begin
UnregisterFindGlobalComponentProc(@FindApplicationComponent);
DebugLn(['TApplication.Destroy AAA6']);
inherited Destroy;
Include(FFlags,AppDoNotCallAsyncQueue);
DebugLn(['TApplication.Destroy AAA7']);
ProcessAsyncCallQueue;
// restore exception handling
CaptureExceptions:=false;
LCLProc.SendApplicationMessageFunction:=nil;
DebugLn(['TApplication.Destroy END']);
end;
{------------------------------------------------------------------------------