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

ADD: Show commit time

Browse source
This commit is contained in:
Alexander Koblov 2021-03-12 20:11:12 +03:00
commit 372ad016e2
9 changed files with 234 additions and 164 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/doublecmd.lpr
View file

@ -158,6 +158,7 @@ begin
DCDebug('Double Commander ' + dcVersion);
DCDebug('Revision: ' + dcRevision);
DCDebug('Commit: ' + GetCommitTime);
DCDebug('Build: ' + dcBuildDate);
DCDebug('Lazarus: ' + GetLazarusVersion);
DCDebug('Free Pascal: ' + fpcVersion);

177
src/fAbout.lfm
View file

@ -1,17 +1,18 @@
object frmAbout: TfrmAbout
Left = 26
Height = 400
Top = 125
Width = 667
Left = 572
Height = 500
Top = 209
Width = 834
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'About'
ClientHeight = 400
ClientWidth = 667
ClientHeight = 500
ClientWidth = 834
DesignTimePPI = 120
KeyPreview = True
OnKeyDown = FormKeyDown
OnShow = frmAboutShow
Position = poScreenCenter
LCLVersion = '1.0.1.3'
LCLVersion = '2.0.12.0'
object pnlText: TPanel
AnchorSideLeft.Control = pnlInfo
AnchorSideLeft.Side = asrBottom
@ -20,31 +21,33 @@ object frmAbout: TfrmAbout
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 168
Height = 384
Top = 8
Width = 491
Left = 167
Height = 480
Top = 10
Width = 657
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 8
BorderSpacing.Around = 10
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 384
ClientWidth = 491
ClientHeight = 480
ClientWidth = 657
FullRepaint = False
ParentFont = False
TabOrder = 0
object lblHomePage: TLabel
AnchorSideLeft.Control = memInfo
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = pnlText
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 22
Top = 345
Width = 81
Left = 12
Height = 20
Top = 439
Width = 80
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 15
BorderSpacing.Bottom = 19
Caption = 'Home Page:'
ParentColor = False
ParentFont = False
end
object lblHomePageAddress: TLabel
AnchorSideLeft.Control = lblHomePage
@ -52,14 +55,14 @@ object frmAbout: TfrmAbout
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = pnlText
AnchorSideBottom.Side = asrBottom
Left = 97
Height = 22
Top = 345
Width = 231
Left = 100
Height = 20
Top = 439
Width = 222
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 8
BorderSpacing.Bottom = 15
BorderSpacing.Left = 8
BorderSpacing.Top = 10
BorderSpacing.Bottom = 19
Caption = 'https://doublecmd.sourceforge.io'
Font.Color = clBlue
ParentColor = False
@ -74,47 +77,50 @@ object frmAbout: TfrmAbout
AnchorSideRight.Control = pnlText
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lblHomePage
Left = 10
Height = 327
Top = 10
Width = 471
Left = 12
Height = 417
Top = 12
Width = 633
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object pnlInfo: TPanel
Left = 9
Height = 290
Top = 9
Width = 151
Left = 11
Height = 305
Top = 11
Width = 146
AutoSize = True
BorderSpacing.Around = 8
BorderSpacing.Around = 10
BevelOuter = bvNone
ChildSizing.VerticalSpacing = 4
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 290
ClientWidth = 151
ClientHeight = 305
ClientWidth = 146
ParentFont = False
TabOrder = 1
object pnlLogo: TPanel
Left = 39
Left = 37
Height = 72
Top = 8
Top = 10
Width = 72
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
BorderSpacing.Top = 10
BorderSpacing.Bottom = 10
BorderSpacing.CellAlignHorizontal = ccaCenter
BevelInner = bvRaised
BevelOuter = bvLowered
BevelWidth = 2
ClientHeight = 72
ClientWidth = 72
ParentFont = False
TabOrder = 0
object imgLogo: TImage
Left = 4
@ -275,9 +281,9 @@ object frmAbout: TfrmAbout
end
object lblTitle: TLabel
Left = 0
Height = 22
Top = 88
Width = 151
Height = 20
Top = 92
Width = 140
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Double Commander'
Font.Color = clRed
@ -287,83 +293,101 @@ object frmAbout: TfrmAbout
end
object lblVersion: TLabel
Left = 0
Height = 22
Top = 114
Width = 51
Height = 20
Top = 116
Width = 48
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Version'
ParentColor = False
ParentFont = False
end
object lblRevision: TLabel
Left = 0
Height = 22
Height = 20
Top = 140
Width = 58
Width = 55
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Revision'
ParentColor = False
ParentFont = False
end
object lblCommit: TLabel
Left = 0
Height = 20
Top = 164
Width = 53
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Commit'
ParentColor = False
end
object lblBuild: TLabel
Left = 0
Height = 22
Top = 166
Width = 37
Height = 20
Top = 188
Width = 34
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Build'
ParentColor = False
ParentFont = False
end
object lblLazarusVer: TLabel
Left = 0
Height = 22
Top = 192
Width = 53
Height = 20
Top = 212
Width = 49
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Lazarus'
ParentColor = False
ParentFont = False
end
object lblFreePascalVer: TLabel
Left = 0
Height = 22
Top = 218
Width = 77
Height = 20
Top = 236
Width = 72
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Free Pascal'
ParentColor = False
ParentFont = False
end
object lblPlatform: TLabel
Left = 0
Height = 1
Top = 244
Top = 260
Width = 1
BorderSpacing.CellAlignHorizontal = ccaLeftTop
ParentColor = False
ParentFont = False
end
object lblOperatingSystem: TLabel
Left = 0
Height = 1
Top = 249
Top = 265
Width = 1
BorderSpacing.CellAlignHorizontal = ccaLeftTop
ParentColor = False
ParentFont = False
end
object lblWidgetsetVer: TLabel
Left = 0
Height = 1
Top = 254
Top = 270
Width = 1
BorderSpacing.CellAlignHorizontal = ccaLeftTop
ParentColor = False
ParentFont = False
end
object btnCopyToClipboard: TButton
Left = 4
Height = 31
Top = 259
Width = 143
Left = 0
Height = 30
Top = 275
Width = 146
AutoSize = True
BorderSpacing.CellAlignHorizontal = ccaCenter
Caption = 'Copy to clipboard'
Constraints.MinWidth = 100
Constraints.MinWidth = 125
OnClick = btnCopyToClipboardClick
ParentFont = False
TabOrder = 1
end
end
@ -372,19 +396,20 @@ object frmAbout: TfrmAbout
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 34
Height = 35
Top = 357
Width = 100
Left = 22
Height = 34
Top = 456
Width = 125
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Bottom = 8
BorderSpacing.Bottom = 10
BorderSpacing.InnerBorder = 2
Caption = '&Close'
Constraints.MinWidth = 100
Constraints.MinWidth = 125
Default = True
Kind = bkClose
ModalResult = 11
ParentFont = False
TabOrder = 2
end
end

