TGLSpriteAnimation

type TGLSpriteAnimation = class(TGLXCollectionItem,IGLMaterialLibrarySupported)

protected

  procedure SetCurrentFrame();

  procedure SetFrameWidth();

  procedure SetFrameHeight();

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  procedure SetDimensions();

  procedure SetLibMaterialName();

  function GetLibMaterialCached;

  procedure SetInterval();

  procedure SetFrameRate();

  function GetFrameRate;

  function GetMaterialLibrary;

public

  constructor Create(); override;

  destructor Destroy; override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

  property LibMaterialCached: TGLLibMaterial; [r]

published

  property CurrentFrame: Integer; [rw]

  property StartFrame: Integer; [rw]

  property EndFrame: Integer; [rw]

  property FrameWidth: Integer; [rw]

  property FrameHeight: Integer; [rw]

  property LibMaterialName: TGLLibMaterialName; [rw]

  property Frames: TGLSpriteAnimFrameList; [r]

  property Dimensions: TGLSpriteFrameDimensions; [rw]

  property Interval: Integer; [rw]

  property FrameRate: Single; [rw]

  property Margins: TGLSpriteAnimMargins; [r]

end;

TGLSpriteAnimation

TObject,IGLMaterialLibrarySupported