6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 StdCtrls, ComCtrls, ExtCtrls;
10 TSplashWindow = class(TForm)
11 ProgressPanel: TPanel;
13 ProgressBar: TProgressBar;
15 procedure FormDeactivate(Sender: TObject);
16 procedure FormCreate(Sender: TObject);
20 procedure CreateParams(var Params: TCreateParams); override;
26 SplashWindow: TSplashWindow;
35 procedure TSplashWindow.CreateParams(var Params: TCreateParams);
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;
43 procedure TSplashWindow.FormDeactivate(Sender: TObject);
49 procedure TSplashWindow.FormCreate(Sender: TObject);
53 VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
54 + FloatToStr(BETA_VERSION)
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;
68 SplashWindow := TSplashWindow.Create(nil);