27
src/fAbout.lrj
View file

@ -1,13 +1,14 @@
{"version":1,"strings":[
{"hash":4691652,"name":"tfrmabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"},
{"hash":122850234,"name":"tfrmabout.lblhomepage.caption","sourcebytes":[72,111,109,101,32,80,97,103,101,58],"value":"Home Page:"},
{"hash":92749407,"name":"tfrmabout.lblhomepageaddress.caption","sourcebytes":[104,116,116,112,115,58,47,47,100,111,117,98,108,101,99,109,100,46,115,111,117,114,99,101,102,111,114,103,101,46,105,111],"value":"https://doublecmd.sourceforge.io"},
{"hash":185879090,"name":"tfrmabout.lbltitle.caption","sourcebytes":[68,111,117,98,108,101,32,67,111,109,109,97,110,100,101,114],"value":"Double Commander"},
{"hash":214540302,"name":"tfrmabout.lblversion.caption","sourcebytes":[86,101,114,115,105,111,110],"value":"Version"},
{"hash":214997982,"name":"tfrmabout.lblrevision.caption","sourcebytes":[82,101,118,105,115,105,111,110],"value":"Revision"},
{"hash":4833316,"name":"tfrmabout.lblbuild.caption","sourcebytes":[66,117,105,108,100],"value":"Build"},
{"hash":43026835,"name":"tfrmabout.lbllazarusver.caption","sourcebytes":[76,97,122,97,114,117,115],"value":"Lazarus"},
{"hash":86315532,"name":"tfrmabout.lblfreepascalver.caption","sourcebytes":[70,114,101,101,32,80,97,115,99,97,108],"value":"Free Pascal"},
{"hash":127162148,"name":"tfrmabout.btncopytoclipboard.caption","sourcebytes":[67,111,112,121,32,116,111,32,99,108,105,112,98,111,97,114,100],"value":"Copy to clipboard"},
{"hash":44709525,"name":"tfrmabout.btnclose.caption","sourcebytes":[38,67,108,111,115,101],"value":"&Close"}
]}
{"version":1,"strings":[
{"hash":4691652,"name":"tfrmabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"},
{"hash":122850234,"name":"tfrmabout.lblhomepage.caption","sourcebytes":[72,111,109,101,32,80,97,103,101,58],"value":"Home Page:"},
{"hash":92749407,"name":"tfrmabout.lblhomepageaddress.caption","sourcebytes":[104,116,116,112,115,58,47,47,100,111,117,98,108,101,99,109,100,46,115,111,117,114,99,101,102,111,114,103,101,46,105,111],"value":"https://doublecmd.sourceforge.io"},
{"hash":185879090,"name":"tfrmabout.lbltitle.caption","sourcebytes":[68,111,117,98,108,101,32,67,111,109,109,97,110,100,101,114],"value":"Double Commander"},
{"hash":214540302,"name":"tfrmabout.lblversion.caption","sourcebytes":[86,101,114,115,105,111,110],"value":"Version"},
{"hash":214997982,"name":"tfrmabout.lblrevision.caption","sourcebytes":[82,101,118,105,115,105,111,110],"value":"Revision"},
{"hash":78005252,"name":"tfrmabout.lblcommit.caption","sourcebytes":[67,111,109,109,105,116],"value":"Commit"},
{"hash":4833316,"name":"tfrmabout.lblbuild.caption","sourcebytes":[66,117,105,108,100],"value":"Build"},
{"hash":43026835,"name":"tfrmabout.lbllazarusver.caption","sourcebytes":[76,97,122,97,114,117,115],"value":"Lazarus"},
{"hash":86315532,"name":"tfrmabout.lblfreepascalver.caption","sourcebytes":[70,114,101,101,32,80,97,115,99,97,108],"value":"Free Pascal"},
{"hash":127162148,"name":"tfrmabout.btncopytoclipboard.caption","sourcebytes":[67,111,112,121,32,116,111,32,99,108,105,112,98,111,97,114,100],"value":"Copy to clipboard"},
{"hash":44709525,"name":"tfrmabout.btnclose.caption","sourcebytes":[38,67,108,111,115,101],"value":"&Close"}
]}

