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

* IFPObserver methods made public

Browse Source 
git-svn-id: trunk@23080 -
This commit is contained in:
michael 2012-11-29 13:28:11 +00:00
parent b774bbb681
commit 217679843e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -447,12 +447,12 @@ type
procedure AssignTo(Dest: TPersistent); virtual; procedure AssignTo(Dest: TPersistent); virtual;
procedure DefineProperties(Filer: TFiler); virtual; procedure DefineProperties(Filer: TFiler); virtual;
function GetOwner: TPersistent; dynamic; function GetOwner: TPersistent; dynamic;
Procedure FPOAttachObserver(AObserver : TObject);
Procedure FPODetachObserver(AObserver : TObject);
Procedure FPONotifyObservers(ASender : TObject; AOperation : TFPObservedOperation; Data : Pointer);
public public
Destructor Destroy; override; Destructor Destroy; override;
procedure Assign(Source: TPersistent); virtual; procedure Assign(Source: TPersistent); virtual;
Procedure FPOAttachObserver(AObserver : TObject);
Procedure FPODetachObserver(AObserver : TObject);
Procedure FPONotifyObservers(ASender : TObject; AOperation : TFPObservedOperation; Data : Pointer);
function GetNamePath: string; virtual; {dynamic;} function GetNamePath: string; virtual; {dynamic;}
end; end;