ThtGifImage

type ThtGifImage = class(ThtImage)

protected

  function GetBitmap; override;

  function GetImageHeight; override;

  function GetImageWidth; override;

  function GetMask; override;

  function GetAnimate; override;

  procedure SetAnimate(); override;

public

  constructor Create(); overload;

  destructor Destroy; override;

  function Clone; override;

  function IsAnimated; override;

  procedure Draw(); override;

  property Gif: TGIFImage; [r]

end;

ThtGifImage

ThtImage

ThtCachable

TObject