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: FsContentGetDefaultView - 'size' field units support

Browse source
This commit is contained in:
Alexander Koblov 2021-12-01 19:12:06 +03:00
commit 2d0ae94da0
1 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/uwfxmodule.pas
View file

@ -254,8 +254,8 @@ end;
function ConvertFunction(const S: String): String;
var
Plugin, Field: String;
AValues: TStringArray;
Plugin, Field, Arg: String;
begin
Result:= EmptyStr;
if Length(S) < 3 then Exit;
@ -272,9 +272,7 @@ begin
begin
Result:= 'DC()';
Field:= LowerCase(AValues[1]);
if (Field = 'size') then
AValues[1]:= 'GETFILESIZE'
else if (Field = 'writedate') then
if (Field = 'writedate') then
AValues[1]:= 'GETFILETIME'
else if (Field = 'attributestr') then
AValues[1]:= 'GETFILEATTR'
@ -285,6 +283,24 @@ begin
begin
AddString(AValues, DefaultFormatSettings.LongTimeFormat);
end;
end
else if (Field = 'size') then
begin
AValues[1]:= 'GETFILESIZE';
if (Length(AValues) = 3) then
begin
Arg:= LowerCase(AValues[2]);
if (Arg = 'bytes') then
AValues[2]:= 'BYTE'
else if (Arg = 'kbytes') then
AValues[2]:= 'KILO'
else if (Arg = 'mbytes') then
AValues[2]:= 'MEGA'
else if (Arg = 'gbytes') then
AValues[2]:= 'GIGA'
else
AValues[2]:= 'FLOAT';
end;
end;
end;
if (Length(AValues) = 2) then