Class TAnimated (unit Animated)

Inherits from

TGraphicControl

Renamed from Animate.pas 6/13/1998 Paul Rice to avoid conflict with others' work.

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Paint;


procedure TimeHit(Sender : TObject);


procedure SetBitMap(Value : TBitMap);


procedure SetFrame(Value : Integer);


procedure SetInterval(Value : integer);

so something will display

procedure SetPlay(Onn : boolean);


procedure SetTransparentColor(Value : TColor);


Properties

property BitMap : TBitMap


property Frame : Integer


property FrameCount : integer

Note: FrameCount must precede Frame in order for initialization to be correct

property Height :


property Interval : integer


property Loop : boolean


property Play : boolean


property Reverse : boolean


property TransparentColor : TColor


property Visible :


property Width :


Events

event OnChangeFrame : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBitMap : TBitmap;


FFrame : Integer;


FFrameCount : integer;


FInterval : integer;


FLoop : boolean;


FOnChangeFrame : TNotifyEvent;


FPlay : boolean;


FReverse : boolean;


FTransparentColor : TColor;


Timer : TTimer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Paint;


procedure TimeHit(Sender : TObject);


procedure SetBitMap(Value : TBitMap);


procedure SetFrame(Value : Integer);


procedure SetInterval(Value : integer);

so something will display


procedure SetPlay(Onn : boolean);


procedure SetTransparentColor(Value : TColor);


Properties


property BitMap : TBitMap


property Frame : Integer


property FrameCount : integer

Note: FrameCount must precede Frame in order for initialization to be correct


property Height :


property Interval : integer


property Loop : boolean


property Play : boolean


property Reverse : boolean


property TransparentColor : TColor


property Visible :


property Width :


Events


event OnChangeFrame : TNotifyEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBitMap : TBitmap;


FFrame : Integer;


FFrameCount : integer;


FInterval : integer;


FLoop : boolean;


FOnChangeFrame : TNotifyEvent;


FPlay : boolean;


FReverse : boolean;


FTransparentColor : TColor;


Timer : TTimer;