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

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

        fsetup.pas
        ----------
        Pelin setupmenu

        Tarvittavat tiedostot:
         xsetup.pas , .dfm

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

         Version: 0.91
         By: Lasse "Iskias" Lilja
         Date: 03.12.1999
         Comments:
         1) Tausta ja muuta kakkia

***************************************************************************}
unit xsetup;

interface

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

type
  TFormSetup = class(TForm)
    ButtonColor: TButton;
    ColorDialog1: TColorDialog;
    PanelTausta: TPanel;
    Imagetausta: TImage;
    ButtonClose: TButton;
    procedure ButtonColorClick(Sender: TObject);
    procedure ButtonCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetColor(color: TColor);
    { Public declarations }
  end;

{********************************************************************}
var
  FormSetup: TFormSetup;

implementation

uses XHiscore, XIntro, xAbout, MachoMole;

{$R *.DFM}


{********************************************************************}
procedure TFormSetup.ButtonColorClick(Sender: TObject);
begin
  colordialog1.color := color;
  if (not colordialog1.execute) then exit;;
  SetColor(colordialog1.color);
end;

{********************************************************************}
procedure TFormSetup.SetColor(color: TColor);
begin
  FormMain.color := color;
  FormSetup.color := color;
  FormHS.color := color;
  FormAbout.color := color;
end;

{********************************************************************}
procedure TFormSetup.ButtonCloseClick(Sender: TObject);
begin
        Close;
end;

end.