From a67628d40da25d317c881bae18631818471abbc0 Mon Sep 17 00:00:00 2001
From: Loesje_ <Loesje_@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 4 Nov 2010 12:27:21 +0000
Subject: [PATCH]  * initialize webbrowser on loaded, instead of createwnd, so
 that it is possible to use the webbrowser in FromCreate

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

diff --git a/components/geckoport/Components/GeckoBrowser.pas b/components/geckoport/Components/GeckoBrowser.pas
index 94148a745..9a5e0bbde 100755
--- a/components/geckoport/Components/GeckoBrowser.pas
+++ b/components/geckoport/Components/GeckoBrowser.pas
@@ -236,10 +236,7 @@ type
     // TControl
     procedure Resize; override;
 
-    // TWinControl
-    procedure CreateWnd; override;
-    procedure DestroyWnd; override;
-
+    procedure Loaded; override;
   protected
     property Chrome: TCustomGeckoBrowserChrome
         read FChrome write SetChrome;
@@ -1050,14 +1047,9 @@ begin
   baseWin.SetPositionAndSize(rc.Left, rc.Top, rc.Right - rc.Left, rc.Bottom - rc.Top, False);
 end;
 
-// TWinControl Œp³
-procedure TCustomGeckoBrowser.CreateWnd;
+procedure TCustomGeckoBrowser.Loaded;
 begin
-  {$IFDEF DEBUG}
-  OutputDebugString('TGeckoBrowser.CreateWnd');
-  {$ENDIF}
-  inherited CreateWnd;
-
+  inherited Loaded;
   if not (csDesigning in ComponentState) then
   begin
     InitWebBrowser;
@@ -1071,14 +1063,6 @@ begin
   end;
 end;
 
-procedure TCustomGeckoBrowser.DestroyWnd;
-begin
-  inherited DestroyWnd;
-  {$IFDEF DEBUG}
-  OutputDebugString('TGeckoBrowser.DestroyWnd');
-  {$ENDIF}
-end;
-
 procedure TCustomGeckoBrowser.GoBack;
 begin
   try