Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Splash.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1.1.1 by hi_, Sat Aug 9 13:51:12 2003 UTC revision 1.4 by h677, Sat Oct 6 05:27:27 2007 UTC
# Line 4  interface Line 4  interface
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)
# Line 28  var Line 27  var
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);
# Line 48  procedure TSplashWindow.FormCreate(Sende Line 50  procedure TSplashWindow.FormCreate(Sende
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26