ufrmsplash.pas

来自「a voice guide client ,it is the second p」· PAS 代码 · 共 58 行

unit uFrmSplash;

interface

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

type
  TfrmSplash = class(TForm)
    Image1: TImage;
    lblVer: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSplash: TfrmSplash;

implementation

{$R *.dfm}

procedure TfrmSplash.FormCreate(Sender: TObject);
var
  fn: string;
  Jpg: TJPEGImage;
begin
  ClientHeight:= Image1.Height;
  ClientWidth:= Image1.Width;
  Fn:= ExtractFilePath(Application.ExeName)+ 'TbLog.Bin';
  if FileExists(Fn) then begin
    Jpg:= TJPEGImage.Create;
    try
      Jpg.LoadFromFile(Fn);
      Image1.Picture.Graphic.Assign(Jpg);
      ClientHeight:= Jpg.Height;
      ClientWidth:= Jpg.Width;
      Image1.AutoSize:= True;
    finally
      Jpg.Free;
    end;
  end;
  Image1.Align:= alClient;
  lblVer.Caption := GetVersionFromFile(Application.ExeName);
end;

procedure TfrmSplash.Image1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

end.