mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Capability to use custom date/time format in the date/time columns

Browse source
This commit is contained in:
Alexander Koblov 2021-06-15 23:51:16 +03:00
commit 6a34ac2ec7
1 changed files with 24 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/ufilefunctions.pas
View file

@ -273,23 +273,39 @@ begin
fsfModificationTime:
if fpModificationTime in AFile.SupportedProperties then
Result := AFile.Properties[fpModificationTime].Format(
DefaultFilePropertyFormatter);
begin
if Length(AParam) > 0 then
Result := SysUtils.FormatDateTime(AParam, AFile.ModificationTime)
else
Result := AFile.Properties[fpModificationTime].Format(DefaultFilePropertyFormatter);
end;
fsfCreationTime:
if fpCreationTime in AFile.SupportedProperties then
Result := AFile.Properties[fpCreationTime].Format(
DefaultFilePropertyFormatter);
begin
if Length(AParam) > 0 then
Result := SysUtils.FormatDateTime(AParam, AFile.CreationTime)
else
Result := AFile.Properties[fpCreationTime].Format(DefaultFilePropertyFormatter);
end;
fsfLastAccessTime:
if fpLastAccessTime in AFile.SupportedProperties then
Result := AFile.Properties[fpLastAccessTime].Format(
DefaultFilePropertyFormatter);
begin
if Length(AParam) > 0 then
Result := SysUtils.FormatDateTime(AParam, AFile.LastAccessTime)
else
Result := AFile.Properties[fpLastAccessTime].Format(DefaultFilePropertyFormatter);
end;
fsfChangeTime:
if fpChangeTime in AFile.SupportedProperties then
Result := AFile.Properties[fpChangeTime].Format(
DefaultFilePropertyFormatter);
begin
if Length(AParam) > 0 then
Result := SysUtils.FormatDateTime(AParam, AFile.ChangeTime)
else
Result := AFile.Properties[fpChangeTime].Format(DefaultFilePropertyFormatter);
end;
fsfLinkTo:
if fpLink in AFile.SupportedProperties then