about.pas

delphi 电子书阅读器 外观非常漂亮

{
模块名称：关于

使用方法：1、Create
		  2、ShowModal

返回值：  1、mrRetry：显示合作者名单
}

unit About;

interface

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

type
  TFormAbout = class(TForm)
	Image1: TImage;
	Bevel1: TBevel;
	Label1: TLabel;
	Label2: TLabel;
	Label3: TLabel;
	Label4: TLabel;
	Label5: TLabel;
	Label6: TLabel;
	Label7: TLabel;
	Label9: TLabel;

	LabelMemst: TLabel;
	LabelMemleft: TLabel;

	LabeliLikeWWW: TLabel;
	LabeliLikeEmail: TLabel;

	BtnOk: TButton;
	BtnMoreName: TButton;

    procedure FormCreate(Sender: TObject);
	procedure FormShow(Sender: TObject);

	procedure Image1DblClick(Sender: TObject);
	procedure LabeliLikeWWWClick(Sender: TObject);
	procedure LabeliLikeEmailClick(Sender: TObject);
	procedure LabeliLikeWWWMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure LabeliLikeWWWMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

  private
	{ Private declarations }
	FboolMouseEnter : Boolean;
	FMouseObject : TObject;

  public
	{ Public declarations }
	procedure CMMouseLeave(var Msg : TMessage); Message CM_MouseLeave;

  end;

var
  FormAbout: TFormAbout;

implementation

uses
	Game,
	Global;

{$R *.DFM}

procedure TFormAbout.FormCreate(Sender: TObject);
begin
	//多语言文字
	Self.Font.Charset := GetCharset;
	Label1.Font.Charset := GetCharset;
	Label2.Font.Charset := GetCharset;
	LabeliLikeWWW.Font.Charset := GetCharset;
	LabeliLikeEmail.Font.Charset := GetCharset;

	Self.Caption := GetWord('关于 电子小说');

	Label1.Caption := GetWord('Tale软件工作组');
	Label2.Caption := GetWord('电子小说阅读器');
	Label3.Caption := GetWord('版本 2.68 Build 4');
	Label4.Caption := GetWord('版权所有(c) Tale软件工作组 1999～2000');
	Label7.Caption := GetWord('特别感谢');
	LabeliLikeWWW.Caption := GetWord('海阔天空下载站');
	Label9.Caption := GetWord('和站长');
	LabeliLikeEmail.Caption := GetWord('陈熊伟');
	Label5.Caption := GetWord('Windows的可用物理内存:');
	Label6.Caption := GetWord('剩余物理内存:');
	BtnOk.Caption := GetWord('确定');
	BtnMoreName.Caption := GetWord('合作者') + '(&A)';
end;

procedure TFormAbout.FormShow(Sender: TObject);
var
	mem : TMemoryStatus;
begin
	GlobalMemoryStatus(mem);
	LabelMemst.Caption := FormatFloat('##,###,###', Trunc(mem.dwTotalPhys / 1024)) + ' KB';
	LabelMemleft.Caption := FormatFloat('##,###,###', Trunc(mem.dwAvailPhys / 1024)) + ' KB';
	FboolMouseEnter := False;
end;

procedure TFormAbout.Image1DblClick(Sender: TObject);
begin
	FormGame.Show;
	ModalResult := mrOk;
end;

procedure TFormAbout.LabeliLikeWWWClick(Sender: TObject);
begin
	ShellExecute(Handle,
				 nil,
				 PChar(LabeliLikeWWW.Hint),
				 nil,
				 nil,
				 SW_SHOWNORMAL);
end;

procedure TFormAbout.LabeliLikeEmailClick(Sender: TObject);
begin
	ShellExecute(Handle,
				 nil,
				 PChar(LabeliLikeEmail.Hint),
				 nil,
				 nil,
				 SW_SHOWNORMAL);
end;

procedure TFormAbout.LabeliLikeWWWMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
	FboolMouseEnter := True;
	(Sender as TLabel).Font.Style := (Sender as TLabel).Font.Style + [fsUnderLine];
	FMouseObject := Sender;
end;

procedure TFormAbout.LabeliLikeWWWMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
	if Button = mbLeft then
	begin
		(FMouseObject as TLabel).Font.Style := (FMouseObject as TLabel).Font.Style - [fsUnderLine];
	end;
end;

procedure TFormAbout.CMMouseLeave(var Msg : TMessage);
begin
	if FboolMouseEnter then
	begin
		FboolMouseEnter := False;
		(FMouseObject as TLabel).Font.Style := (FMouseObject as TLabel).Font.Style - [fsUnderLine];
	end;
end;

end.