untoption.pas

这是一个扑克牌游戏。 1.抓有黑桃7 的玩家首先出黑桃7。 2.然后按逆时针方向出牌。每位玩家依次出牌

{
接龙游戏选项窗

黄文林 2006-02-13
}
unit untOption;

interface

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

type
  TfrmOption = class(TForm)
    grpSpeed: TGroupBox;
    rbFast: TRadioButton;
    rbNormal: TRadioButton;
    rbSlow: TRadioButton;
    grpSound: TGroupBox;
    btnOK: TButton;
    btnCancel: TButton;
    grpPlayer: TGroupBox;
    edtPlayer0: TEdit;
    edtPlayer1: TEdit;
    edtPlayer2: TEdit;
    edtPlayer3: TEdit;
    lblPlayer1: TLabel;
    lblPlayer2: TLabel;
    lblPlayer3: TLabel;
    lblPlayer0: TLabel;
    chkComputerSound: TCheckBox;
    chkHumanSound: TCheckBox;
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses
  untMain;

{$R *.dfm}

procedure TfrmOption.btnOKClick(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  //更新游戏动画速度
  if rbFast.Checked then
    frmMain.CardDraw.Speed := -1
  else if rbSlow.Checked then
    frmMain.CardDraw.Speed := 1
  else
    frmMain.CardDraw.Speed := 0;
  //更新音乐和声音开关
  frmMain.CardDraw.ComputerSound := chkComputerSound.Checked;
  frmMain.CardDraw.HumanSound := chkHumanSound.Checked;
  //更新玩家名字
  for i := 0 to 3 do
  begin
    s := TEdit(FindComponent('edtPlayer' + IntToStr(i))).Text;
    if frmMain.CardDraw.GetPlayerName(i) <> s then  //如果玩家名字有更改时才更新
    begin
      frmMain.CardDraw.SetPlayerName(i, s);
      Application.ProcessMessages;  //消除闪屏
    end;
  end;
end;

procedure TfrmOption.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  //取游戏动画速度
  case frmMain.CardDraw.Speed of
  -1:
    rbFast.Checked := True;
  1:
    rbSlow.Checked := True;
  else
    rbNormal.Checked := True;
  end;
  //取音乐和声音开关
  chkComputerSound.Checked := frmMain.CardDraw.ComputerSound;
  chkHumanSound.Checked := frmMain.CardDraw.HumanSound;
  //取玩家姓名
  for i := 0 to 3 do
    TEdit(FindComponent('edtPlayer' + IntToStr(i))).Text := frmMain.CardDraw.GetPlayerName(i);
end;

end.