Class TSprite (unit Sssprite)

Inherits from

TBitmap

TSprite is a new object, which has TBitmap as its direct parent.

Constructors



Functions

procedure AddAnimation(Sprite: TSprite; SpriteFileName: string; MaskedFileName: string; Segment: integer);


Procedure AnimateForwardSprite(var Sprite: TSprite; WithinSegment: boolean);

this function is to animate the sprite

procedure CheckPosition(Sprite: TSprite; var X: integer; var Y: integer);


procedure CreateSprite(var Sprite: TSprite; SpriteFileName: string; MaskedFileName: string);

users are free to use these procedures

procedure DeleteSprite(var Sprite: TSprite);

!!DELETE EACH SPRITES, WHEN THEY ARE NO MORE INUSE!!

procedure IncOffset(var Sprite: TSprite);

this function is to increment offset No.

procedure IncSegment(var Sprite: TSprite);

this function is to increment segment No.

procedure MoveSprite(var Sprite: TSprite; XMove: integer; YMove: integer);


procedure SetPosition(var Sprite: TSprite; X: integer; Y: integer);


procedure SetSegment(var Sprite: TSprite; DesiredSegment: integer);


procedure TurnOnOffSprite(var Sprite: TSprite; Switch: boolean);


function FindEmptyOffset(Sprite: TSprite; Segment: integer; var Offset: integer): boolean;

this function is to find the youngest available Offset with in a segment

function SaveSpaceToWorkSpace(var Sprite: TSprite): boolean;


function SpriteToWorkSpace(var Sprite: TSprite): boolean;

add a programmer-protect function here-- Empty(SaveSpace)-> Cancel

Properties

Events

Variables

DisplayOn : boolean;


MaskedFiles : AnimationFileArray;


OffsetIndex : OffsetIndexRange;


SaveSpace : TBitmap;


SegmentIndex : SegmentIndexRange;

refer to the procedure TSprite.

SpriteFiles : AnimationFileArray;


XPosition : integer;


YPosition : integer;



Constructors


Functions


procedure AddAnimation(Sprite: TSprite; SpriteFileName: string; MaskedFileName: string; Segment: integer);


Procedure AnimateForwardSprite(var Sprite: TSprite; WithinSegment: boolean);

this function is to animate the sprite


procedure CheckPosition(Sprite: TSprite; var X: integer; var Y: integer);


procedure CreateSprite(var Sprite: TSprite; SpriteFileName: string; MaskedFileName: string);

users are free to use these procedures


procedure DeleteSprite(var Sprite: TSprite);

!!DELETE EACH SPRITES, WHEN THEY ARE NO MORE INUSE!!


procedure IncOffset(var Sprite: TSprite);

this function is to increment offset No. within segment


procedure IncSegment(var Sprite: TSprite);

this function is to increment segment No.


procedure MoveSprite(var Sprite: TSprite; XMove: integer; YMove: integer);


procedure SetPosition(var Sprite: TSprite; X: integer; Y: integer);


procedure SetSegment(var Sprite: TSprite; DesiredSegment: integer);


procedure TurnOnOffSprite(var Sprite: TSprite; Switch: boolean);


function FindEmptyOffset(Sprite: TSprite; Segment: integer; var Offset: integer): boolean;

this function is to find the youngest available Offset with in a segment


function SaveSpaceToWorkSpace(var Sprite: TSprite): boolean;


function SpriteToWorkSpace(var Sprite: TSprite): boolean;

add a programmer-protect function here-- Empty(SaveSpace)-> Cancel


Properties


Events


Variables


DisplayOn : boolean;


MaskedFiles : AnimationFileArray;


OffsetIndex : OffsetIndexRange;


SaveSpace : TBitmap;


SegmentIndex : SegmentIndexRange;

refer to the procedure TSprite.Create


SpriteFiles : AnimationFileArray;


XPosition : integer;


YPosition : integer;