| Class TBLOCK (unit T_BLOCK) |
TGraphicControl
| Constructors |
Constructor Create(AOwner:TComponent);*********************************************
| Functions |
FUNCTION HELP_ME:BOOLEAN;
FUNCTION MOVE_DOWN:INTEGER;
FUNCTION MOVE_LEFT:BOOLEAN;
FUNCTION MOVE_RIGHT:BOOLEAN;
PROCEDURE NEW_GAME;
PROCEDURE ROTATE;
FUNCTION SEND_BOTTOM:INTEGER;
procedure Paint;ELIMINA
FUNCTION CHECK_FULL:BOOLEAN;
PROCEDURE DISEGNA_PEZZ(CONST X,Y:INTEGER;CONST VEDI:BOOLEAN);IL PEZZO CONTINUA A SCENDERE.
procedure fSetBlockType(B:TBlockType);
PROCEDURE NOT_(VALUE:INTEGER);
PROCEDURE SAVE_POSITION;
PROCEDURE SET_CAPTION(VALUE:TCAPTION);
PROCEDURE SET_NCOLORI(VALUE:INTEGER);
PROCEDURE SET_P_SIZE(S:INTEGER);
PROCEDURE SET_SNP(VALUE:BOOLEAN);
PROCEDURE SET_SQUARE_DIM(VALUE:INTEGER);
PROCEDURE SHOW_PREW;
PROCEDURE VUOTA_COLONNA(CONST G:INTEGER);| Properties |
property BlockType : TBlockType
property LastDeletedPieces : INTEGER
property NumberOfColors : INTEGER
property NumberOfPieces : INTEGER
property PreviewCaption : TCAPTION
property PreviewSize : INTEGER
property ShowBorderColor : BOOLEAN
property ShowFillColor : BOOLEAN
property ShowNextpiece : BOOLEAN
property SquareDimension : INTEGER| Events |
| Variables |
CX : INTEGER;
CY : INTEGER;
DELETEDL : INTEGER;
fBlockType : TBlockType;
F_PREW : TFORM;
LX : INTEGER;
LY : INTEGER;
NCOLORI : INTEGER;
Piece : ARRAY[1..2,0..2] OF TCOLOR;
P_CAPT : TCAPTION;
P_COUNT : INTEGER;
P_SIZE : INTEGER;
SFC : BOOLEAN;
SIL : BOOLEAN;
snp : boolean;
SQX : INTEGER;
Vet : array[0..COLUMNS,0..LINES,1..2] of TCOLOR;| Constructors |
Constructor Create(AOwner:TComponent);Published declarations
*********************************************
| Functions |
FUNCTION HELP_ME:BOOLEAN;
FUNCTION MOVE_DOWN:INTEGER;Public declarations
FUNCTION MOVE_LEFT:BOOLEAN;
FUNCTION MOVE_RIGHT:BOOLEAN;
PROCEDURE NEW_GAME;SHOWMESSAGE('This is a read only property..');
PROCEDURE ROTATE;INIZIALIZZA IL GIOCO
FUNCTION SEND_BOTTOM:INTEGER;PAINT;
procedure Paint;Protected declarations
ELIMINA
FUNCTION CHECK_FULL:BOOLEAN;VET[G,Y-1,1];
PROCEDURE DISEGNA_PEZZ(CONST X,Y:INTEGER;CONST VEDI:BOOLEAN);fBitmap:TBitmap;
IL PEZZO CONTINUA A SCENDERE...
procedure fSetBlockType(B:TBlockType);
PROCEDURE NOT_(VALUE:INTEGER);
PROCEDURE SAVE_POSITION;
PROCEDURE SET_CAPTION(VALUE:TCAPTION);
PROCEDURE SET_NCOLORI(VALUE:INTEGER);
PROCEDURE SET_P_SIZE(S:INTEGER);
PROCEDURE SET_SNP(VALUE:BOOLEAN);
PROCEDURE SET_SQUARE_DIM(VALUE:INTEGER);procedure TBLOCK.fSetBitmap(Value: TBitmap); Begin FBitmap.Assign(Value); Invalidate; End;
PROCEDURE SHOW_PREW;
PROCEDURE VUOTA_COLONNA(CONST G:INTEGER);...
| Properties |
property BlockType : TBlockType
property LastDeletedPieces : INTEGER
property NumberOfColors : INTEGER
property NumberOfPieces : INTEGER
property PreviewCaption : TCAPTION
property PreviewSize : INTEGER
property ShowBorderColor : BOOLEAN
property ShowFillColor : BOOLEAN
property ShowNextpiece : BOOLEAN
property SquareDimension : INTEGER| Events |
| Variables |
CX : INTEGER;
CY : INTEGER;
DELETEDL : INTEGER;
fBlockType : TBlockType;DIMENSIONI PREW
F_PREW : TFORM;
LX : INTEGER;
LY : INTEGER;
NCOLORI : INTEGER;
Piece : ARRAY[1..2,0..2] OF TCOLOR;Private declarations
P_CAPT : TCAPTION;
P_COUNT : INTEGER;
P_SIZE : INTEGER;FORM PREW
SFC : BOOLEAN;
SIL : BOOLEAN;
snp : boolean;
SQX : INTEGER;
Vet : array[0..COLUMNS,0..LINES,1..2] of TCOLOR;