Class TGameForm (unit APGame) |
Inherits from
TForm
procedure ExitButtonClick(Sender: TObject);
DropBalls} //*********************** //* duress end of game * //
procedure FormActivate(Sender: TObject);
*********************** * Do when it activate *
procedure FormCreate(Sender: TObject);
/////////////////////////////// / Methoths of TGameForm /// /////////////////////////////// ********************* * Create game form *
procedure FormDeactivate(Sender: TObject);
************************* * Do when it deactivate *
procedure FormDestroy(Sender: TObject);
************************* * Destoy all resources *
procedure GameTimerEvent(Sender: TObject);
TGameForm.
procedure BoardClick(Sender:TObject);
*************************************** * Click on board, analize what to do *
function CountScore(var PointArray:TPointArray;
X,Y:Integer;
CheckColor:TColorIndex) : Integer;
ReducePath} //*************************************** //* Count bonus points, all directions * //
procedure DrawScore;
*********************** * Show current result *
procedure DropBall(Pos:TPoint; Color:TColorIndex);
RemoveOneBall} //***************** //* Drop one ball * //
procedure DropBalls;
*************************** * Assign three next balls *
procedure FindPath;
************* * Find path *
procedure GenPreview;
***************************** * Generate next three balls *
function GetFreePosition : TPoint;
*********************** * Find free position *
procedure PreviewClick(Sender: TObject);
TGameForm.
procedure ReducePath;
********************* * Remove false path *
procedure RemoveBackBmp;
FindPath} //*********************** //* Remove lock bitmap * //
procedure RemoveOneBall;
CountScore} //***************************** //* Remove finded bonus balls * //
procedure ResetTimer;
*************** * reset timer *
procedure SetScore(Value:Integer);
*************************** * Ana;ize how much bonus *
procedure SetTimer(Mode:TTimerMode; Interval:Integer);
************* * Set timer *
Balls : array[TLineIndex,TLineIndex] of TBallPanel;
BitBtn1 : TBitBtn;
Display : TPanel;
GameTimer : TTimer;
NeedSave : Boolean;
Panel1 : TPanel;
Preview : TPanel;
Removed : Longint;
Score : Integer;
ScorePanel1 : TPanel;
ScorePanel2 : TPanel;
ScorePanel3 : TPanel;
ScorePanel4 : TPanel;
ScorePanel5 : TPanel;
BallsBmp : array[TBitmapIndex,TColorIndex] of TBitmap;
BallsPreview : array[1..3] of TBallPanel;
procedure ExitButtonClick(Sender: TObject);
DropBalls} //*********************** //* duress end of game * //
procedure FormActivate(Sender: TObject);
*********************** * Do when it activate *
procedure FormCreate(Sender: TObject);
/////////////////////////////// / Methoths of TGameForm /// /////////////////////////////// ********************* * Create game form *
procedure FormDeactivate(Sender: TObject);
************************* * Do when it deactivate *
procedure FormDestroy(Sender: TObject);
************************* * Destoy all resources *
procedure GameTimerEvent(Sender: TObject);
TGameForm.BoardClick} //********************* //* Timer dispatcher * //
procedure BoardClick(Sender:TObject);
*************************************** * Click on board, analize what to do *
function CountScore(var PointArray:TPointArray;
X,Y:Integer;
CheckColor:TColorIndex) : Integer;
ReducePath} //*************************************** //* Count bonus points, all directions * //
procedure DrawScore;
*********************** * Show current result *
procedure DropBall(Pos:TPoint; Color:TColorIndex);
RemoveOneBall} //***************** //* Drop one ball * //
procedure DropBalls;
*************************** * Assign three next balls *
procedure FindPath;
************* * Find path *
procedure GenPreview;
***************************** * Generate next three balls *
function GetFreePosition : TPoint;
*********************** * Find free position *
procedure PreviewClick(Sender: TObject);
TGameForm.BoardClick} //******************************* //* Drop three new without move * //
procedure ReducePath;
********************* * Remove false path *
procedure RemoveBackBmp;
FindPath} //*********************** //* Remove lock bitmap * //
procedure RemoveOneBall;
CountScore} //***************************** //* Remove finded bonus balls * //
procedure ResetTimer;
*************** * reset timer *
procedure SetScore(Value:Integer);
*************************** * Ana;ize how much bonus *
procedure SetTimer(Mode:TTimerMode; Interval:Integer);
************* * Set timer *
Balls : array[TLineIndex,TLineIndex] of TBallPanel;
BitBtn1 : TBitBtn;
Display : TPanel;
GameTimer : TTimer;
NeedSave : Boolean;
Panel1 : TPanel;
Preview : TPanel;
Removed : Longint;
Score : Integer;
ScorePanel1 : TPanel;
ScorePanel2 : TPanel;
ScorePanel3 : TPanel;
ScorePanel4 : TPanel;
ScorePanel5 : TPanel;
BallsBmp : array[TBitmapIndex,TColorIndex] of TBitmap;
BallsPreview : array[1..3] of TBallPanel;