uformviewabout.pas

来自「支持版本:Delphi 5-2009, C++Builder 5-2009 A」· PAS 代码 · 共 89 行

{$I ViewerOptions.inc}

unit UFormViewAbout;

interface

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

type
  TFormViewAbout = class(TForm)
    PanelText: TPanel;
    PanelCaption: TPanel;
    labCaption: TLabel;
    labCopyright: TLabel;
    labHomepage: TLabel;
    labVersion: TLabel;
    PanelReg: TPanel;
    labReg1: TLabel;
    PanelCredits: TPanel;
    labCredits: TLabel;
    memoCredits: TMemo;
    PanelButton: TPanel;
    btnOK: TButton;
    PanelImage: TPanel;
    Image1: TImage;
    labReg2: TLabel;
    labLicense: TLabel;
    labReg3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    PanelLogo: TPanel;
    Image2: TImage;
    procedure FormShow(Sender: TObject);
    procedure labHomepageClick(Sender: TObject);
    procedure labLicenseClick(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses
  {$ifdef PRO}
  {$I Pro\AboutUses.inc}
  {$endif}
  ATxMsgProc, ATxFProc;

{$R *.DFM}


{$ifdef PRO}
{$I Pro\AboutImplement.inc}
{$endif}

procedure TFormViewAbout.FormShow(Sender: TObject);
begin
  {$I Lang.FormViewAbout.inc}

  {$ifndef HELP}
  labLicense.Enabled:= false;
  {$endif}
end;

procedure TFormViewAbout.labHomepageClick(Sender: TObject);
begin
  FOpenURL('http://www.uvviewsoft.com', Handle);
end;

procedure TFormViewAbout.labLicenseClick(Sender: TObject);
begin
  {$ifdef PRO}
  ShowHelp(Handle, 'LicensePro.html');
  {$else}
  ShowHelp(Handle, 'LicenseFree.html');
  {$endif}
end;

procedure TFormViewAbout.Image2Click(Sender: TObject);
begin
  FOpenURL('http://atorg.net.ru/delphi/', Handle);
end;

end.