BillsEditor/AF/AboutForm.pas

unit AboutForm;

interface

uses
  Windows, SysUtils, ShellAPI, Graphics, Forms, ConstMethodUnit,
  Controls, Classes, StdCtrls, ExtCtrls, ConstVarUnit;

type
  TAboutFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    lblVersion: TLabel;
    Label10: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Label13: TLabel;
    lblPhone: TLabel;
    Label15: TLabel;
    lblWebSite2: TLabel;
    lblEmail2: TLabel;
    Label8: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Button1: TButton;
    Panel3: TPanel;
    procedure lblWebSite2Click(Sender: TObject);
    procedure lblWebSite2MouseEnter(Sender: TObject);
    procedure lblWebSite2MouseLeave(Sender: TObject);
    procedure lblEmail2Click(Sender: TObject);
    procedure lblEmail2MouseEnter(Sender: TObject);
    procedure lblEmail2MouseLeave(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TAboutFrm.lblWebSite2Click(Sender: TObject);
begin
  ShellExecute(Handle, nil, PChar(lblWebSite2.Caption), nil, nil, SW_SHOWNORMAL);
end;

procedure TAboutFrm.lblWebSite2MouseEnter(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clHighLight;
  Screen.Cursor := crHandPoint;
end;

procedure TAboutFrm.lblWebSite2MouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clHotLight;
  Screen.Cursor := crDefault;
end;

procedure TAboutFrm.lblEmail2Click(Sender: TObject);
begin
  Shellexecute(Handle, 'open',
    'mailto:"纵横客服中心"<support@smartcost.com.cn>?subject=关于SmartCost的反馈',
    '关于SmartCost的反馈', '', SW_SHOW);
end;

procedure TAboutFrm.lblEmail2MouseEnter(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clHighLight;
  Screen.Cursor := crHandPoint;
end;

procedure TAboutFrm.lblEmail2MouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clHotLight;
  Screen.Cursor := crDefault;
end;

procedure TAboutFrm.FormCreate(Sender: TObject);
begin
  lblVersion.Caption := GetFileVersion;
  {$IFDEF _beCommon}
  Label3.Caption := SoftWareName_ZY_Common;
  {$ELSE}
    {$IFDEF _ScEncrypt}
    Label3.Caption := SoftWareName_ZY;
    {$ELSE}
      {$IFDEF _beOnLine}
      Label3.Caption := SoftWareName_OnLine;
      {$ELSE}
      Label3.Caption := SoftWareName_XX;
      {$ENDIF}
    {$ENDIF}
  {$ENDIF}
end;

end.