diff options
Diffstat (limited to 'UMain.pas')
| -rw-r--r-- | UMain.pas | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |
