Class TfrmBasic (unit Main)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure menAboutcompClick(Sender: TObject);

User plays first

procedure menCPUClick(Sender: TObject);

Player plays first

procedure menExitClick(Sender: TObject);

New game has started

procedure menLevelClick(Sender: TObject);


procedure menNewClick(Sender: TObject);


procedure menUserClick(Sender: TObject);


procedure tttGameClickSquare(Square: Integer);

CPU plays first

Properties

Events

Variables

grbBoardCont : TGroupBox;


lblNodes : TLabel;


lblNodesLabel : TLabel;


menAboutcomp : TMenuItem;


menCPU : TMenuItem;


menExit : TMenuItem;


menFirst : TMenuItem;


menGame : TMenuItem;


menLevel : TMenuItem;


menLevel1 : TMenuItem;


menLevel2 : TMenuItem;


menLevel3 : TMenuItem;


menLevel4 : TMenuItem;


menLevel5 : TMenuItem;


menMainMenu : TMainMenu;


menNew : TMenuItem;


menUser : TMenuItem;


tttGame : TTicTacToe;


CPUFirst : Boolean;


Playing : Boolean;

Private declarations


Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure menAboutcompClick(Sender: TObject);

User plays first


procedure menCPUClick(Sender: TObject);

Player plays first


procedure menExitClick(Sender: TObject);

New game has started


procedure menLevelClick(Sender: TObject);


procedure menNewClick(Sender: TObject);


procedure menUserClick(Sender: TObject);


procedure tttGameClickSquare(Square: Integer);

CPU plays first


Properties


Events


Variables


grbBoardCont : TGroupBox;


lblNodes : TLabel;


lblNodesLabel : TLabel;


menAboutcomp : TMenuItem;


menCPU : TMenuItem;


menExit : TMenuItem;


menFirst : TMenuItem;


menGame : TMenuItem;


menLevel : TMenuItem;


menLevel1 : TMenuItem;


menLevel2 : TMenuItem;


menLevel3 : TMenuItem;


menLevel4 : TMenuItem;


menLevel5 : TMenuItem;


menMainMenu : TMainMenu;


menNew : TMenuItem;


menUser : TMenuItem;


tttGame : TTicTacToe;


CPUFirst : Boolean;


Playing : Boolean;

Private declarations