?? 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 :='
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -