unit_choose.pas

扫雷

{******************************************************************************
*   Uint  Unit_Choose
*   Function 自定义雷区的界面和功能的实现.
*
*   CopyRight (c) By 虹雨 (Huansun) 2002-8
*
*   Date    :
*       New Develop   : 2002-7-27
*       Modified      : 2002-8-18
******************************************************************************}

unit Unit_Choose;

interface

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

type
  TFrm_Choose = class(TForm)
    Label_Height: TLabel;
    Label_Width: TLabel;
    Label_Bombs: TLabel;
    Edit_H: TEdit;
    Edit_W: TEdit;
    Edit_M: TEdit;
    Button_Ok: TButton;
    Button_Cancel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button_OkClick(Sender: TObject);
    procedure Button_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Choose: TFrm_Choose;

  UserH:integer;
  UserW:integer;
  UserM:integer;

  Changed:boolean;


implementation

uses Unit_Main;
{$R *.dfm}

procedure TFrm_Choose.FormCreate(Sender: TObject);
begin
  case LanguageType of
    l_English  :
    begin
      Frm_Choose.Caption :='User Define';
      Label_Height.Caption :='&Height';
      Label_Width .Caption :='&Width';
      Label_Bombs .Caption :='Nu&mber';
      Button_Ok.Caption:='OK';
      Button_Cancel .Caption:='Cancel';
    end;
    l_Chinese_Simplified :
    begin
      Frm_Choose.Caption :='自定义雷区';
      Label_Height.Caption :='高度(&H)';
      Label_Width .Caption :='宽度(&W)';
      Label_Bombs .Caption :='雷数(&M)';
      Button_Ok.Caption:='确定';
      Button_Cancel .Caption:='取消';
    end;

    l_Chinese_Traditional :
    begin
      Frm_Choose.Caption :='