togaut.pas

阅读器工具比较少,传一个上来,比较值得下载一看

unit togaut;

interface

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

type
  Tf_TogAut = class(TForm)
    AuthorInfo: TStringGrid;
    ok: TButton;
    procedure okClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure AuthorInfoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure AuthorInfoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure AuthorInfoKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  CountNumber = 7;  //合作者总数

var
  f_TogAut: Tf_TogAut;
  SelectCol,SelectRow : integer;

implementation

uses main;

{$R *.DFM}

procedure Tf_TogAut.okClick(Sender: TObject);
begin
  f_togaut.Close;
end;

procedure Tf_TogAut.FormShow(Sender: TObject);
begin
  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]:='Luzhuo';
  AuthorInfo.Cells[1,2]:='建议：行距加倍';
  AuthorInfo.Cells[2,2]:='[e-mail]';
  AuthorInfo.Cells[3,2]:='';

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

  AuthorInfo.Cells[0,4]:='Luzhuo';
  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]:='Luzhuo';
  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]:='';

end;

procedure Tf_TogAut.AuthorInfoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  AuthorInfo.MouseToCell(x,y,SelectCol,SelectRow);
  if (SelectCol=2) and (SelectRow<=CountNumber) then
     AuthorInfo.Cursor:=crHandPoint
  else
     AuthorInfo.Cursor:=crDefault;
end;

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

procedure Tf_TogAut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  f_main.Enabled:=True;
end;

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

end.