From 8db06c7878888b40d940d27ba4670bbfea551b6c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 14 Nov 2015 15:58:59 +0000
Subject: [PATCH] * OwnsObjects must not be changed during lifetime of
 TFPObjectHashList, made it read-only (bugs ID  28910)

git-svn-id: trunk@32321 -
---
 packages/fcl-base/src/contnrs.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/contnrs.pp b/packages/fcl-base/src/contnrs.pp
index 84ea83aa47..c1a8eaee23 100644
--- a/packages/fcl-base/src/contnrs.pp
+++ b/packages/fcl-base/src/contnrs.pp
@@ -481,7 +481,7 @@ type
     Function Iterate(aMethod: TObjectIteratorMethod): TObject; virtual;
     Procedure Add(const aKey: string; AItem : TObject); virtual;
     property Items[const index: string]: TObject read GetData write SetData; default;
-    Property OwnsObjects : Boolean Read FOwnsObjects Write FOwnsObjects;
+    Property OwnsObjects : Boolean Read FOwnsObjects;
   end;
 
   EDuplicate = class(Exception);