Class TGameForm (unit APGame)

Inherits from

TForm

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.

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 *

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;