Splash.pas

   1 unit Splash;
   2
   3 interface
   4
   5 uses
   6         Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   7         StdCtrls, ComCtrls, ExtCtrls;
   8
   9 type
  10         TSplashWindow = class(TForm)
  11     ProgressPanel: TPanel;
  12     VersionLabel: TLabel;
  13     ProgressBar: TProgressBar;
  14     SplashImage: TImage;
  15                 procedure FormDeactivate(Sender: TObject);
  16     procedure FormCreate(Sender: TObject);
  17         private
  18                 { Private \90é\8c¾ }
  19         protected
  20                 procedure CreateParams(var Params: TCreateParams); override;
  21         public
  22                 { Public \90é\8c¾ }
  23         end;
  24
  25 var
  26         SplashWindow: TSplashWindow;
  27
  28 implementation
  29
  30 uses
  31     GikoSystem;
  32
  33 {$R *.DFM}
  34
  35 procedure TSplashWindow.CreateParams(var Params: TCreateParams);
  36 begin
  37         inherited;
  38 //      Params.Style := Params.Style or WS_THICKFRAME;
  39 //      Params.ExStyle := Params.ExStyle or WS_EX_DLGMODALFRAME;
  40         Params.Style := Params.Style or WS_DLGFRAME;
  41 end;
  42
  43 procedure TSplashWindow.FormDeactivate(Sender: TObject);
  44 begin
  45         Release;
  46         SplashWindow := nil;
  47 end;
  48
  49 procedure TSplashWindow.FormCreate(Sender: TObject);
  50 var
  51         FileName: string;
  52 begin
  53         VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
  54                                                                                                 + FloatToStr(BETA_VERSION)
  55                                                                                                 + BETA_VERSION_BUILD;
  56         try
  57                 FileName := GikoSys.GetAppDir + 'gikoNavi.bmp';
  58                 if FileExists(FileName) then begin
  59                         SplashImage.Picture.LoadFromFile(FileName);
  60                         ClientHeight := SplashImage.Picture.Height + ProgressPanel.Height;
  61                         ClientWidth := SplashImage.Picture.Width;
  62                 end;
  63         except
  64         end;
  65 end;
  66
  67 initialization
  68         SplashWindow := TSplashWindow.Create(nil);
  69         SplashWindow.Show;
  70         SplashWindow.Update;
  71 end.