IDE+tpipro: fixed circular interface references, bug #11564

git-svn-id: trunk@16419 -
This commit is contained in:
mattias 2008-09-04 23:48:47 +00:00
parent 42d9edefb2
commit 77bd9607bc
2 changed files with 2 additions and 2 deletions

View File

@ -68,7 +68,7 @@ begin
HTMLControl:=TIPLazHtmlControl.Create(Owner);
Result:=HTMLControl;
if Provider=nil then
Provider:=CreateIDEHTMLProvider(Owner);
Provider:=CreateIDEHTMLProvider(HTMLControl);
Provider.ControlIntf:=HTMLControl;
HTMLControl.Provider:=Provider;
end;

View File

@ -228,7 +228,7 @@ begin
HTMLControl:=TSimpleHTMLControl.Create(Owner);
Result:=HTMLControl;
if Provider=nil then
Provider:=CreateIDEHTMLProvider(Owner);
Provider:=CreateIDEHTMLProvider(HTMLControl);
Provider.ControlIntf:=HTMLControl;
HTMLControl.Provider:=Provider;
end;