You've already forked lazarus-ccr
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
This commit is contained in:
@@ -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;
|
||||
|
@@ -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"/>
|
||||
|
Reference in New Issue
Block a user