9
src/fAbout.pas
View file

@ -30,6 +30,7 @@ type
btnClose: TBitBtn;
btnCopyToClipboard: TButton;
imgLogo: TImage;
lblCommit: TLabel;
lblWidgetsetVer: TLabel;
lblPlatform: TLabel;
lblOperatingSystem: TLabel;
@ -154,12 +155,13 @@ begin
StrInfo := Format('Double Commander' + LineEnding +
'Version: %s' + LineEnding +
'Revision: %s' + LineEnding +
'Commit: %s' + LineEnding +
'Build date: %s' + LineEnding +
'Lazarus: %s' + LineEnding +
'FPC: %s' + LineEnding +
'Platform: %s' + LineEnding +
'OS version: %s' + LineEnding,
[dcVersion, dcRevision, dcBuildDate,
[dcVersion, dcRevision, GetCommitTime, dcBuildDate,
GetLazarusVersion, fpcVersion,
TargetCPU + '-' + TargetOS + '-' + TargetWS,
OSVersion]);
@ -179,14 +181,19 @@ procedure TfrmAbout.frmAboutShow(Sender: TObject);
begin
memInfo.Lines.Text := cAboutMsg;
memInfo.CaretPos := Classes.Point(0, 0);
lblVersion.Caption := lblVersion.Caption + #32 + dcVersion;
lblRevision.Caption := lblRevision.Caption + #32 + dcRevision;
lblCommit.Caption := lblCommit.Caption + #32 + GetCommitTime;
lblBuild.Caption := lblBuild.Caption + #32 + dcBuildDate;
lblLazarusVer.Caption := lblLazarusVer.Caption + #32 + GetLazarusVersion;
lblFreePascalVer.Caption := lblFreePascalVer.Caption + #32 + fpcVersion;
lblPlatform.Caption := TargetCPU + '-' + TargetOS + '-' + TargetWS;
lblOperatingSystem.Caption := OSVersion;
lblWidgetsetVer.Caption := WSVersion;
lblBuild.Visible := (dcCommit = 0);
lblCommit.Visible := (dcCommit > 0);
end;
end.

165
src/fstartingsplash.lfm
View file

@ -1,15 +1,16 @@
object frmStartingSplash: TfrmStartingSplash
Left = 120
Height = 314
Height = 413
Top = 207
Width = 256
Width = 258
Anchors = []
AutoSize = True
BorderIcons = []
BorderStyle = bsNone
Caption = 'Double Commander'
ClientHeight = 314
ClientWidth = 256
ClientHeight = 413
ClientWidth = 258
DesignTimePPI = 120
FormStyle = fsSplash
Icon.Data = {
267D000000000100040010100000010020006804000046000000202000000100
@ -1017,36 +1018,37 @@ object frmStartingSplash: TfrmStartingSplash
}
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.4.4.0'
LCLVersion = '2.0.12.0'
object pnlInfo: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 11
Height = 283
Top = 11
Width = 196
Left = 14
Height = 384
Top = 14
Width = 228
AutoSize = True
BorderSpacing.Around = 11
BorderSpacing.Around = 14
BevelInner = bvRaised
BevelOuter = bvLowered
BevelWidth = 2
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 283
ClientWidth = 196
ClientHeight = 384
ClientWidth = 228
Color = clForm
ParentColor = False
ParentFont = False
TabOrder = 0
object lblTitle: TLabel
AnchorSideLeft.Control = pnlInfo
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = imgLogo
AnchorSideTop.Side = asrBottom
Left = 43
Height = 15
Top = 96
Width = 111
BorderSpacing.Top = 6
Left = 44
Height = 20
Top = 120
Width = 140
BorderSpacing.Top = 8
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Double Commander'
Font.Color = clRed
@ -1061,128 +1063,149 @@ object frmStartingSplash: TfrmStartingSplash
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlInfo
AnchorSideBottom.Side = asrBottom
Left = 24
Height = 168
Top = 111
Width = 104
Left = 29
Height = 240
Top = 140
Width = 130
AutoSize = True
BorderSpacing.Left = 20
BorderSpacing.Right = 20
BorderSpacing.Left = 25
BorderSpacing.Right = 25
BevelOuter = bvNone
ChildSizing.TopBottomSpacing = 10
ClientHeight = 168
ClientWidth = 104
ClientHeight = 240
ClientWidth = 130
ParentFont = False
TabOrder = 0
object lblVersion: TLabel
AnchorSideLeft.Control = pnlVersionInfos
AnchorSideTop.Control = pnlVersionInfos
Left = 0
Height = 15
Height = 20
Top = 10
Width = 38
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Width = 48
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Version'
ParentColor = False
ParentFont = False
end
object lblRevision: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblVersion
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 29
Width = 44
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Height = 20
Top = 35
Width = 55
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Revision'
ParentColor = False
ParentFont = False
end
object lblCommit: TLabel
AnchorSideTop.Control = lblRevision
AnchorSideTop.Side = asrBottom
Left = 0
Height = 20
Top = 60
Width = 53
BorderSpacing.Top = 5
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Commit'
ParentColor = False
end
object lblBuild: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblRevision
AnchorSideTop.Control = lblCommit
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 48
Width = 27
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Height = 20
Top = 85
Width = 34
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Build'
ParentColor = False
ParentFont = False
end
object lblLazarusVer: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblBuild
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 67
Width = 39
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Height = 20
Top = 110
Width = 49
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Lazarus'
ParentColor = False
ParentFont = False
end
object lblFreePascalVer: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblLazarusVer
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 86
Width = 58
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Height = 20
Top = 135
Width = 72
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Free Pascal'
ParentColor = False
ParentFont = False
end
object lblPlatform: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblFreePascalVer
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 105
Width = 46
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Height = 20
Top = 160
Width = 57
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Platform'
ParentColor = False
ParentFont = False
end
object lblOperatingSystem: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblPlatform
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 124
Width = 94
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Height = 20
Top = 185
Width = 118
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'Operating System'
ParentColor = False
ParentFont = False
end
object lblWidgetsetVer: TLabel
AnchorSideLeft.Control = lblVersion
AnchorSideTop.Control = lblOperatingSystem
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 143
Width = 69
BorderSpacing.Top = 4
BorderSpacing.Right = 10
Height = 20
Top = 210
Width = 89
BorderSpacing.Top = 5
BorderSpacing.Right = 12
BorderSpacing.CellAlignHorizontal = ccaLeftTop
Caption = 'WidgetsetVer'
ParentColor = False
ParentFont = False
end
end
object imgLogo: TImage
@ -1190,14 +1213,14 @@ object frmStartingSplash: TfrmStartingSplash
AnchorSideTop.Control = pnlInfo
AnchorSideRight.Control = pnlInfo
AnchorSideRight.Side = asrBottom
Left = 66
Height = 64
Top = 26
Left = 82
Height = 80
Top = 32
Width = 64
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 62
BorderSpacing.Top = 22
BorderSpacing.Right = 62
BorderSpacing.Left = 78
BorderSpacing.Top = 28
BorderSpacing.Right = 78
Center = True
Picture.Data = {
1754506F727461626C654E6574776F726B47726170686963F511000089504E47

3
src/fstartingsplash.lrj
View file

@ -8,5 +8,6 @@
{"hash":86315532,"name":"tfrmstartingsplash.lblfreepascalver.caption","sourcebytes":[70,114,101,101,32,80,97,115,99,97,108],"value":"Free Pascal"},
{"hash":42652669,"name":"tfrmstartingsplash.lblplatform.caption","sourcebytes":[80,108,97,116,102,111,114,109],"value":"Platform"},
{"hash":222234861,"name":"tfrmstartingsplash.lbloperatingsystem.caption","sourcebytes":[79,112,101,114,97,116,105,110,103,32,83,121,115,116,101,109],"value":"Operating System"},
{"hash":239284482,"name":"tfrmstartingsplash.lblwidgetsetver.caption","sourcebytes":[87,105,100,103,101,116,115,101,116,86,101,114],"value":"WidgetsetVer"}
{"hash":239284482,"name":"tfrmstartingsplash.lblwidgetsetver.caption","sourcebytes":[87,105,100,103,101,116,115,101,116,86,101,114],"value":"WidgetsetVer"},
{"hash":78005252,"name":"tfrmstartingsplash.lblcommit.caption","sourcebytes":[67,111,109,109,105,116],"value":"Commit"}
]}

