Class TSprite (unit Sssprite) |
Inherits from
TBitmap
TSprite is a new object, which has TBitmap as its direct parent.
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
DisplayOn : boolean;
MaskedFiles : AnimationFileArray;
OffsetIndex : OffsetIndexRange;
SaveSpace : TBitmap;
SegmentIndex : SegmentIndexRange;
refer to the procedure TSprite.
SpriteFiles : AnimationFileArray;
XPosition : integer;
YPosition : integer;
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
DisplayOn : boolean;
MaskedFiles : AnimationFileArray;
OffsetIndex : OffsetIndexRange;
SaveSpace : TBitmap;
SegmentIndex : SegmentIndexRange;
refer to the procedure TSprite.Create
SpriteFiles : AnimationFileArray;
XPosition : integer;
YPosition : integer;