paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 13:49:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add CanObserve and ObserverAdded to TComponent, for delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-19 11:21:34 +01:00
parent 71a46465c8
commit 30f514eb6b
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classesh.inc
View File

@ -2434,6 +2434,8 @@ type
protected protected
FComponentStyle: TComponentStyle; FComponentStyle: TComponentStyle;
function GetObservers: TObservers;virtual; function GetObservers: TObservers;virtual;
function CanObserve(const ID: Integer): Boolean; virtual;
procedure ObserverAdded(const ID: Integer; const Observer: IObserver); virtual;
procedure GetDeltaStreams(aProc: TGetStreamProc); virtual; procedure GetDeltaStreams(aProc: TGetStreamProc); virtual;
procedure ReadDeltaStream(const S: TStream); procedure ReadDeltaStream(const S: TStream);
procedure ReadDeltaState; virtual; procedure ReadDeltaState; virtual;

13
rtl/objpas/classes/compon.inc
View File

@ -108,10 +108,23 @@ end;
function TComponent.GetObservers: TObservers; function TComponent.GetObservers: TObservers;
begin begin
if FDObservers=Nil then if FDObservers=Nil then
begin
FDObservers:=TObservers.Create; FDObservers:=TObservers.Create;
FDObservers.OnCanObserve:=@CanObserve;
FDObservers.OnObserverAdded:=@ObserverAdded;
end;
Result:=FDObservers; Result:=FDObservers;
end; end;
function TComponent.CanObserve(const ID: Integer): Boolean;
begin
Result:=False;
end;
procedure TComponent.ObserverAdded(const ID: Integer; const Observer: IObserver);
begin
// Do nothing, can be used in descendants
end;
Procedure TComponent.Insert(AComponent: TComponent); Procedure TComponent.Insert(AComponent: TComponent);