aboutdlg.pas

大家是不是为不知道如何在VB学到绝地程序

{***************************************************************
 *
 * Unit Name   : AboutDlg
 * Version     : 1.0.0.0
 * Date        : 99-12-18 9:00:42
 * Purpose     : Genernal About Dialog
 * Author      : Xueyu,LEE ([e-mail])
 * Copyright(C): 1999 by Xueyu, LEE
 * History     : by riceball
 *        2000-01-05
 *           + WebSite from Version resource (riceball)
 *              ChenFei([e-mail]) suggest it.
 *        2000-01-08
 *           * 分离http://和主页名称
 *        2000-1-9 16:06
 *           * 不是资源文件的问题，
 *              When Assign lblWebSite1.Caption := Values['Web1']
 *              The Critical Error occur. 调用WinAPI函数失败，并且
 *              无法退出Win98.
 *              Call WinAPI Failure, and can not exit Win98.
 *        2000-1-18
 *           * ShowSplash for faster load.
 *        2000-07-22
 *           * The Critical Error occur.
 *             Find Reason: When the TvgTranslator.LanguageFile = '' execute TvgTranslator.Translate
 *        2000-11-04
 *           * moved the Animated GIF to a file(About.gif) to reduce the ExeFile Size.
 *
 ****************************************************************}

unit AboutDlg;

interface

uses
  Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, RXCtrls, HyperLink, Animate, 
  EditModule, MainEdit, vgNLS, ShellApi, GIFImage;

type
  TDlgAbout = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    btnOK: TSpeedButton;
    lblProductName: TRxLabel;
    lblVersion: TRxLabel;
    lblAuthor: THyperLink;
    Copyright: TRxLabel;
    C: TRxLabel;
    lblDate: TRxLabel;
    Comments: TRxLabel;
    RxLabel2: TRxLabel;
    CreditPanel: TSecretPanel;
    RxLabel1: TRxLabel;
    lblCompany: TRxLabel;
    lblWebSite1: THyperLink;
    lblWebSite2: THyperLink;
    lblWebSite3: THyperLink;
    lblGuestBook: THyperLink;
    imgJediDelphi: TImage;
    gifSplash: TImage;
    procedure FormCreate(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RxGIFAnimator1Stop(Sender: TObject);
    procedure RxGIFAnimator1Start(Sender: TObject);
    procedure imgJediDelphiClick(Sender: TObject);
  private
    { Private declarations }
    tran: TvgTranslator;
  public
    { Public declarations }
    procedure ShowSplash;
    procedure ShowAbout;
  end;

var
  DlgAbout: TDlgAbout;

const
  sAboutGifName : string = 'About.gif';

implementation

{$R *.DFM}
uses Rxverinf;

procedure TDlgAbout.FormCreate(Sender: TObject);
begin
  lblWebSite3.Visible := False;
  {display Copyright char}
  C.Caption:='