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: Select duplicates dialog

Browse source
This commit is contained in:
Alexander Koblov 2020-08-29 12:04:32 +00:00
commit cedfaecfad
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/fselectduplicates.pas
View file

@ -110,7 +110,7 @@ begin
SetLength(NewSorting, 2);
SetLength(NewSorting[1].SortFunctions, 1);
NewSorting[1].SortFunctions[0] := fsfModificationTime;
if (cmbFirstMethod.ItemIndex = 0) then
if (cmbFirstMethod.ItemIndex = 1) then
// First item will be Oldest
NewSorting[1].SortDirection := sdAscending
else begin
@ -123,11 +123,11 @@ begin
SetLength(NewSorting, 2);
SetLength(NewSorting[1].SortFunctions, 1);
NewSorting[1].SortFunctions[0] := fsfSize;
if (cmbFirstMethod.ItemIndex = 2) then
// First item will be Largest
if (cmbFirstMethod.ItemIndex = 3) then
// First item will be Smallest
NewSorting[1].SortDirection := sdAscending
else begin
// First item will be Smallest
// First item will be Largest
NewSorting[1].SortDirection := sdDescending;
end;
end;
@ -161,7 +161,11 @@ begin
end;
end;
FFileView.Sorting:= NewSorting;
with TDisplayFileSorter.Create(AFiles, NewSorting) do
begin
Sort;
Free;
end;
// Skip '..' item
if AFiles[0].FSFile.IsNameValid then