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

ADD: Duplicate files - sort result

Browse source
This commit is contained in:
Alexander Koblov 2019-12-04 18:45:54 +00:00
commit 0ee36fa82e
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fFindDlg.pas
View file

@ -392,7 +392,7 @@ uses
uSearchResultFileSource, uFile, uFileProperty, uColumnsFileView,
uFileViewNotebook, uKeyboard, uOSUtils, uArchiveFileSourceUtil,
DCOSUtils, RegExpr, uDebug, uShowMsg, uConvEncoding, uColumns,
uFileFunctions;
uFileFunctions, uFileSorting;
const
TimeUnitToComboIndex: array[TTimeUnit] of integer = (0, 1, 2, 3, 4, 5, 6);
@ -1753,6 +1753,7 @@ var
DCFunc: String;
AProperty: TFileVariantProperty;
ANewSet: TPanelColumnsClass;
NewSorting: TFileSortings;
begin
StopSearch;
@ -1801,6 +1802,14 @@ begin
TColumnsFileView(NewPage.FileView).ActiveColmSlave:= ANewSet;
TColumnsFileView(NewPage.FileView).UpdateColumnsView;
SetLength(NewSorting, 1);
SetLength(NewSorting[0].SortFunctions, 2);
NewSorting[0].SortFunctions[0] := fsfVariant;
NewSorting[0].SortFunctions[1] := fsfName;
NewSorting[0].SortDirection := sdAscending;
NewPage.FileView.Sorting:= NewSorting;
end;
NewPage.FileView.AddFileSource(SearchResultFS, SearchResultFS.GetRootDir);