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: improve in TFileSource.GetFilesForPathAndType()

Browse source
This commit is contained in:
rich2014 2026-05-31 23:24:19 +08:00
commit d2971bd587
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/filesources/ufilesource.pas
View file

@ -831,17 +831,18 @@ begin
if (f.Name = '.') or (f.Name = '..') then
Continue;
attr:= f.AttributesProperty;
if IsSystemFile(f) and not (otHidden in types) then
continue;
if attr.IsDirectory and not (otFolders in types) then
Continue;
if not attr.IsDirectory and not (otNonFolders in types) then
Continue;
strings.AddObject( f.Name, attr );
if Assigned(attr) then begin
if self.IsSystemFile(f) and not (otHidden in types) then
continue;
if attr.IsDirectory and not (otFolders in types) then
Continue;
if not attr.IsDirectory and not (otNonFolders in types) then
Continue;
end;
strings.AddObject( self.GetFileName(f), attr );
end;
if strings.Count > 0 then
begin
if strings.Count > 0 then begin
case sort of
fstAlphabet: strings.CustomSort(@FilesSortAlphabet);
fstFoldersFirst: strings.CustomSort(@FilesSortFoldersFirst);