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

LCL: Add ExitProc to TApplication differently. Issue #38039, patch from Cyrax.

Browse Source 
git-svn-id: trunk@64110 -
This commit is contained in:
juha 2020-11-06 10:42:01 +00:00
parent 54029095cc
commit 741a56883e
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -1397,7 +1397,6 @@ type
FMouseControl: TControl;
FNavigation: TApplicationNavigationOptions;
FOldExceptProc: TExceptProc;
FOldExitProc: Pointer;
FOnActionExecute: TActionEvent;
FOnActionUpdate: TActionEvent;
FOnActivate: TNotifyEvent;

5
lcl/include/application.inc
View File

@ -119,8 +119,7 @@ begin
inherited Create(AOwner);
CaptureExceptions:=true;
FOldExitProc:=ExitProc;
ExitProc:=@BeforeFinalization;
AddExitProc(@BeforeFinalization);
OnGetApplicationName := @GetApplicationName;
end;
@ -135,8 +134,6 @@ begin
if Assigned(FOnDestroy) then FOnDestroy(Self);
ExitProc:=FOldExitProc;
ProcessAsyncCallQueue;
if OnMenuPopupHandler=@MenuPopupHandler then