mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-08 20:46:00 +02:00
* Add CanObserve and ObserverAdded to TComponent, for delphi compatibility
This commit is contained in:
parent
71a46465c8
commit
30f514eb6b
@ -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;
|
||||||
|
@ -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);
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user