Class TMine (unit T_MINE)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner:TComponent);

Constructor


Functions

procedure Click;


destructor Destroy;


procedure newGame;

HERE THER'S A BOMB

procedure Paint;

Protected declarations

PAINT;


procedure DrawBlock(X,Y: Integer);


PROCEDURE FSETBACK(C:TCOLOR);

procedure TMine.

PROCEDURE FSETBUTC(C:TCOLOR);


PROCEDURE PUT_BOMBS;


PROCEDURE SET_COLUMNS(V:INTEGER);


PROCEDURE SET_ROWS(V:INTEGER);

procedure fSetBitmap(Value: TBitmap);

Properties

property BackColor : TColor

Public declarations

property Bombs : INTEGER

property BackBitmap: TBitmap read fBitmap write fSetBitmap;

property ButtonColor : TColor


property NumberOfColumns : INTEGER


property NumberOfRows : INTEGER


Events

event OnWinGame : TWinGameEvent


Variables

COLUMNS : INTEGER;


FBACK : TCOLOR;


fBitmap : TBitmap;


FBUTC : TCOLOR;


fOnfalseMove : TNotifyEvent;


fOnWinGame : TWinGameEvent;


fPlaying : Boolean;


N : INTEGER;


ROWS : INTEGER;


VET : TMinegrid;



Constructors


constructor Create(AOwner:TComponent);

Constructor


Functions


procedure Click;


destructor Destroy;


procedure newGame;

HERE THER'S A BOMB


procedure Paint;

Protected declarations

PAINT;


procedure DrawBlock(X,Y: Integer);


PROCEDURE FSETBACK(C:TCOLOR);

procedure TMine.fSetBitmap(Value: TBitmap); Begin FBitmap.Assign(Value); Paint; End;


PROCEDURE FSETBUTC(C:TCOLOR);


PROCEDURE PUT_BOMBS;


PROCEDURE SET_COLUMNS(V:INTEGER);


PROCEDURE SET_ROWS(V:INTEGER);

procedure fSetBitmap(Value: TBitmap);


Properties


property BackColor : TColor

Public declarations


property Bombs : INTEGER

property BackBitmap: TBitmap read fBitmap write fSetBitmap;


property ButtonColor : TColor


property NumberOfColumns : INTEGER


property NumberOfRows : INTEGER


Events


event OnWinGame : TWinGameEvent


Variables


COLUMNS : INTEGER;


FBACK : TCOLOR;


fBitmap : TBitmap;


FBUTC : TCOLOR;


fOnfalseMove : TNotifyEvent;


fOnWinGame : TWinGameEvent;


fPlaying : Boolean;


N : INTEGER;


ROWS : INTEGER;


VET : TMinegrid;