From: <ah...@us...> - 2006-04-22 15:31:39
|
Revision: 10550 Author: ahuser Date: 2006-04-22 08:31:31 -0700 (Sat, 22 Apr 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10550&view=rev Log Message: ----------- Fixed double validator registration Modified Paths: -------------- trunk/jvcl/run/JvValidators.pas Modified: trunk/jvcl/run/JvValidators.pas =================================================================== --- trunk/jvcl/run/JvValidators.pas 2006-04-22 15:29:05 UTC (rev 10549) +++ trunk/jvcl/run/JvValidators.pas 2006-04-22 15:31:31 UTC (rev 10550) @@ -268,14 +268,12 @@ Masks, {$IFDEF HAS_UNIT_VARIANTS} Variants, - {$ENDIF HAS_UNIT_VARIANTS} + {$ENDIF HAS_UNIT_VARIANTS} TypInfo, {$IFDEF VCL} - JclUnicode, // for reg exp support +// JclUnicode, // for reg exp support {$ENDIF VCL} - {$IFDEF VisualCLX} JclWideStrings, - {$ENDIF VisualCLX} JvTypes, JvResources; var @@ -288,8 +286,8 @@ if not Assigned(GlobalValidatorsList) then begin GlobalValidatorsList := TStringList.Create; - // register - RegisterBaseValidators; + // register + //RegisterBaseValidators; is registered in initialization end; Result := GlobalValidatorsList; end; @@ -940,7 +938,7 @@ RegisterUnitVersion(HInstance, UnitVersioning); {$ENDIF UNITVERSIONING} - // (p3) do NOT touch! This is required to make the registration work!!! + // (p3) do NOT touch! This is required to make the registration work on formulars!!! RegisterBaseValidators; finalization This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |