Splash.pas

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