morename.pas

电子小说阅读器v2.68可用于阅读pdf.html等各种形式的文档

{
模块名称：合作者名单

使用方法：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 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

{$R *.DFM}

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

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

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

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

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

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

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

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

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

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

	AuthorInfo.Cells[0, 9] := '蔡云灯';
	AuthorInfo.Cells[1, 9] := '建议：文件最大容量自定义';
	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.