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