From: <car...@us...> - 2008-09-02 13:53:42
|
Revision: 784 http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=784&view=rev Author: carlobar Date: 2008-09-02 13:53:53 +0000 (Tue, 02 Sep 2008) Log Message: ----------- Added "default" False to UseNull property of TInstantAttributeMetadata Modified Paths: -------------- trunk/Source/Core/InstantMetadata.pas Modified: trunk/Source/Core/InstantMetadata.pas =================================================================== --- trunk/Source/Core/InstantMetadata.pas 2008-09-02 13:52:26 UTC (rev 783) +++ trunk/Source/Core/InstantMetadata.pas 2008-09-02 13:53:53 UTC (rev 784) @@ -498,7 +498,7 @@ write SetAttributeTypeName stored False; property ClassMetadata: TInstantClassMetadata read GetClassMetadata; property DefaultValue: string read FDefaultValue write FDefaultValue; - property UseNull: Boolean read FUseNull write FUseNull; + property UseNull: Boolean read FUseNull write FUseNull default False; property DisplayWidth: Integer read FDisplayWidth write FDisplayWidth default 0; property EditMask: string read FEditMask write FEditMask; |