Don't count directories in panel statusbar

1 files changed, 3 insertions, 3 deletions

diff --git a/UMain.pas b/UMain.pas
index 6154fda..80f22f2 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -2045,11 +2045,11 @@ begin
   if DataList.Count > 0 then
     for i := 0 to DataList.Count - 1 do begin
       Data := DataList[i];
-      if (not Data^.UpDir) and ((not Data^.IsDir) or (Data^.IsDir and (Data^.Size > -1))) then begin
+      if (not Data^.UpDir) and ((not Data^.IsDir) or (Data^.IsDir and (Data^.Size > 0))) then begin
         Inc(TotalSize, Data^.Size);
-        Inc(TotalFiles);
+        if not Data^.IsDir then Inc(TotalFiles);
         if Data^.Selected then begin
-          Inc(NumSel);
+          if not Data^.IsDir then Inc(NumSel);
           Inc(Size, Data^.Size);
         end;
       end;