unit fsetup;

interface

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

type
  TFormSetup = class(TForm)
    ButtonColor: TButton;
    Label1: TLabel;
    ColorDialog1: TColorDialog;
    procedure ButtonColorClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetColor(color: TColor);
    { Public declarations }
  end;

var
  FormSetup: TFormSetup;

implementation

uses htkayt, Hiscore, Intro, fAbout;

{$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;

end.