TLSCustomLabel

type TLSCustomLabel = class(TCustomLabel,ILSValidationComponent)

protected

  procedure ResetAnchorSideControl;

  procedure UpdateLabelPosition;

  procedure Click; override;

  procedure Loaded; override;

  procedure SetParent(); override;

  procedure FontChanged(); override;

  procedure SetAutoSize(); override;

  procedure UpdateCaption; virtual;

  procedure UpdateHighlightColor; virtual;

  procedure Notification(); override;

  procedure CMMouseEnter(); message;

  procedure CMMouseLeave(); message;

  procedure CMTextChanged(); message;

  procedure CMVisibleChanged(); message;

  procedure CMEnabledChanged(); message;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetVisitedURL();

  procedure Paint; override;

  function Validate; virtual;

  procedure SetBounds(); override;

  property About: string; [rws]

  property Control: TWinControl; [rw]

  property Ellipsis: Boolean; [rw]

  property HighlightColor: TGraphicsColor; [rw]

  property LabelPosition: TLSLabelPosition; [rw]

  property LabelSpacing: Integer; [rw]

  property LabelType: TLSLabelType; [rw]

  property Pattern: string; [rw]

  property Patterns: TLSRegExList; [rw]

  property Path: string; [rw]

  property VisitedURLColor: TColor; [rw]

  property OnValidate: TLSValidateEvent; [rw]

end;

TLSCustomLabel

TObject,ILSValidationComponent