setting.pas

来自「一般的数据库管理系统 uses Classes, SConnectEx, Tl」· PAS 代码 · 共 61 行

unit Setting;

interface

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

type
  TSettingForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    Bevel1: TBevel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function SetGame(var AGameParams : TGameParams) : boolean;
implementation

{$R *.dfm}
function SetGame(var AGameParams : TGameParams) : Boolean;
var
  SettingForm : TSettingForm;
begin
  Result := false;
  SettingForm := TSettingForm.Create(Application);
  try
    with SettingForm do
    begin
      SettingForm.Edit1.Text := IntToStr(AGameParams.BelTime);
      SettingForm.Edit2.Text := IntToStr(AGameParams.BeforeWheelTime);
      SettingForm.Edit3.Text := IntToStr(AGameParams.Bleed);
      SettingForm.ComboBox1.Text := IntToStr(AGameParams.Rate);
      ShowModal;
      if IDOK = ModalResult then
      begin
        AGameParams.BelTime := StrToInt(SettingForm.Edit1.Text);
        AGameParams.BeforeWheelTime := StrToInt(SettingForm.Edit2.Text);
        AGameParams.Bleed := StrToInt(SettingForm.Edit3.Text);
        AGameParams.Rate := StrToInt(SettingForm.ComboBox1.Text);
        Result := true;
      end;
    end;
  finally
    SettingForm.Free;
  end;
end;
end.