mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-01 11:29:43 +02:00
iPro: Change direction of notification. Provider notifies Panel.
git-svn-id: trunk@45747 -
This commit is contained in:
parent
2e71f9d96a
commit
18d707aa4f
@ -19094,7 +19094,8 @@ begin
|
|||||||
if FDataProvider=AValue then exit;
|
if FDataProvider=AValue then exit;
|
||||||
//debugln(['TIpHtmlCustomPanel.SetDataProvider Old=',DbgSName(FDataProvider),' ',dbgs(Pointer(FDataProvider)),' New=',DbgSName(AValue),' ',dbgs(Pointer(AValue))]);
|
//debugln(['TIpHtmlCustomPanel.SetDataProvider Old=',DbgSName(FDataProvider),' ',dbgs(Pointer(FDataProvider)),' New=',DbgSName(AValue),' ',dbgs(Pointer(AValue))]);
|
||||||
FDataProvider:=AValue;
|
FDataProvider:=AValue;
|
||||||
if FDataProvider<>nil then FreeNotification(FDataProvider);
|
if FDataProvider<>nil then
|
||||||
|
FDataProvider.FreeNotification(Self);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TIpHtmlCustomPanel.FactBAParagNotIs1: Boolean;
|
function TIpHtmlCustomPanel.FactBAParagNotIs1: Boolean;
|
||||||
|
Loading…
Reference in New Issue
Block a user