{******************************************************************************
*   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 :='