Class TMovingBall (unit Mvball)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;

...

procedure MoveBall(Sender: TObject);

...

procedure Paint;


procedure SetContinuous(Value : boolean);

Protected declarations

================ Vertical movement ==============


Properties

property Continuous : boolean

Published declarations

Events

Variables

fContinuous : boolean;


fHorStep : integer;


fTimer : TTimer;

Private declarations

fVerStep : integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;

...


procedure MoveBall(Sender: TObject);

...


procedure Paint;


procedure SetContinuous(Value : boolean);

Protected declarations

================ Vertical movement ==============


Properties


property Continuous : boolean

Published declarations


Events


Variables


fContinuous : boolean;


fHorStep : integer;


fTimer : TTimer;

Private declarations


fVerStep : integer;