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

FIX: the persistent sorting issue in FilesSortFoldersFirst() that was incorrect when comparing two regular files

Browse source
This commit is contained in:
rich2014 2026-06-01 09:42:16 +08:00
commit 523c15e297
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/filesources/ufilesource.pas
View file

@ -798,14 +798,14 @@ var
begin
Attr1:= TFileAttributesProperty(List.Objects[Index1]);
Attr2:= TFileAttributesProperty(List.Objects[Index2]);
if Attr1.IsDirectory and Attr2.IsDirectory then
Result:= CompareFilenames(List[Index1], List[Index2])
else begin
if Attr1.IsDirectory xor Attr2.IsDirectory then begin
if Attr1.IsDirectory then
Result:= -1
else begin
Result:= 1;
end;
end else begin
Result:= CompareFilenames(List[Index1], List[Index2])
end;
end;