unit_options.pas

类似打蜜蜂的游戏

unit Unit_Options;

interface

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

type
  TfrmSetting = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    btnOk: TButton;
    btnCancel: TButton;
    tbGameSpeed: TTrackBar;
    tbWinTrans: TTrackBar;
    lbGameSpeed: TLabel;
    lbWinTrans: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    procedure tbGameSpeedChange(Sender: TObject);
    procedure tbWinTransChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSetting: TfrmSetting;

implementation

{$R *.dfm}

uses Unit_Main, Unit_Classes;

var
  mainForm_Trans: integer;

procedure TfrmSetting.tbGameSpeedChange(Sender: TObject);
begin
  lbGameSpeed.Caption := IntToStr( tbGameSpeed.Position );
end;

procedure TfrmSetting.tbWinTransChange(Sender: TObject);
begin
  lbWinTrans.Caption := IntToStr( tbWinTrans.Position );
  frmMain.AlphaBlendValue := tbWinTrans.Position;
end;

procedure TfrmSetting.FormCreate(Sender: TObject);
begin
  mainForm_Trans := frmMain.AlphaBlendValue;
  tbGameSpeed.Position := game.getSpeed;
  tbWinTrans.Position := frmMain.AlphaBlendValue;
end;

procedure TfrmSetting.btnOkClick(Sender: TObject);
begin
  game.setSpeed( tbGameSpeed.Position );
  Close;
end;

procedure TfrmSetting.btnCancelClick(Sender: TObject);
begin
  frmMain.AlphaBlendValue := mainForm_Trans;
  Close;
end;

end.