mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

DEL: Don't read Lazarus revision

Browse source
This commit is contained in:
Alexander Koblov 2021-08-21 11:17:35 +03:00
commit 9e286862e8
5 changed files with 4 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/doublecmd.lpr
View file

@ -160,7 +160,7 @@ begin
DCDebug('Revision: ' + dcRevision);
DCDebug('Commit: ' + dcCommit);
DCDebug('Build: ' + dcBuildDate);
DCDebug('Lazarus: ' + GetLazarusVersion);
DCDebug('Lazarus: ' + lazVersion);
DCDebug('Free Pascal: ' + fpcVersion);
DCDebug('Platform: ' + TargetCPU + '-' + TargetOS + '-' + TargetWS);
DCDebug('System: ' + OSVersion);

4
src/fAbout.pas
View file

@ -162,7 +162,7 @@ begin
'Platform: %s' + LineEnding +
'OS version: %s' + LineEnding,
[dcVersion, dcRevision, dcCommit, dcBuildDate,
GetLazarusVersion, fpcVersion,
lazVersion, fpcVersion,
TargetCPU + '-' + TargetOS + '-' + TargetWS,
OSVersion]);
if WSVersion <> EmptyStr then
@ -186,7 +186,7 @@ begin
lblRevision.Caption := lblRevision.Caption + #32 + dcRevision;
lblCommit.Caption := lblCommit.Caption + #32 + dcCommit;
lblBuild.Caption := lblBuild.Caption + #32 + dcBuildDate;
lblLazarusVer.Caption := lblLazarusVer.Caption + #32 + GetLazarusVersion;
lblLazarusVer.Caption := lblLazarusVer.Caption + #32 + lazVersion;
lblFreePascalVer.Caption := lblFreePascalVer.Caption + #32 + fpcVersion;
lblPlatform.Caption := TargetCPU + '-' + TargetOS + '-' + TargetWS;
lblOperatingSystem.Caption := OSVersion;

2
src/fstartingsplash.pas
View file

@ -51,7 +51,7 @@ begin
lblRevision.Caption := lblRevision.Caption + #32 + dcRevision;
lblCommit.Caption := lblCommit.Caption + #32 + dcCommit;
lblBuild.Caption := lblBuild.Caption + #32 + dcBuildDate;
lblLazarusVer.Caption := lblLazarusVer.Caption + #32 + GetLazarusVersion;
lblLazarusVer.Caption := lblLazarusVer.Caption + #32 + lazVersion;
lblFreePascalVer.Caption := lblFreePascalVer.Caption + #32 + fpcVersion;
lblPlatform.Caption := TargetCPU + '-' + TargetOS + '-' + TargetWS;
lblOperatingSystem.Caption := OSVersion;

15
src/platform/udcversion.pas
View file

@ -31,13 +31,11 @@ uses
Classes, SysUtils, LCLVersion;
{$I dcrevision.inc} // Double Commander revision number
{$I revision.inc} // Lazarus revision number
const
dcVersion = '1.0.0 alpha';
dcBuildDate = {$I %DATE%};
lazVersion = lcl_version; // Lazarus version (major.minor.micro)
lazRevision = RevisionStr; // Lazarus SVN revision
fpcVersion = {$I %FPCVERSION%}; // FPC version (major.minor.micro)
TargetCPU = {$I %FPCTARGETCPU%}; // Target CPU of FPC
TargetOS = {$I %FPCTARGETOS%}; // Target Operating System of FPC
@ -49,7 +47,6 @@ var
: String;
procedure InitializeVersionInfo;
function GetLazarusVersion: String;
implementation
@ -454,18 +451,6 @@ begin
{$ENDIF}
end;
function GetLazarusVersion: String;
var
I: Integer = 1;
begin
Result:= lazVersion;
while (I <= Length(lazRevision)) and (lazRevision[I] in ['0'..'9']) do
Inc(I);
if (I > 1) then begin
Result += '-' + Copy(lazRevision, 1, I - 1);
end;
end;
procedure Initialize;
begin
LCLPlatformDirNames[lpQT]:= 'qt4';

2
units/revision.inc
View file

@ -1,2 +0,0 @@
// Created by Svn2RevisionInc
const RevisionStr = '';