paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 10:49:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed notes: Virtual method X has a lower visibility (protected) than parent class (public).

Browse Source 
git-svn-id: trunk@12353 -
This commit is contained in:
yury 2008-12-12 15:07:05 +00:00
parent 9cc15bd994
commit 5ffec2d876
2 changed files with 4 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

@ -411,7 +411,6 @@ type
protected protected
procedure SetCollection(Value: TCollection);virtual; procedure SetCollection(Value: TCollection);virtual;
procedure Changed(AllItems: Boolean); procedure Changed(AllItems: Boolean);
function GetNamePath: string; override;
function GetOwner: TPersistent; override; function GetOwner: TPersistent; override;
function GetDisplayName: string; virtual; function GetDisplayName: string; virtual;
procedure SetIndex(Value: Integer); virtual; procedure SetIndex(Value: Integer); virtual;
@ -420,6 +419,7 @@ type
public public
constructor Create(ACollection: TCollection); virtual; constructor Create(ACollection: TCollection); virtual;
destructor Destroy; override; destructor Destroy; override;
function GetNamePath: string; override;
property Collection: TCollection read FCollection write SetCollection; property Collection: TCollection read FCollection write SetCollection;
property ID: Integer read FID; property ID: Integer read FID;
property Index: Integer read GetIndex write SetIndex; property Index: Integer read GetIndex write SetIndex;
@ -445,7 +445,6 @@ type
function GetAttrCount: Integer; dynamic; function GetAttrCount: Integer; dynamic;
function GetAttr(Index: Integer): string; dynamic; function GetAttr(Index: Integer): string; dynamic;
function GetItemAttr(Index, ItemIndex: Integer): string; dynamic; function GetItemAttr(Index, ItemIndex: Integer): string; dynamic;
function GetNamePath: string; override;
procedure Changed; procedure Changed;
function GetItem(Index: Integer): TCollectionItem; function GetItem(Index: Integer): TCollectionItem;
procedure SetItem(Index: Integer; Value: TCollectionItem); procedure SetItem(Index: Integer; Value: TCollectionItem);
@ -465,6 +464,7 @@ type
procedure Clear; procedure Clear;
procedure EndUpdate; virtual; procedure EndUpdate; virtual;
procedure Delete(Index: Integer); procedure Delete(Index: Integer);
function GetNamePath: string; override;
function Insert(Index: Integer): TCollectionItem; function Insert(Index: Integer): TCollectionItem;
function FindItemID(ID: Integer): TCollectionItem; function FindItemID(ID: Integer): TCollectionItem;
property Count: Integer read GetCount; property Count: Integer read GetCount;
@ -1511,7 +1511,6 @@ type
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); dynamic; procedure GetChildren(Proc: TGetChildProc; Root: TComponent); dynamic;
function GetChildOwner: TComponent; dynamic; function GetChildOwner: TComponent; dynamic;
function GetChildParent: TComponent; dynamic; function GetChildParent: TComponent; dynamic;
function GetNamePath: string; override;
function GetOwner: TPersistent; override; function GetOwner: TPersistent; override;
procedure Loaded; virtual; procedure Loaded; virtual;
procedure Loading; virtual; procedure Loading; virtual;
@ -1562,6 +1561,7 @@ type
procedure FreeNotification(AComponent: TComponent); procedure FreeNotification(AComponent: TComponent);
procedure RemoveFreeNotification(AComponent: TComponent); procedure RemoveFreeNotification(AComponent: TComponent);
procedure FreeOnRelease; procedure FreeOnRelease;
function GetNamePath: string; override;
function GetParentComponent: TComponent; dynamic; function GetParentComponent: TComponent; dynamic;
function HasParent: Boolean; dynamic; function HasParent: Boolean; dynamic;
procedure InsertComponent(AComponent: TComponent); procedure InsertComponent(AComponent: TComponent);

1
rtl/objpas/sysutils/sysutilh.inc
View File

@ -114,6 +114,7 @@ type
EHeapMemoryError = class(Exception) EHeapMemoryError = class(Exception)
protected protected
AllowFree : boolean; AllowFree : boolean;
public
procedure FreeInstance;override; procedure FreeInstance;override;
end; end;