From 0cb50e0d020a61831c4c68198ba2538ed3c8af50 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 20 Feb 2013 19:05:19 +0000
Subject: [PATCH] TRxCloseFormValidator - fix edit items in design time

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2690 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxcloseformvalidator.pas | 10 +++++-----
 components/rx/rxnew.lpk                |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/rx/rxcloseformvalidator.pas b/components/rx/rxcloseformvalidator.pas
index b9ac5908d..5636b4d0a 100644
--- a/components/rx/rxcloseformvalidator.pas
+++ b/components/rx/rxcloseformvalidator.pas
@@ -67,12 +67,12 @@ type
 
   { TValidateItems }
 
-  TValidateItems = class(TCollection)
+  TValidateItems = class(TOwnedCollection)
   private
     function GetItems(Index: Integer): TValidateItem;
     procedure SetItems(Index: Integer; AValue: TValidateItem);
   public
-    constructor Create;
+    //constructor Create();
     property Items[Index: Integer]: TValidateItem read GetItems write SetItems; default;
   end;
 
@@ -116,10 +116,10 @@ begin
   Items[Index].Assign( AValue );
 end;
 
-constructor TValidateItems.Create;
+{constructor TValidateItems.Create;
 begin
   inherited Create(TValidateItem);
-end;
+end;}
 
 { TValidateItem }
 
@@ -380,7 +380,7 @@ constructor TRxCloseFormValidator.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   FErrorMsgCaption:=sCloseValidError;
-  FItems:=TValidateItems.Create;
+  FItems:=TValidateItems.Create(Self, TValidateItem);
 end;
 
 destructor TRxCloseFormValidator.Destroy;
diff --git a/components/rx/rxnew.lpk b/components/rx/rxnew.lpk
index c17903c5b..ed4e849fd 100644
--- a/components/rx/rxnew.lpk
+++ b/components/rx/rxnew.lpk
@@ -26,7 +26,7 @@ Copyright (c) 1998 Master-Bank
 translate to Lazarus by alexs in 2005 - 2012
 "/>
     <License Value="LGPL"/>
-    <Version Major="2" Minor="4" Release="5" Build="130"/>
+    <Version Major="2" Minor="4" Release="6" Build="132"/>
     <Files Count="67">
       <Item1>
         <Filename Value="autopanel.pas"/>