From b4a479a691069a0293754fa94922b77ca406fea7 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 15 Nov 2008 16:22:51 +0100
Subject: VFS: Compressed size display support

---
 UMain.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'UMain.pas')

diff --git a/UMain.pas b/UMain.pas
index d07a10c..e85e53d 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -6259,7 +6259,12 @@ begin
         if (ConfSizeFormat < 5) or (Stat^.Size < 1024) then s := Format(' %s', [LANGHandleRunFromArchive_Bytes]);
         FRunFromVFS.SizeLabel2.Caption := Format('%s%s<span weight="ultrabold"> </span>', [FormatSize(Stat^.Size, 0), s]);
         if (ConfSizeFormat < 5) or (Stat^.Size < 1024) then s := Format(' %s', [LANGHandleRunFromArchive_Bytes]);
-        FRunFromVFS.PackedSizeLabel2.Caption := Format('%s%s<span weight="ultrabold"> </span>', [FormatSize(Stat^.Size, 0), s]);
+        if Stat^.PackedSize >= 0 then begin
+          FRunFromVFS.PackedSizeLabel2.Caption := Format('%s%s<span weight="ultrabold"> </span>', [FormatSize(Stat^.PackedSize, 0), s]);
+        end else begin
+          FRunFromVFS.PackedSizeLabel2.Visible := False;
+          FRunFromVFS.PackedSizeLabel.Visible := False;
+        end;
         FRunFromVFS.DateLabel2.Caption := Format('%s<span weight="ultrabold"> </span>', [FormatDate(Stat^.ModifyTime, True, True)]);
         if (Command = '') and (not Stat^.IsExecutable) then begin
           FRunFromVFS.OpensWithLabel2.Caption := Format('%s<span weight="ultrabold"> </span>', [LANGHandleRunFromArchive_NotAssociated]);
-- 
cgit v1.2.3