6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 StdCtrls, ComCtrls, ExtCtrls,
11 TSplashWindow = class(TForm)
12 ProgressPanel: TPanel;
14 ProgressBar: TProgressBar;
16 procedure FormDeactivate(Sender: TObject);
17 procedure FormCreate(Sender: TObject);
21 procedure CreateParams(var Params: TCreateParams); override;
27 SplashWindow: TSplashWindow;
33 procedure TSplashWindow.CreateParams(var Params: TCreateParams);
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;
41 procedure TSplashWindow.FormDeactivate(Sender: TObject);
47 procedure TSplashWindow.FormCreate(Sender: TObject);
51 VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
52 + FloatToStr(BETA_VERSION)
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;
66 SplashWindow := TSplashWindow.Create(nil);