unitsplash.~pas

来自「远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Del」· ~PAS 代码 · 共 77 行

unit UnitSplash;

interface

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

type
  TFormSplash = class(TForm)
    Image: TImage;
    SetTitleTimer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure SetTitleTimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSplash: TFormSplash;

implementation

{$R *.dfm}

procedure TFormSplash.FormCreate(Sender: TObject);
begin
  self.Caption := '正在载入信息,请等候...';
  //拉伸显示整个图形
  with Image.Canvas do
  begin
    Brush.Bitmap:=TBitmap.Create;
    try
      Brush.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName) + 'splash.bmp');
      FillRect(Image.Canvas.ClipRect);
    finally
      Brush.Bitmap.Free;
    end;
  end;

  {
  Image.Canvas.Font.Name   := 'Times New Roman';
  Image.Canvas.Font.size   := 20;
  Image.Canvas.Brush.Color := clGreen;

  Image.Canvas.Font.style := [fsItalic];

  BeginPath(Image.Canvas.handle);

  SetBkMode(Image.Canvas.Handle, TRANSPARENT );
  Image.Canvas.TextOut(10,0, Caption);
  Endpath(Image.Canvas.Handle);
  Image.Canvas.Pen.Color := clred;

  StrokePath(Image.Canvas.Handle);
  }

  //Timer.Enabled  := True;
  //Timer.Interval := 10;

end;

procedure TFormSplash.SetTitleTimerTimer(Sender: TObject);
begin
  if length(self.Caption)<100 then
     self.Caption := self.Caption + '.'
  else
     self.Caption := '正在载入信息，请等候.';

  Self.Update();

end;

end.