Unit T_TETRIS

Classes

TTETRIS -

Functions

Register - property BackBitmap: TBitmap read fBitmap write fSetBitmap;

destructor TTETRIS.

Types

PEZZO
TBlockType
TMultiShapeType

Constants

COLORI
TETRIS_COLUMNS
TETRIS_LINES

Variables


Functions


procedure Register;

property BackBitmap: TBitmap read fBitmap write fSetBitmap;

destructor TTETRIS.Destroy; begin inherited destroy; fBitmap.Destroy; end;


Types


PEZZO=ARRAY[0..3,0..3] OF INTEGER;

TBlockType = (btNormal, btRound, btButton);

TMultiShapeType=(msRectangle,msRoundRect,msDiamond,msEllipse,msTriangle);

Constants

COLORI = (CLMAROON,CLGREEN,CLOLIVE,CLNAVY, CLPURPLE,CLTEAL,CLGRAY,CLSILVER,CLRED, CLLIME,CLYELLOW,CLBLUE,CLFUCHSIA, CLAQUA)

TETRIS_COLUMNS = 9

,Winprocs, wintypes,extctrls;

TETRIS_LINES = 20

DIMENSIONI DEL CAMPO DI GIOCO

Variables