paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 00:56:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_IPro: Fix notification procedure when DataProvider is destroyed.

Browse Source 
git-svn-id: trunk@51556 -
This commit is contained in:
wp 2016-02-09 22:16:25 +00:00
parent 04f7525b71
commit b2c7964d42
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/turbopower_ipro/iphtml.pas
View File

@ -2333,6 +2333,7 @@ type
function getFrame(i: integer): TIpHtmlFrame;
procedure InternalFreeFrames;
procedure InternalCreateFrames;
procedure RemoveDataProvider;
public
constructor Create(Viewer: TIpHtmlCustomPanel; Parent: TCustomPanel;
DataProvider : TIpAbstractHtmlDataProvider; FlagErrors, NoScroll: Boolean;
@ -14614,6 +14615,16 @@ begin
result := FFrames[i];
end;
procedure TIpHtmlFrame.RemoveDataProvider;
var
i: Integer;
begin
FDataProvider := nil;
for i:=0 to High(FFrames) do
if FFrames[i] <> nil then FFrames[i].FDataProvider := nil;
end;
{ TIpHtmlNvFrame }
procedure TIpHtmlNvFrame.InitHtml;
@ -15099,6 +15110,7 @@ begin
if (Operation = opRemove) then
if (AComponent = DataProvider) then begin
DataProvider := nil;
FMasterFrame.RemoveDataProvider;
end;
inherited Notification(AComponent, Operation);
end;