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: PackInfoDlg - file size formatting

Browse source 
(cherry picked from commit 45402ba3d1)
This commit is contained in:
Alexander Koblov 2024-11-24 23:15:16 +03:00
commit 451517832e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fpackinfodlg.pas
View file

@ -79,7 +79,7 @@ uses
LCLType,
LCLVersion,
{$ENDIF}
uFileSourceOperationTypes;
uDCUtils, uFileSourceOperationTypes;
function ShowPackInfoDlg(aFileSource: IArchiveFileSource; aFile: TFile): TFileSourceExecuteOperationResult;
begin
@ -131,8 +131,8 @@ begin
if not aFile.IsDirectory then
begin
lblPackedOrgSize.Caption := IntToStr(aFile.Size);
lblPackedPackedSize.Caption := IntToStr(aFile.CompressedSize);
lblPackedOrgSize.Caption := IntToStrTS(aFile.Size);
lblPackedPackedSize.Caption := IntToStrTS(aFile.CompressedSize);
lblPackedOrgSize.Visible := aFile.SizeProperty.IsValid;
lblPackedPackedSize.Visible := aFile.CompressedSizeProperty.IsValid;
if (aFile.Size > 0) and aFile.CompressedSizeProperty.IsValid then