| 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 éž } |
| 20 |
protected |
| 21 |
procedure CreateParams(var Params: TCreateParams); override; |
| 22 |
public |
| 23 |
{ Public éž } |
| 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 |
+ IntToStr(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. |