morename.pas

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

{
模块名称：合作者名单

使用方法：1、Create
		  2、ShowModal

返回值：  无
}

unit MoreName;

interface

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

type
  TFormMoreName = class(TForm)
    BtnOk: TButton;
    AuthorInfo: TStringGrid;

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

	procedure AuthorInfoKeyPress(Sender: TObject; var Key: Char);
	procedure AuthorInfoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure AuthorInfoClick(Sender: TObject);

  private
    { Private declarations }
  	FnSelectCol, FnSelectRow : integer;

  public
	{ Public declarations }
  end;

const
	c_nCountNumber = 9;  //合作者总数

var
  FormMoreName: TFormMoreName;

implementation

uses
	Global;

{$R *.DFM}

procedure TFormMoreName.FormCreate(Sender: TObject);
begin
	//多语言文字
	Self.Font.Charset := GetCharset;

	Self.Caption := GetWord('合作者简介');

	BtnOk.Caption := GetWord('确定');
end;

procedure TFormMoreName.FormShow(Sender: TObject);
begin
	AuthorInfo.RowCount := c_nCountNumber + 5;

	AuthorInfo.Cells[0, 0] := GetWord('姓名');
	AuthorInfo.Cells[1, 0] := GetWord('添加代码');
	AuthorInfo.Cells[2, 0] := GetWord('电子邮件');
	AuthorInfo.Cells[3, 0] := GetWord('主页');

	AuthorInfo.Cells[0, 1] := GetWord('杨媛媛');
	AuthorInfo.Cells[1, 1] := GetWord('GB码=>BIG5码的转换');
	AuthorInfo.Cells[2, 1] := '[e-mail]';
	AuthorInfo.Cells[3, 1] := '';

	AuthorInfo.Cells[0, 2] := GetWord('陈鲁倬');
	AuthorInfo.Cells[1, 2] := GetWord('建议：行距加倍');
	AuthorInfo.Cells[2, 2] := '[e-mail]';
	AuthorInfo.Cells[3, 2] := '';

	AuthorInfo.Cells[0, 3] := GetWord('陈鲁倬');
	AuthorInfo.Cells[1, 3] := GetWord('建议：添加下划线');
	AuthorInfo.Cells[2, 3] := '[e-mail]';
	AuthorInfo.Cells[3, 3] := '';

	AuthorInfo.Cells[0, 4] := GetWord('陈鲁倬');
	AuthorInfo.Cells[1, 4] := GetWord('建议：全屏显示');
	AuthorInfo.Cells[2, 4] := '[e-mail]';
	AuthorInfo.Cells[3, 4] := '';

	AuthorInfo.Cells[0, 5] := GetWord('杨媛媛');
	AuthorInfo.Cells[1, 5] := GetWord('支持RTF、INI文件');
	AuthorInfo.Cells[2, 5] := '[e-mail]';
	AuthorInfo.Cells[3, 5] := '';

	AuthorInfo.Cells[0, 6] := GetWord('陈鲁倬');
	AuthorInfo.Cells[1, 6] := GetWord('建议：定时提醒');
	AuthorInfo.Cells[2, 6] := '[e-mail]';
	AuthorInfo.Cells[3, 6] := '';

	AuthorInfo.Cells[0, 7] := GetWord('刘付伶');
	AuthorInfo.Cells[1, 7] := GetWord('建议：增加查找功能');
	AuthorInfo.Cells[2, 7] := '[e-mail]';
	AuthorInfo.Cells[3, 7] := '';

	AuthorInfo.Cells[0, 8] := GetWord('杨媛媛');
	AuthorInfo.Cells[1, 8] := GetWord('GB码、BIG5码的自动识别');
	AuthorInfo.Cells[2, 8] := '[e-mail]';
	AuthorInfo.Cells[3, 8] := '';

	AuthorInfo.Cells[0, 9] := GetWord('蔡云灯');
	AuthorInfo.Cells[1, 9] := GetWord('建议：文件最大容量自定义');
	AuthorInfo.Cells[2, 9] := '[e-mail]';
	AuthorInfo.Cells[3, 9] := '';
end;

procedure TFormMoreName.AuthorInfoKeyPress(Sender: TObject; var Key: Char);
begin
  	Key := #0;
end;

procedure TFormMoreName.AuthorInfoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
	AuthorInfo.MouseToCell(x, y, FnSelectCol, FnSelectRow);

	if (FnSelectCol = 2) and (FnSelectRow <= c_nCountNumber) then
		AuthorInfo.Cursor := crHandPoint
	else
     	AuthorInfo.Cursor := crDefault;
end;

procedure TFormMoreName.AuthorInfoClick(Sender: TObject);
begin
	if AuthorInfo.Cursor = crHandPoint then
	begin
		ShellExecute(Handle,
					 nil,
					 PChar('mailto:' + AuthorInfo.Cells[FnSelectCol, FnSelectRow]),
					 nil,
					 nil,
					 SW_SHOWNORMAL);
  	end;
end;

end.