Class TCustomSprite (unit Sprites)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

public declarations

TCustomSprite base class



Functions

destructor Destroy;

create bitmap instances

procedure MoveSprite;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

free bitmap instances

procedure Paint;

protected declarations

set size


procedure SetAndImage(AAndImage: TBitmap);

SetBounds sets the component bounds to the size of the image if an image is loaded.

procedure SetOrImage(AOrImage: TBitmap);

set size

Properties

property AndImage : TBitmap


property OrImage : TBitmap


Events

Variables

FAndImage : TBitmap;

private declarations

FOrImage : TBitmap;



Constructors


constructor Create(AOwner: TComponent);

public declarations

TCustomSprite base class


Functions


destructor Destroy;

create bitmap instances


procedure MoveSprite;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

free bitmap instances


procedure Paint;

protected declarations

set size


procedure SetAndImage(AAndImage: TBitmap);

SetBounds sets the component bounds to the size of the image if an image is loaded.


procedure SetOrImage(AOrImage: TBitmap);

set size


Properties


property AndImage : TBitmap


property OrImage : TBitmap


Events


Variables


FAndImage : TBitmap;

private declarations


FOrImage : TBitmap;