| Class TMine (unit T_MINE) |
TGraphicControl
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure Click;
destructor Destroy;
procedure newGame;
procedure Paint;PAINT;
procedure DrawBlock(X,Y: Integer);
PROCEDURE FSETBACK(C:TCOLOR);
PROCEDURE FSETBUTC(C:TCOLOR);
PROCEDURE PUT_BOMBS;
PROCEDURE SET_COLUMNS(V:INTEGER);
PROCEDURE SET_ROWS(V:INTEGER);| Properties |
property BackColor : TColor
property Bombs : INTEGER
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 : TColorPublic declarations
property Bombs : INTEGERproperty 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;