Class TForm1 (unit Animunit)

Inherits from

TForm

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

Constructors



Functions

procedure BombChangeFrame(Sender: TObject);


procedure BombClick(Sender: TObject);


procedure BulbClick(Sender: TObject);


procedure CoinClick(Sender: TObject);


procedure CrumbleClick(Sender: TObject);

Incrementing wraps around at FrameCount

procedure ExplodeClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure TrafficLightClick(Sender: TObject);


Properties

Events

Variables

Bomb : TAnimated;


BombButton : TButton;


Bulb : TAnimated;


BulbButton : TButton;


CoinButton : TButton;


Coins : TAnimated;


Crumble : TAnimated;


CrumbleButton : TButton;


Explode : TAnimated;


ExplodeButton : TButton;


Pencil : TAnimated;


TrafficLight : TAnimated;


TrafficLightButton : TButton;



Constructors


Functions


procedure BombChangeFrame(Sender: TObject);


procedure BombClick(Sender: TObject);


procedure BulbClick(Sender: TObject);


procedure CoinClick(Sender: TObject);


procedure CrumbleClick(Sender: TObject);

Incrementing wraps around at FrameCount


procedure ExplodeClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


procedure TrafficLightClick(Sender: TObject);


Properties


Events


Variables


Bomb : TAnimated;


BombButton : TButton;


Bulb : TAnimated;


BulbButton : TButton;


CoinButton : TButton;


Coins : TAnimated;


Crumble : TAnimated;


CrumbleButton : TButton;


Explode : TAnimated;


ExplodeButton : TButton;


Pencil : TAnimated;


TrafficLight : TAnimated;


TrafficLightButton : TButton;