{****************************************************************
*****************************************************************
*****************************************************************
Jyväskylän Yliopisto
Tietotekniikan Laitos
GKOSYKSY99
Harjoitustyö: Macho Myyrä ja Taistelu Silakka VIII
--------------------------------------------------

        INTRO.PAS
        ----------------



        Mukaan:
        Intro.pas
        defaultmediaplayer.pas //komponentti

        Version: 0.1
        By:
        Date:
        Comments:

******************************************************************
******************************************************************
******************************************************************}
unit XIntro;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DefaultMediaPlayer, MPlayer, jpeg;
{******************************************************************}
type
  TFormIntro = class(TForm)
    PTausta: TPanel;
    DMPintro: TDefaultMediaPlayer;
    ImageTausta: TImage;
    ILogo: TImage;
    IHell: TImage;
    IGame: TImage;
    IIntro: TImage;
    procedure IIntroClick(Sender: TObject);
    procedure IHellClick(Sender: TObject);
    procedure IGameClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormIntro: TFormIntro;

implementation

{$R *.DFM}

{******************************************************************}

procedure TFormIntro.IIntroClick(Sender: TObject);
begin
     {Nayttaa fullscreen videon}
        dmpintro.NaytaVideo('final3');
end;

procedure TFormIntro.IHellClick(Sender: TObject);
begin
        {lopettaa ohjelmanajon}
           close;
end;

procedure TFormIntro.IGameClick(Sender: TObject);
begin
      {aloittaa itse menun }
           Close;
end;

end.