paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 13:30:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

version info at startup

Browse Source
This commit is contained in:
peter 2004-11-05 00:21:56 +00:00
parent 14f74178c0
commit 0909db20ec
3 changed files with 28 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/fp.pas
View File

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

7
ide/fpconst.pas
View File

@ -26,7 +26,7 @@ uses Views,App,
WViews,WEditor,WHTMLHlp; WViews,WEditor,WHTMLHlp;
const const
VersionStr = '0.9.2'; VersionStr = '0.9.3';
MaxRecentFileCount = 5; MaxRecentFileCount = 5;
MaxToolCount = 16; MaxToolCount = 16;
@ -474,7 +474,10 @@ implementation
END. END.
{ {
$Log$ $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 * implement reloadfile if changed
Revision 1.12 2002/11/30 01:53:02 pierre Revision 1.12 2002/11/30 01:53:02 pierre

10
ide/fpviews.pas
View File

@ -4170,8 +4170,7 @@ begin
R2.Copy(R); R2.B.Y:=R2.A.Y+1; R2.Copy(R); R2.B.Y:=R2.A.Y+1;
Insert(New(PStaticText, Init(R2, ^C'FreePascal IDE for '+OSStr))); Insert(New(PStaticText, Init(R2, ^C'FreePascal IDE for '+OSStr)));
R2.Move(0,1); R2.Move(0,1);
Insert(New(PStaticText, Init(R2, ^C'Version '+VersionStr Insert(New(PStaticText, Init(R2, ^C'Version '+VersionStr+' '+{$i %date%}
{$ifdef FPC}+' '+{$i %date%}{$endif}
{$ifdef FVISION}+' FV'{$endif} {$ifdef FVISION}+' FV'{$endif}
))); )));
R2.Move(0,1); R2.Move(0,1);
@ -4190,7 +4189,7 @@ begin
else else
{$endif NODEBUG} {$endif NODEBUG}
R2.Move(0,2); 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); R2.Move(0,2);
Insert(New(PStaticText, Init(R2, ^C'B‚rczi G bor'))); Insert(New(PStaticText, Init(R2, ^C'B‚rczi G bor')));
R2.Move(0,1); R2.Move(0,1);
@ -4582,7 +4581,10 @@ end;
END. END.
{ {
$Log$ $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 * 64bit fixes
Revision 1.43 2004/03/20 22:02:41 florian Revision 1.43 2004/03/20 22:02:41 florian