Class TBLOCK (unit T_BLOCK) |
Inherits from
TGraphicControl
Constructor Create(AOwner:TComponent);
- Published declarations
*********************************************
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.
PROCEDURE SHOW_PREW;
PROCEDURE VUOTA_COLONNA(CONST G:INTEGER);
.
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
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;
Constructor Create(AOwner:TComponent);
Published declarations
*********************************************
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);
...
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
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;