5
src/fstartingsplash.pas
View file

@ -15,6 +15,7 @@ type
TfrmStartingSplash = class(TForm)
imgLogo: TImage;
lblBuild: TLabel;
lblCommit: TLabel;
lblFreePascalVer: TLabel;
lblLazarusVer: TLabel;
lblOperatingSystem: TLabel;
@ -48,12 +49,16 @@ procedure TfrmStartingSplash.FormCreate(Sender: TObject);
begin
lblVersion.Caption := lblVersion.Caption + #32 + dcVersion;
lblRevision.Caption := lblRevision.Caption + #32 + dcRevision;
lblCommit.Caption := lblCommit.Caption + #32 + GetCommitTime;
lblBuild.Caption := lblBuild.Caption + #32 + dcBuildDate;
lblLazarusVer.Caption := lblLazarusVer.Caption + #32 + GetLazarusVersion;
lblFreePascalVer.Caption := lblFreePascalVer.Caption + #32 + fpcVersion;
lblPlatform.Caption := TargetCPU + '-' + TargetOS + '-' + TargetWS;
lblOperatingSystem.Caption := OSVersion;
lblWidgetsetVer.Caption := WSVersion;
lblBuild.Visible := (dcCommit = 0);
lblCommit.Visible := (dcCommit > 0);
end;
end.

8
src/platform/udcversion.pas
View file

@ -50,11 +50,12 @@ var
procedure InitializeVersionInfo;
function GetLazarusVersion: String;
function GetCommitTime: String;
implementation
uses
InterfaceBase
InterfaceBase, DateUtils
{$IF DEFINED(UNIX)}
, BaseUnix, DCOSUtils, uDCUtils, DCClassesUtf8
{$IFDEF DARWIN}
@ -466,6 +467,11 @@ begin
end;
end;
function GetCommitTime: String;
begin
Result:= FormatDateTime('yymmdd hhnnss', UnixToDateTime(dcCommit));
end;
procedure Initialize;
begin
LCLPlatformDirNames[lpQT]:= 'qt4';

3
units/dcrevision.inc
View file

@ -1,2 +1,3 @@
// Created by Svn2RevisionInc
// Created by Git2RevisionInc
const dcRevision = 'Unknown';
const dcCommit = 0;