paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +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,
{$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

7
ide/fpconst.pas
View File

@ -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

10
ide/fpviews.pas
View File

@ -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