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.2 by yoffy, Sat Aug 9 14:22:51 2003 UTC revision 1.2.8.1 by h677, Sat Jun 11 04:47:27 2005 UTC
# Line 48  procedure TSplashWindow.FormCreate(Sende Line 48  procedure TSplashWindow.FormCreate(Sende
48  var  var
49          FileName: string;          FileName: string;
50  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;  
 }  
51          VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J          VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
52                                                                                                  + FloatToStr(BETA_VERSION)                                                                                                  + FloatToStr(BETA_VERSION)
53                                                                                                  + BETA_VERSION_BUILD;                                                                                                  + BETA_VERSION_BUILD;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.8.1

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