paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 51556 #b2c7964d42 from trunk:

Browse Source 
TurboPower_IPro: Fix notification procedure when DataProvider is destroyed.
........

git-svn-id: branches/fixes_1_6@51561 -
This commit is contained in:
maxim 2016-02-09 23:18:03 +00:00
parent 1846dad0d7
commit 0abbde5c35
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;