Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Splash.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4 |
|
|
| 5 |
uses |
uses |
| 6 |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
| 7 |
StdCtrls, ComCtrls, ExtCtrls, |
StdCtrls, ComCtrls, ExtCtrls; |
|
GikoSystem; |
|
| 8 |
|
|
| 9 |
type |
type |
| 10 |
TSplashWindow = class(TForm) |
TSplashWindow = class(TForm) |
| 27 |
|
|
| 28 |
implementation |
implementation |
| 29 |
|
|
| 30 |
|
uses |
| 31 |
|
GikoSystem; |
| 32 |
|
|
| 33 |
{$R *.DFM} |
{$R *.DFM} |
| 34 |
|
|
| 35 |
procedure TSplashWindow.CreateParams(var Params: TCreateParams); |
procedure TSplashWindow.CreateParams(var Params: TCreateParams); |
| 50 |
var |
var |
| 51 |
FileName: string; |
FileName: string; |
| 52 |
begin |
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; |
|
|
} |
|
| 53 |
VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J |
VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J |
| 54 |
+ IntToStr(BETA_VERSION) |
+ FloatToStr(BETA_VERSION) |
| 55 |
+ BETA_VERSION_BUILD; |
+ BETA_VERSION_BUILD; |
| 56 |
try |
try |
| 57 |
FileName := GikoSys.GetAppDir + 'gikoNavi.bmp'; |
FileName := GikoSys.GetAppDir + 'gikoNavi.bmp'; |
|
|
Legend:
| Removed from v.1.1.1.1 |
|
| changed lines |
| |
Added in v.1.4 |
|
|
| |