TLSCustomImage

type TLSCustomImage = class(TCustomImage,ILSValidationComponent)

protected

  procedure DoAnimationHandler(); virtual;

  procedure UpdatePicture; virtual;

  procedure UpdateAnimator; virtual;

  procedure Paint; override;

  procedure Notification(); override;

  procedure CMTextChanged(); message;

  procedure CMFontChanged(); message;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Click; override;

  procedure LoadFromBase64Stream();

  procedure LoadFromBase64File();

  procedure LoadFromBase64String();

  procedure SaveToBase64Stream();

  procedure SaveToBase64File();

  procedure SaveToBase64String();

  function AsBase64;

  function IsEmpty;

  function Validate; virtual;

  property About: string; [rws]

  property Alignment: TAlignment; [rw]

  property Animator: TLSCustomImageAnimator; [rw]

  property EmptyColor: TColor; [rw]

  property EmptyStyle: TBrushStyle; [rw]

  property ImageIndex: TImageIndex; [rw]

  property Images: TCustomImageList; [rw]

  property Pattern: string; [rw]

  property Patterns: TLSRegExList; [rw]

  property OnValidate: TLSValidateEvent; [rw]

end;

TLSCustomImage

TObject,ILSValidationComponent