{
  Jyväskylän Yliopisto
  Tietotekniikan laitos
  GKOSYKSY99 harjoitustyö

        Macho Myyrä & Taistelu Silli VIII
        ---------------------------------

        htkayt.pas
        ----------
        Pelin päämenu

        Tarvittavat tiedostot:
         fintro.pas , .dfm
         fabout.pas , .dfm
         fsetup.pas , .dfm
         fpeli.pas , .dfm

         Version: 0.87
         By: Tomi Nieminen
         Date: 23.11.1999
         Comments:
}


unit htkayt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, jpeg, MPlayer;

type
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Options1: TMenuItem;
    Color1: TMenuItem;
    ColorDialog1: TColorDialog;
    Help1: TMenuItem;
    Help2: TMenuItem;
    N3: TMenuItem;
    About1: TMenuItem;
    MediaPlayer1: TMediaPlayer;
    PanelMessage: TPanel;
    Paneltausta: TPanel;
    PanelValinnat: TPanel;
    LabelAbout: TLabel;
    LabelSetup: TLabel;
    LabelIntro: TLabel;
    LabelLoad: TLabel;
    LabelHS: TLabel;
    LabelNew: TLabel;
    ButtonIntro: TButton;
    ButtonNew: TButton;
    ButtonLoad: TButton;
    ButtonSetup: TButton;
    ButtonHS: TButton;
    ButtonAbout: TButton;
    LabelExit: TLabel;
    ButtonExit: TButton;
    Imagelogo: TImage;
    LabelBigText: TLabel;
    OpenDialog1: TOpenDialog;
    procedure Exit1Click(Sender: TObject);
    procedure Color1Click(Sender: TObject);
    procedure ButtonSetupClick(Sender: TObject);
    procedure ButtonIntroClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ButtonNewClick(Sender: TObject); virtual;
    procedure ButtonHSClick(Sender: TObject);
    procedure ButtonExitClick(Sender: TObject);
    procedure ButtonLoadClick(Sender: TObject); virtual;
    procedure ButtonAboutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses Intro, fsetup, fabout, fpeli, Hiscore;

{$R *.DFM}

//************************************************************************
//
//************************************************************************
procedure TFormMain.FormCreate(Sender: TObject);
var FormIntro : TFormIntro;
begin
  formIntro := TFormIntro.create(self);
  formIntro.showModal;
  formIntro.destroy;
  MediaPlayer1.Visible := True;
  MediaPlayer1.Play;
  MediaPlayer1.Visible := False;
end;

//************************************************************************
//
//************************************************************************
procedure TFormMain.Exit1Click(Sender: TObject);
begin
  Close;
end;

//************************************************************************
//
//************************************************************************
procedure TFormMain.Color1Click(Sender: TObject);
begin
  colordialog1.color := color;
  if (not colordialog1.execute) then exit;;
  formSetup.setColor(colordialog1.color);
end;


//************************************************************************
//
//************************************************************************
procedure TFormMain.ButtonSetupClick(Sender: TObject);
begin
  formSetup.showModal;
end;

//************************************************************************
//
//************************************************************************
procedure TFormMain.ButtonIntroClick(Sender: TObject);
var FormIntro : TFormIntro;
begin
  formIntro := TFormIntro.create(self);
  MediaPlayer1.Stop;
  FormIntro.showModal;
  FormIntro.destroy;
  MediaPlayer1.Play;
end;

//************************************************************************
//
//************************************************************************

procedure TFormMain.ButtonNewClick(Sender: TObject);
var lasse :TFormPeli;
begin
// lasse_testi2.TestiPeli.ShowModal;
  lasse := TFormPeli.create(self);
  lasse.showModal;
  lasse.destroy;
end;


//************************************************************************
//
//************************************************************************
procedure TFormMain.ButtonHSClick(Sender: TObject);
begin
 FormHS.showModal;
end;

//************************************************************************
//
//************************************************************************
procedure TFormMain.ButtonExitClick(Sender: TObject);
begin
        Close;
end;


//************************************************************************
//
//************************************************************************
procedure TFormMain.ButtonLoadClick(Sender: TObject);
begin
{  spacetesti := Ttheavaruus.create(self);
  spacetesti.showModal;
  spacetesti.destroy;
}
  OpenDialog1.execute;
end;

procedure TFormMain.ButtonAboutClick(Sender: TObject);
begin
  formAbout.showModal;
end;

end.