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: local hard disks come before removable hard disk when sorting

Browse source
This commit is contained in:
rich2014 2025-11-09 12:08:25 +08:00
commit 5b418b05bc
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fmain.pas
View file

@ -4965,8 +4965,15 @@ begin
end;
function CompareDrives(Item1, Item2: Pointer): Integer;
var
driver1: PDrive absolute Item1;
driver2: PDrive absolute Item2;
begin
Result := CompareText(PDrive(Item1)^.DisplayName, PDrive(Item2)^.DisplayName);
if driver1^.Path = PathDelim then
Exit(-1);
if driver2^.Path = PathDelim then
Exit(1);
Result := CompareText(driver1^.DisplayName, driver2^.DisplayName);
end;
procedure TfrmMain.UpdateDiskCount;