| Class TSprite (unit Sssprite) |
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);
procedure CheckPosition(Sprite: TSprite; var X: integer; var Y: integer);
procedure CreateSprite(var Sprite: TSprite; SpriteFileName: string;
MaskedFileName: string);
procedure DeleteSprite(var Sprite: TSprite);
procedure IncOffset(var Sprite: TSprite);
procedure IncSegment(var Sprite: TSprite);
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;
function SaveSpaceToWorkSpace(var Sprite: TSprite): boolean;
function SpriteToWorkSpace(var Sprite: TSprite): boolean;| Properties |
| Events |
| Variables |
DisplayOn : boolean;
MaskedFiles : AnimationFileArray;
OffsetIndex : OffsetIndexRange;
SaveSpace : TBitmap;
SegmentIndex : SegmentIndexRange;
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;