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: Bug [0001384]

Browse source
This commit is contained in:
Alexander Koblov 2016-05-21 14:53:02 +00:00
commit d2cf39e75b
2 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/fileviews/ucolumnsfileview.pas
View file

@ -343,10 +343,10 @@ begin
SortingDirection := GetSortDirection(NewSorting, SortFunctions);
if SortingDirection = sdNone then
begin
//If there is no direction currently, sort "sdDescending" for size and date.
//Commonly, we search seek more often for most recent files then older any others.
//When sorting by size, often it is to find larger file to make room.
//Anyway, it makes DC like TC, and also, Windows Explorer do the same.
// If there is no direction currently, sort "sdDescending" for size and date.
// Commonly, we search seek more often for most recent files then older any others.
// When sorting by size, often it is to find larger file to make room.
// Anyway, it makes DC like TC, and also, Windows Explorer do the same.
case SortFunctions[0] of
fsfSize, fsfModificationTime, fsfCreationTime, fsfLastAccessTime: SortingDirection:=sdDescending;
else SortingDirection:=sdAscending;
@ -360,7 +360,7 @@ begin
end
else
begin
//If there is no direction currently, sort "sdDescending" for size and date (see previous comment).
// If there is no direction currently, sort "sdDescending" for size and date (see previous comment).
case SortFunctions[0] of
fsfSize, fsfModificationTime, fsfCreationTime, fsfLastAccessTime: SortingDirection:=sdDescending;
else SortingDirection:=sdAscending;

20
src/fileviews/ufileviewheader.pas
View file

@ -388,14 +388,28 @@ begin
begin
SortingDirection := GetSortDirection(NewSorting, SortFunctions);
if SortingDirection = sdNone then
SortingDirection := sdAscending
else
begin
// If there is no direction currently, sort "sdDescending" for size and date.
// Commonly, we search seek more often for most recent files then older any others.
// When sorting by size, often it is to find larger file to make room.
// Anyway, it makes DC like TC, and also, Windows Explorer do the same.
case SortFunctions[0] of
fsfSize, fsfModificationTime, fsfCreationTime, fsfLastAccessTime: SortingDirection:= sdDescending;
else SortingDirection:= sdAscending;
end;
end
else begin
SortingDirection := ReverseSortDirection(SortingDirection);
end;
NewSorting := nil;
end
else
begin
SortingDirection := sdAscending;
// If there is no direction currently, sort "sdDescending" for size and date (see previous comment).
case SortFunctions[0] of
fsfSize, fsfModificationTime, fsfCreationTime, fsfLastAccessTime: SortingDirection:= sdDescending;
else SortingDirection:= sdAscending;
end;
end;
AddOrUpdateSorting(NewSorting, SortFunctions, SortingDirection);