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

LCL: fixed calling finalization handlers when Application=nil

Browse Source 
git-svn-id: trunk@21397 -
This commit is contained in:
mattias 2009-08-22 17:01:30 +00:00
parent 1a7644e937
commit 766a2fcfb4
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -1785,7 +1785,6 @@ begin
Screen.DestroyCursors;
Screen.DestroyMonitors;
end;
if Application=nil then exit;
Application.Free;
Application:=nil;
FreeAllClipBoards;

2
lcl/lclproc.pas
View File

@ -1357,7 +1357,7 @@ procedure CallInterfaceFinalizationHandlers;
var
i: Integer;
begin
for i:=0 to InterfaceFinalizationHandlers.Count-1 do
for i:=InterfaceFinalizationHandlers.Count-1 downto 0 do
TProcedure(InterfaceFinalizationHandlers[i])();
end;