unit_heroname.~pas

扫雷

{******************************************************************************
*   Uint  Unit_HeroName
*   Function 用于输入英雄大名的对话框的界面和功能的实现部分
*
*   CopyRight (c) By 虹雨 2002-8
*
*   Date    :
*       New Develop   : 2002-7-30
*       Modified      : 2002-8-18
******************************************************************************}

unit Unit_HeroName;

interface

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

type
  TFrm_HeroName = class(TForm)
    Label_Level: TLabel;
    Label_Word: TLabel;
    Edit_Name: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_HeroName: TFrm_HeroName;

  New_Name:string;

implementation

uses Unit_Main;

{$R *.DFM}

procedure TFrm_HeroName.FormCreate(Sender: TObject);
var
  Level_Name:string;
begin
  Top :=Frm_Main .top +Frm_Main .Panel_top .Height *2 -20;
  left:=Frm_Main .Left + 5;
  Width :=154;
  Height :=150;

  unit_Main.checkMainFormPosition(Frm_HeroName );

  case LanguageType of
    l_Chinese_Simplified  :
    begin
      Label_Level.Font.Size :=10;
      Label_Word .Font.Size :=10;
      case UserLevel of
        v_Beginner : Level_Name :='初级';
        v_Middle : Level_Name :='中级';
        v_Expert : Level_Name :='高级';
        v_Professional: Level_Name:='专业级';
      end;
      Label_Level .Caption :='已破'+Level_Name +'记录。';
      Label_Word .Caption :='请留尊姓大名。';
      Edit_Name .Text :='匿名';
      Button1.Caption :='确定';
    end;
    l_Chinese_Traditional :
    begin
      Label_Level.Font.Size :=10;
      Label_Word .Font.Size :=10;
      case UserLevel of
        v_Beginner : Level_Name :='