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: Compiling

Browse source
This commit is contained in:
Alexander Koblov 2024-10-22 08:55:27 +03:00 • committed by GitHub
commit ddcfc127f0
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/ufilesorting.pas
View file

@ -659,7 +659,10 @@ begin
fsfAttr:
Result := ICompareByAttr(File1, File2, bNegative);
fsfPath:
Result := ICompareByName(File1.Path, File2.Path);
begin
Result := CompareStrings(File1.Path, File2.Path, gSortNatural, gSortSpecial, gSortCaseSensitivity);
if bNegative then Result := -Result;
end;
fsfGroup:
begin
Result := mbCompareText(File1.OwnerProperty.GroupStr,
@ -692,8 +695,9 @@ begin
bNegative);
fsfLinkTo:
begin
Result := ICompareByName(File1.LinkProperty.LinkTo,
File2.LinkProperty.LinkTo);
Result := CompareStrings(File1.LinkProperty.LinkTo, File2.LinkProperty.LinkTo,
gSortNatural, gSortSpecial, gSortCaseSensitivity);
if bNegative then Result := -Result;
end;
fsfNameNoExtension:
Result := ICompareByNameNoExt(File1, File2, bNegative);