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

lcl: properly initialize and finalize more application properties handlers

Browse Source 
git-svn-id: trunk@23603 -
This commit is contained in:
paul 2010-01-30 17:48:30 +00:00
parent 19471a58d8
commit f0c2b4ccf2
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/applicationproperties.inc
View File

@ -319,6 +319,11 @@ begin
FOnUserInput := nil;
FOnEndSession := nil;
FOnQueryEndSession := nil;
FOnMinimize := nil;
FOnModalBegin := nil;
FOnModalEnd := nil;
FOnRestore := nil;
FOnDropFiles := nil;
end;
destructor TApplicationProperties.Destroy;
@ -331,6 +336,8 @@ begin
Application.RemoveOnEndSessionHandler(FOnEndSession);
Application.RemoveOnQueryEndSessionHandler(FOnQueryEndSession);
Application.RemoveOnMinimizeHandler(FOnMinimize);
Application.RemoveOnModalBeginHandler(FOnModalBegin);
Application.RemoveOnModalEndHandler(FOnModalEnd);
Application.RemoveOnRestoreHandler(FOnRestore);
Application.RemoveOnDropFilesHandler(FOnDropFiles);
Application.RemoveOnHelpHandler(FOnHelp);