unit mainmenu;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  chessboard, customgame, credits;

type

  { TFormMainMenu }

  TFormMainMenu = class(TForm)
    BtnDefaultGame: TButton;
    BtnCustomGame: TButton;
    BtnLoadGame: TButton;
    BtnCredits: TButton;
    BtnClose: TButton;
    procedure BtnCloseClick(Sender: TObject);
    procedure BtnCreditsClick(Sender: TObject);
    procedure BtnCustomGameClick(Sender: TObject);
    procedure BtnDefaultGameClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormMainMenu: TFormMainMenu;

implementation

{$R *.lfm}

{ TFormMainMenu }

//Opens the default game when clicked
procedure TFormMainMenu.BtnDefaultGameClick(Sender: TObject);
begin
  FormChessboard.Show;
  FormMainMenu.hide;
end;

//Opens the custom game customisation menu when clicked
procedure TFormMainMenu.BtnCustomGameClick(Sender: TObject);
begin
  FormCustomGame.Show;
  FormMainMenu.hide;
end;

//Opens the credits when clicked
procedure TFormMainMenu.BtnCreditsClick(Sender: TObject);
begin
  FormCredits.Show;
  FormMainMenu.hide;
end;

//Closes the form when clicked
procedure TFormMainMenu.BtnCloseClick(Sender: TObject);
begin
  Close;
end;

end.