TLSCustomComboBox

type TLSCustomComboBox = class(TCustomComboBox,ILSValidationComponent)

protected

  procedure UpdateValidationHintShowed; virtual;

  procedure UpdateValidationColorShowed; virtual;

  procedure UpdateFocusColorShowed; virtual;

  procedure PatternChangeHandler(); virtual;

  function InternalValidate(); virtual;

  procedure Notification(); override;

  procedure KeyUp(); override;

  procedure KeyDown(); override;

  procedure CMEnter(); message;

  procedure CMExit(); message;

  procedure UTF8KeyPress(); override;

  procedure CMColorChanged(); message;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear; override;

  function HandleObjectShouldBeVisible; override;

  procedure EditingDone; override;

  property Item: TJSONData; [r]

  procedure LoadJSON();

  function Validate; virtual;

  property About: string; [rws]

  property AutoSkipe: Boolean; [rw]

  property EditType: TLSEditType; [rw]

  property FocusColor: TColor; [rw]

  property HoldsFocus: Boolean; [rw]

  property Pattern: string; [rw]

  property Patterns: TLSRegExList; [rw]

  property Required: Boolean; [rw]

  property ShowValidationHint: Boolean; [rw]

  property ValidationColor: TColor; [rw]

  property ValidationType: TLSEditValidationType; [rw]

  property ValidationHint: string; [rw]

  property Value: Variant; [rw]

  property OnValidate: TLSValidateEvent; [rw]

end;

TLSCustomComboBox

TObject,ILSValidationComponent