Prechádzať zdrojové kódy

UPD: File size format

Alexander Koblov 2 rokov pred
rodič
commit
723e7aa8cd
1 zmenil súbory, kde vykonal 5 pridanie a 1 odobranie
  1. 5 1
      src/ffileproperties.pas

+ 5 - 1
src/ffileproperties.pas

@@ -320,7 +320,11 @@ end;
 
 
 function TfrmFileProperties.FormatSize(ASize: Int64): String;
 function TfrmFileProperties.FormatSize(ASize: Int64): String;
 begin
 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;
 end;
 
 
 procedure TfrmFileProperties.ShowMany;
 procedure TfrmFileProperties.ShowMany;