TBGRASpriteAnimation

type TBGRASpriteAnimation = class(TBGRAGraphicCtrl)

protected

  procedure Paint; override;

  procedure CalculatePreferredSize(); override;

public

  procedure GifImageToSprite();

  procedure SpriteToGifImage();

  procedure LoadFromResourceName(); overload;

  procedure LoadFromBitmapResource(); overload;

  procedure LoadFromBGRABitmap();

  procedure SpriteToAnimatedGif();

  procedure AnimatedGifToSprite();

  constructor Create(); override;

  destructor Destroy; override;

published

  property AnimInvert: Boolean; [rw]

  property AnimPosition: Cardinal; [rw]

  property AnimRepeat: Cardinal; [rw]

  property AnimRepeatLap: Cardinal; [rw]

  property AnimSpeed: Cardinal; [rw]

  property AnimStatic: Boolean; [rw]

  property Center: Boolean; [rw]

  property Proportional: Boolean; [rw]

  property Sprite: TBitmap; [rw]

  property SpriteCount: Cardinal; [rw]

  property SpriteFillOpacity: Byte; [rw]

  property SpriteFlipMode: TFlipMode; [rw]

  property SpriteKeyColor: TColor; [rw]

  property SpriteResampleFilter: TResampleFilter; [rw]

  property SpriteResampleMode: TResampleMode; [rw]

  property SpriteRotation: TRotationMode; [rw]

  property Stretch: Boolean; [rw]

  property Tile: Boolean; [rw]

  property Align;

  property Anchors;

  property AutoSize;

  property Caption;

  property Color;

  property Enabled;

  property OnClick;

  property OnDblClick;

  property OnLapChanged: TNotifyEvent; [rw]

  property OnLapChanging: TNotifyEvent; [rw]

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

  property OnPositionChanged: TNotifyEvent; [rw]

  property OnPositionChanging: TNotifyEvent; [rw]

  property OnRedrawAfter: TBGRARedrawEvent; [rw]

  property OnRedrawBefore: TBGRARedrawEvent; [rw]

  property PopupMenu;

  property Visible;

end;

TBGRASpriteAnimation

TBGRAGraphicCtrl

TObject