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

* initialize webbrowser on loaded, instead of createwnd, so that it is possible to use the webbrowser in FromCreate

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1366 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Loesje_
2010-11-04 12:27:21 +00:00
parent 75da85c8d7
commit a67628d40d
1 changed files with 3 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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