1.60.0.790

[gikonavigoeson/gikonavi.git] / Splash.pas

diff --git a/Splash.pas b/Splash.pas
index 7eb6f34..e852c18 100644 (file)
--- a/Splash.pas
+++ b/Splash.pas
@@ -4,8 +4,7 @@ interface
 
 uses
        Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-       StdCtrls, ComCtrls, ExtCtrls,
-       GikoSystem;
+       StdCtrls, ComCtrls, ExtCtrls;
 
 type
        TSplashWindow = class(TForm)
@@ -28,6 +27,9 @@ var
 
 implementation
 
+uses
+    GikoSystem;
+
 {$R *.DFM}
 
 procedure TSplashWindow.CreateParams(var Params: TCreateParams);
@@ -48,13 +50,6 @@ procedure TSplashWindow.FormCreate(Sender: TObject);
 var
        FileName: string;
 begin
-//     VersionLabel.Caption := 'Version ' + VERSION + ' ' + VERSION_TYPE;
-{      VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
-                                                                                               + Format('%.2d', [MINOR_VERSION]) + ' '
-                                                                                               + BETA_VERSION_NAME_J
-                                                                                               + IntToStr(BETA_VERSION)
-                                                                                               + BETA_VERSION_BUILD;
-}
        VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
                                                                                                + FloatToStr(BETA_VERSION)
                                                                                                + BETA_VERSION_BUILD;