Unit MCodebal

Classes

Functions

BallDisplay - Free any resources

Kill the Palette
FreeBalls - Startup

select the pallette
InitBalls - the Previous Pen

Set Flags
ReadBallDefaults - Display a Sphere

Bump Vars

Types

Constants

PALSEG
PALSIZE

Variables

hPal
hPalMem
iNumSpheres
MaxSize
nBars
NumDone
OldBrush
OldPalette
OldPen
PalOff
pLogPal
Rc1
Which
xl
xr
yb
yt


Functions


Procedure BallDisplay;

Free any resources

Kill the Palette


Procedure FreeBalls;

Startup

select the pallette


Procedure InitBalls;

the Previous Pen

Set Flags


Procedure ReadBallDefaults;

Display a Sphere

Bump Vars


Types


Constants

PALSEG = 39

PALSIZE = 236

Renamed from CodeBall.pas 6/13/1998 Paul Rice to avoid conflicts with others' work.} {$N+

Variables

hPal : HPalette

hPalMem : THandle

Number and which is the current bar

iNumSpheres : Integer

the prevous palette

MaxSize : Integer

Pointer to a palette

nBars : Integer

Position vars

NumDone : Word

current offsaet in the palette

OldBrush : TBrush

the number of spheres on screen

OldPalette : HPalette

Number of spheres displayed

OldPen : TPen

the previous Brush

PalOff : Integer

Handle to memory for palette

pLogPal : ^TLOGPALETTE

Handle to a Palette

Rc1 : TRect

Max size of a sphere

Which : Integer

xl : Integer

xr : Integer

Rectangle surrounding a sphere

yb : Integer

yt : Integer