aboutfrm.pas

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

unit AboutFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseFrm, StdCtrls, ExtCtrls;

type
  TFrmAbout = class(TFrmBase)
    Bevel1: TBevel;
    btnClose: TButton;
    lblLink: TLabel;
    lblVersion: TLabel;
    lblEmail: TLabel;
    procedure lblLinkMouseEnter(Sender: TObject);
    procedure lblLinkClick(Sender: TObject);
    procedure lblLinkMouseLeave(Sender: TObject);
    procedure lblEmailClick(Sender: TObject);
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent); override;
    { Public declarations }
    procedure getLangRes;override;             // 资源加载
  end;

var
  FrmAbout: TFrmAbout;

implementation
uses
  CommonUtils, ShellAPI;

{$R *.dfm}

{ TFrmAbout }

constructor TFrmAbout.Create(AOwner: TComponent);
begin
  inherited;
  //lblVersion.Caption := lblVersion.Caption + GetVersionInfo(True);
end;
 
procedure TFrmAbout.lblLinkClick(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'http://www.delphibbs.com',
    nil, nil, SW_SHOW);
end;

procedure TFrmAbout.lblLinkMouseEnter(Sender: TObject);
begin
  inherited;
  (Sender as Tlabel).Font.Color := clBlue;
  (Sender as Tlabel).Font.Style := (Sender as Tlabel).Font.Style + [fsUnderline];
end;   
procedure TFrmAbout.lblLinkMouseLeave(Sender: TObject);
begin
  inherited;
  (Sender as Tlabel).Font.Color := clBlack;
  (Sender as Tlabel).Font.Style := (Sender as Tlabel).Font.Style - [fsUnderline]; 
end;

procedure TFrmAbout.getLangRes;
begin
  inherited;
  Self.Caption := pubGet(215);
  lblLink.Caption := pubGet(216);
  btnClose.Caption := pubGet(16);
  lblVersion.Caption := pubGet(91) +#13#10 + pubGet(92);
  lblEmail.Hint := pubGet(93);
  lblEmail.Caption := 'E-mail:' + lblEmail.Hint;

end;

procedure TFrmAbout.lblEmailClick(Sender: TObject);
begin 
  ShellExecute(Handle, 'open', PChar('mailto:'+ lblEmail.Hint),
    nil, nil, SW_SHOW); 
end;

end.