paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-30 04:41:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/design/ipidehtmlcontrol.pas
View File

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

2
ide/helpmanager.pas
View File

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