zglTSprite2D

type zglTSprite2D = record

  ID: Integer;

  Manager: zglPSEngine2D;

  Texture: zglPTexture;

  Destroy: Boolean;

  Layer: Integer;

  X: Single;

  Y: Single;

  W: Single;

  H: Single;

  Angle: Single;

  Frame: Single;

  Alpha: Integer;

  FxFlags: LongWord;

  Data: Pointer;

  OnInit: procedure(

  Sprite: zglPSprite2D

);

  OnDraw: procedure(

  Sprite: zglPSprite2D

);

  OnProc: procedure(

  Sprite: zglPSprite2D

);

  OnFree: procedure(

  Sprite: zglPSprite2D

);

end;