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;