浏览代码

UPD: File size format

Alexander Koblov 2 年之前
父节点
当前提交
723e7aa8cd
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      src/ffileproperties.pas

+ 5 - 1
src/ffileproperties.pas

@@ -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;