From ac4df5f8aa3d52e40222b7de2c5e5c963b1d5cec Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 7 Jan 2000 14:02:52 +0000
Subject: [PATCH]   + date string added

---
 ide/text/fpviews.pas | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/ide/text/fpviews.pas b/ide/text/fpviews.pas
index ae7d4a92e9..49e8c6978e 100644
--- a/ide/text/fpviews.pas
+++ b/ide/text/fpviews.pas
@@ -2774,7 +2774,9 @@ 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)));
+  Insert(New(PStaticText, Init(R2, ^C'Version '+VersionStr
+    {$ifdef FPC}+' '+{$i %date%}{$endif}
+    )));
   R2.Move(0,1);
   Insert(New(PStaticText, Init(R2, ^C'(Compiler Version '+Version_String+')')));
 {$ifndef NODEBUG}
@@ -2785,10 +2787,8 @@ begin
       R2.Move(0,1);
     end
   else
-    R2.Move(0,2);
-{$else NODEBUG}
-  R2.Move(0,2);
 {$endif NODEBUG}
+    R2.Move(0,2);
   Insert(New(PStaticText, Init(R2, ^C'Copyright (C) 1998-2000 by')));
   R2.Move(0,2);
   Insert(New(PStaticText, Init(R2, ^C'B‚rczi G bor')));
@@ -3055,7 +3055,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.52  2000-01-03 11:38:34  michael
+  Revision 1.53  2000-01-07 14:02:52  pierre
+    + date string added
+
+  Revision 1.52  2000/01/03 11:38:34  michael
   Changes from Gabor
 
   Revision 1.51  1999/12/20 14:23:17  pierre
@@ -3329,4 +3332,4 @@ END.
     + options are now written/read
     + find and replace routines
 
-}
+}
\ No newline at end of file