TO32ValidatorItem

type TO32ValidatorItem = class(TO32CollectionItem)

protected

  FValidator: TO32BaseValidator;

  FValidationEvent: string;

  FValidatorClass: TValidatorClass;

  FValidatorType: string;

  FBeepOnError: Boolean;

  FMask: string;

  FComponent: TCustomEdit;

  FComponentColor: TColor;

  FErrorColor: TColor;

  FEvent: TValidationEvent;

  procedure DoValidation();

  procedure SetComponent();

  procedure SetValidatorType();

  procedure AssignValidator;

  procedure SetEvent();

  procedure AssignEvent;

  function ValidatorPool;

public

  constructor Create(); override;

  property Validator: TO32BaseValidator; [rw]

  property ValidatorClass: TValidatorClass; [rw]

published

  property BeepOnError: Boolean; [rw]

  property Name: string;

  property ErrorColor: TCOlor; [rw]

  property Component: TCustomEdit; [rw]

  property Mask: string; [rw]

  property ValidationEvent: TValidationEvent; [rw]

  property ValidatorType: string; [rws]

end;

TO32ValidatorItem

TO32CollectionItem

TObject