Unit T_MINE

Classes

TMine -

Functions

Register - If fBitmap<>nil then Canvas.

Types

TButtonStatus
TMineGrid
TWinGameEvent

Constants

MAXColumns
MAXRows

Variables


Functions


procedure Register;

If fBitmap<>nil then Canvas.StretchDraw(ClientRect,fbitmap);

Types


TButtonStatus=(isFree,isBomb,isQuestion,isDeactived,isDead);

TMineGrid   = Array[0..MAXColumns-1,0..MAXRows-1] of TBUTTONSTATUS;

TWinGameEvent = procedure(Sender: TObject) of Object

Constants

MAXColumns = 20

MAXRows = 20


Variables