pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TRxCloseFormValidator - fix edit items in design time

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2690 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-02-20 19:05:19 +00:00
parent 439d68c14f
commit 0cb50e0d02
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/rxcloseformvalidator.pas
View File

@@ -67,12 +67,12 @@ type
{ TValidateItems } { TValidateItems }
TValidateItems = class(TCollection) TValidateItems = class(TOwnedCollection)
private private
function GetItems(Index: Integer): TValidateItem; function GetItems(Index: Integer): TValidateItem;
procedure SetItems(Index: Integer; AValue: TValidateItem); procedure SetItems(Index: Integer; AValue: TValidateItem);
public public
constructor Create; //constructor Create();
property Items[Index: Integer]: TValidateItem read GetItems write SetItems; default; property Items[Index: Integer]: TValidateItem read GetItems write SetItems; default;
end; end;
@@ -116,10 +116,10 @@ begin
Items[Index].Assign( AValue ); Items[Index].Assign( AValue );
end; end;
constructor TValidateItems.Create; {constructor TValidateItems.Create;
begin begin
inherited Create(TValidateItem); inherited Create(TValidateItem);
end; end;}
{ TValidateItem } { TValidateItem }
@@ -380,7 +380,7 @@ constructor TRxCloseFormValidator.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FErrorMsgCaption:=sCloseValidError; FErrorMsgCaption:=sCloseValidError;
FItems:=TValidateItems.Create; FItems:=TValidateItems.Create(Self, TValidateItem);
end; end;
destructor TRxCloseFormValidator.Destroy; destructor TRxCloseFormValidator.Destroy;

2
components/rx/rxnew.lpk
View File

@@ -26,7 +26,7 @@ Copyright (c) 1998 Master-Bank
translate to Lazarus by alexs in 2005 - 2012 translate to Lazarus by alexs in 2005 - 2012
"/> "/>
<License Value="LGPL"/> <License Value="LGPL"/>
<Version Major="2" Minor="4" Release="5" Build="130"/> <Version Major="2" Minor="4" Release="6" Build="132"/>
<Files Count="67"> <Files Count="67">
<Item1> <Item1>
<Filename Value="autopanel.pas"/> <Filename Value="autopanel.pas"/>