| Class TMovingBall (unit Mvball) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure MoveBall(Sender: TObject);
procedure Paint;
procedure SetContinuous(Value : boolean);================ Vertical movement ==============
| Properties |
property Continuous : boolean| Events |
| Variables |
fContinuous : boolean;
fHorStep : integer;
fTimer : TTimer;
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 : booleanPublished declarations
| Events |
| Variables |
fContinuous : boolean;
fHorStep : integer;
fTimer : TTimer;Private declarations
fVerStep : integer;