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 ' + VERSION + ' ' + VERSION_TYPE;
  52 {       VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
  53                                                                                                 + Format('%.2d', [MINOR_VERSION]) + ' '
  54                                                                                                 + BETA_VERSION_NAME_J
  55                                                                                                 + IntToStr(BETA_VERSION)
  56                                                                                                 + BETA_VERSION_BUILD;
  57 }
  58         VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
  59                                                                                                 + FloatToStr(BETA_VERSION)
  60                                                                                                 + BETA_VERSION_BUILD;
  61         try
  62                 FileName := GikoSys.GetAppDir + 'gikoNavi.bmp';
  63                 if FileExists(FileName) then begin
  64                         SplashImage.Picture.LoadFromFile(FileName);
  65                         ClientHeight := SplashImage.Picture.Height + ProgressPanel.Height;
  66                         ClientWidth := SplashImage.Picture.Width;
  67                 end;
  68         except
  69         end;
  70 end;
  71
  72 initialization
  73         SplashWindow := TSplashWindow.Create(nil);
  74         SplashWindow.Show;
  75         SplashWindow.Update;
  76 end.