Class TBLOCK (unit T_BLOCK)

Inherits from

TGraphicControl

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.

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;



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;