version info at startup

ide/fp.pas

@@ -55,7 +55,10 @@ uses
   fpcatch,
 {$endif HasSignal}
   Dos,Objects,
-  BrowCol,
+  BrowCol,Version,
+{$ifndef NODEBUG}
+  gdbint,
+{$endif NODEBUG}
 {$ifdef FVISION}
   FVConsts,
 {$else}
@@ -303,15 +306,16 @@ BEGIN
   HeapLimit:=4096;
 {$endif}
   HistorySize:=16384;
-  writeln('þ Free Pascal IDE  Version '+VersionStr);
-{$ifdef win32}
-  // Win32ShowMouse;
-{$endif win32}
+
+  { Startup info }
+  writeln('þ Free Pascal IDE Version '+VersionStr+' ['+{$i %date%}+']');
+  writeln('þ Compiler Version '+Version_String);
 {$ifdef WITH_GDB}
-{$ifdef win32}
-  writeln('Using "',GetCygwinFullName,'" version ',GetCygwinVersionString);
-  CheckCygwinVersion;
-{$endif win32}
+  writeln('þ GBD Version '+GDBVersion);
+ {$ifdef win32}
+   writeln('þ Cygwin "',GetCygwinFullName,'" version ',GetCygwinVersionString);
+   CheckCygwinVersion;
+ {$endif win32}
 {$endif WITH_GDB}
 
   ProcessParams(true);
@@ -501,7 +505,10 @@ BEGIN
 END.
 {
   $Log$
-  Revision 1.23  2003-09-29 14:36:59  peter
+  Revision 1.24  2004-11-05 00:21:56  peter
+  version info at startup
+
+  Revision 1.23  2003/09/29 14:36:59  peter
     * win32 fixed
 
   Revision 1.22  2003/06/04 15:06:14  peter

ide/fpconst.pas

@@ -26,7 +26,7 @@ uses Views,App,
      WViews,WEditor,WHTMLHlp;
 
 const
-     VersionStr           = '0.9.2';
+     VersionStr           = '0.9.3';
 
      MaxRecentFileCount   = 5;
      MaxToolCount         = 16;
@@ -474,7 +474,10 @@ implementation
 END.
 {
   $Log$
-  Revision 1.13  2003-01-22 00:27:58  pierre
+  Revision 1.14  2004-11-05 00:21:56  peter
+  version info at startup
+
+  Revision 1.13  2003/01/22 00:27:58  pierre
    * implement reloadfile if changed
 
   Revision 1.12  2002/11/30 01:53:02  pierre

ide/fpviews.pas

@@ -4170,8 +4170,7 @@ begin
   R2.Copy(R); R2.B.Y:=R2.A.Y+1;
   Insert(New(PStaticText, Init(R2, ^C'FreePascal IDE for '+OSStr)));
   R2.Move(0,1);
-  Insert(New(PStaticText, Init(R2, ^C'Version '+VersionStr
-    {$ifdef FPC}+' '+{$i %date%}{$endif}
+  Insert(New(PStaticText, Init(R2, ^C'Version '+VersionStr+' '+{$i %date%}
     {$ifdef FVISION}+' FV'{$endif}
     )));
   R2.Move(0,1);
@@ -4190,7 +4189,7 @@ begin
   else
 {$endif NODEBUG}
     R2.Move(0,2);
-  Insert(New(PStaticText, Init(R2, ^C'Copyright (C) 1998-2002 by')));
+  Insert(New(PStaticText, Init(R2, ^C'Copyright (C) 1998-2004 by')));
   R2.Move(0,2);
   Insert(New(PStaticText, Init(R2, ^C'B‚rczi G bor')));
   R2.Move(0,1);
@@ -4582,7 +4581,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.44  2004-05-03 21:12:54  peter
+  Revision 1.45  2004-11-05 00:21:56  peter
+  version info at startup
+
+  Revision 1.44  2004/05/03 21:12:54  peter
     * 64bit fixes
 
   Revision 1.43  2004/03/20 22:02:41  florian