From 03b649747529a892de03b13257ac5e087a627f9d Mon Sep 17 00:00:00 2001
From: Loesje_ <Loesje_@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 28 Jan 2011 11:36:49 +0000
Subject: [PATCH]  * Fixed mem-leaks in designer. If there are instances
 created, release them. Even in csDesigning mode. (which is not always set
 already at creation)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1467 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/geckoport/Components/GeckoBrowser.pas | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/components/geckoport/Components/GeckoBrowser.pas b/components/geckoport/Components/GeckoBrowser.pas
index 08dfbfe0b..7d7b40f88 100755
--- a/components/geckoport/Components/GeckoBrowser.pas
+++ b/components/geckoport/Components/GeckoBrowser.pas
@@ -1070,17 +1070,16 @@ begin
   {$IFDEF DEBUG}
   OutputDebugString('TGeckoBrowser.Destroy');
   {$ENDIF}
-  if not (csDesigning in ComponentState) then
-  begin
+
+  if assigned(FDesignTimeLogo) then
     FreeAndNil(FDesignTimeLogo);
-    ShutdownWebBrowser;
+  ShutdownWebBrowser;
 
-    Chrome := nil;
-    Listener := nil;
+  Chrome := nil;
+  Listener := nil;
 
-    if FGeckoComponentsStartupSucceeded then
-      GeckoComponentsShutdown;
-  end;
+  if FGeckoComponentsStartupSucceeded then
+    GeckoComponentsShutdown;
 
   inherited;
 end;