From 5ffec2d876661202f808c06b861d65349d693caa Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Fri, 12 Dec 2008 15:07:05 +0000
Subject: [PATCH] * Fixed notes: Virtual method X has a lower visibility
 (protected) than parent class (public).

git-svn-id: trunk@12353 -
---
 rtl/objpas/classes/classesh.inc  | 6 +++---
 rtl/objpas/sysutils/sysutilh.inc | 1 +
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 2e2aa84d6f..2bdf808795 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -411,7 +411,6 @@ type
   protected
     procedure SetCollection(Value: TCollection);virtual;
     procedure Changed(AllItems: Boolean);
-    function GetNamePath: string; override;
     function GetOwner: TPersistent; override;
     function GetDisplayName: string; virtual;
     procedure SetIndex(Value: Integer); virtual;
@@ -420,6 +419,7 @@ type
   public
     constructor Create(ACollection: TCollection); virtual;
     destructor Destroy; override;
+    function GetNamePath: string; override;
     property Collection: TCollection read FCollection write SetCollection;
     property ID: Integer read FID;
     property Index: Integer read GetIndex write SetIndex;
@@ -445,7 +445,6 @@ type
     function GetAttrCount: Integer; dynamic;
     function GetAttr(Index: Integer): string; dynamic;
     function GetItemAttr(Index, ItemIndex: Integer): string; dynamic;
-    function GetNamePath: string; override;
     procedure Changed;
     function GetItem(Index: Integer): TCollectionItem;
     procedure SetItem(Index: Integer; Value: TCollectionItem);
@@ -465,6 +464,7 @@ type
     procedure Clear;
     procedure EndUpdate; virtual;
     procedure Delete(Index: Integer);
+    function GetNamePath: string; override;
     function Insert(Index: Integer): TCollectionItem;
     function FindItemID(ID: Integer): TCollectionItem;
     property Count: Integer read GetCount;
@@ -1511,7 +1511,6 @@ type
     procedure GetChildren(Proc: TGetChildProc; Root: TComponent); dynamic;
     function GetChildOwner: TComponent; dynamic;
     function GetChildParent: TComponent; dynamic;
-    function GetNamePath: string; override;
     function GetOwner: TPersistent; override;
     procedure Loaded; virtual;
     procedure Loading; virtual;
@@ -1562,6 +1561,7 @@ type
     procedure FreeNotification(AComponent: TComponent);
     procedure RemoveFreeNotification(AComponent: TComponent);
     procedure FreeOnRelease;
+    function GetNamePath: string; override;
     function GetParentComponent: TComponent; dynamic;
     function HasParent: Boolean; dynamic;
     procedure InsertComponent(AComponent: TComponent);
diff --git a/rtl/objpas/sysutils/sysutilh.inc b/rtl/objpas/sysutils/sysutilh.inc
index 4cd0ebdaf9..e899dfbeed 100644
--- a/rtl/objpas/sysutils/sysutilh.inc
+++ b/rtl/objpas/sysutils/sysutilh.inc
@@ -114,6 +114,7 @@ type
    EHeapMemoryError = class(Exception)
      protected
        AllowFree : boolean;
+     public
        procedure FreeInstance;override;
    end;