forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mini explorer didn't always sort

This commit is contained in:
Basile Burg 2018-10-07 14:47:25 +02:00
parent 23a7cc18fb
commit 1ab1dd3adf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_miniexplorer.pas
View File

@ -293,7 +293,7 @@ begin
lstFiles.OnCompare := @compareFileList; lstFiles.OnCompare := @compareFileList;
fFileListSortDirection := sdAscending; fFileListSortDirection := sdAscending;
fFileListSortedColumnIndex:=-1; fFileListSortedColumnIndex:=0;
fImages := TImageList.Create(self); fImages := TImageList.Create(self);
case GetIconScaledSize of case GetIconScaledSize of
@ -724,6 +724,8 @@ procedure TCEMiniExplorerWidget.lstFilesFileAdded(Sender: TObject;
Item: TListItem); Item: TListItem);
begin begin
Item.ImageIndex:=0; Item.ImageIndex:=0;
if lstFiles.SortColumn = -1 then
lstFIles.SortColumn := 0;
lstFiles.Sort; lstFiles.Sort;
end; end;