unit_hero.pas

扫雷

{******************************************************************************
*   Uint  Unit_Hero
*   Function 扫雷英雄榜界面和功能的实现部分
*
*   CopyRight (c) By 虹雨 (Huansun) 2002-8
*
*   Date    :
*       New Develop   : 2002-7-29
*       Modified      : 2002-8-18
******************************************************************************}

unit Unit_Hero;

interface

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

type
  TFrm_Hero = class(TForm)
    Button_Reset: TButton;
    Button_Sure: TButton;
    Label_B: TLabel;
    Label_I: TLabel;
    Label_E: TLabel;
    Label_1_Score: TLabel;
    Label_2_Score: TLabel;
    Label_3_Score: TLabel;
    Label_1_Name: TLabel;
    Label_2_Name: TLabel;
    Label_3_Name: TLabel;
    Label_P: TLabel;
    Label_4_Score: TLabel;
    Label_4_Name: TLabel;
    procedure Button_SureClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button_ResetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure GetScore(const s_Level:TGameLevel ; var s_Score:integer);
  procedure InputScore(const s_level:TGameLevel ;const s_Score:integer;const s_Name:string);

var
  Frm_Hero: TFrm_Hero;
  HeroIni:TiniFile;
  NameOfSecond:string;
  HeroName:string;

implementation
//uses Unit_Main;

{$R *.dfm}

procedure TFrm_Hero.Button_SureClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Hero.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree ;
end;

procedure TFrm_Hero.FormCreate(Sender: TObject);
var
//  fileName:string;
  c_REG: TRegistry;

begin
  case LanguageType of
    l_Chinese_Simplified  :
    begin
      Caption:='扫雷英雄榜';
      Label_B.Caption :='初  级:';
      Label_I.Caption :='中  级:';
      Label_E.Caption :='高  级:';
      Label_P.Caption :='专业级:';
      Button_Reset .Caption :='重新记分(&R)';
      Button_Sure .Caption :='确定';
      NameOfSecond :=' 秒';
      HeroName :='匿名';
    end;
    l_Chinese_Traditional :
    begin
      Caption:='苯筽璣动篯';
      Label_B.Caption :='