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 "/> - +