| Class TGameForm (unit APGame) |
TForm
| Constructors |
| Functions |
procedure ExitButtonClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure GameTimerEvent(Sender: TObject);
procedure BoardClick(Sender:TObject);
function CountScore(var PointArray:TPointArray;
X,Y:Integer;
CheckColor:TColorIndex) : Integer;
procedure DrawScore;
procedure DropBall(Pos:TPoint; Color:TColorIndex);
procedure DropBalls;
procedure FindPath;
procedure GenPreview;
function GetFreePosition : TPoint;
procedure PreviewClick(Sender: TObject);
procedure ReducePath;
procedure RemoveBackBmp;
procedure RemoveOneBall;
procedure ResetTimer;
procedure SetScore(Value:Integer);
procedure SetTimer(Mode:TTimerMode; Interval:Integer);| Properties |
| Events |
| Variables |
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;| Constructors |
| Functions |
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 *
| Properties |
| Events |
| Variables |
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;