summaryrefslogtreecommitdiff
path: root/UMain.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UMain.pas')
-rw-r--r--UMain.pas6
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;