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 ' + VERSION + ' ' + VERSION_TYPE;
52 { VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
53 + Format('%.2d', [MINOR_VERSION]) + ' '
55 + IntToStr(BETA_VERSION)
58 VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
59 + FloatToStr(BETA_VERSION)
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;
73 SplashWindow := TSplashWindow.Create(nil);