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

UPD: File size format

Browse source
This commit is contained in:
Alexander Koblov 2023-05-15 23:07:06 +03:00
commit 723e7aa8cd
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ffileproperties.pas
View file

@ -320,7 +320,11 @@ end;
function TfrmFileProperties.FormatSize(ASize: Int64): String;
begin
Result:= Format('%s (%s)', [cnvFormatFileSize(ASize, fsfFloat, gFileSizeDigits), IntToStrTS(ASize)]);
if gFileSizeFormat in [fsfByte, fsfPersonalizedByte] then
Result:= cnvFormatFileSize(ASize)
else begin
Result:= Format('%s (%s)', [cnvFormatFileSize(ASize), IntToStrTS(ASize)]);
end;
end;
procedure TfrmFileProperties.ShowMany;