pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fixed mem-leaks in designer. If there are instances created, release them. Even in csDesigning mode. (which is not always set already at creation)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1467 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Loesje_
2011-01-28 11:36:49 +00:00
parent e76eea2eae
commit 03b6497475
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/geckoport/Components/GeckoBrowser.pas
View File

@@ -1070,17 +1070,16 @@ begin
{$IFDEF DEBUG} {$IFDEF DEBUG}
OutputDebugString('TGeckoBrowser.Destroy'); OutputDebugString('TGeckoBrowser.Destroy');
{$ENDIF} {$ENDIF}
if not (csDesigning in ComponentState) then
begin if assigned(FDesignTimeLogo) then
FreeAndNil(FDesignTimeLogo); FreeAndNil(FDesignTimeLogo);
ShutdownWebBrowser; ShutdownWebBrowser;
Chrome := nil; Chrome := nil;
Listener := nil; Listener := nil;
if FGeckoComponentsStartupSucceeded then if FGeckoComponentsStartupSucceeded then
GeckoComponentsShutdown; GeckoComponentsShutdown;
end;
inherited; inherited;
end; end;