| Class TfrmBasic (unit Main) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure menAboutcompClick(Sender: TObject);
procedure menCPUClick(Sender: TObject);
procedure menExitClick(Sender: TObject);
procedure menLevelClick(Sender: TObject);
procedure menNewClick(Sender: TObject);
procedure menUserClick(Sender: TObject);
procedure tttGameClickSquare(Square: Integer);| 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;| 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