From 1ab1dd3adf98e99ff5eba5f57dbc95d61b5164aa Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 7 Oct 2018 14:47:25 +0200
Subject: [PATCH] mini explorer didn't always sort

---
 src/ce_miniexplorer.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index 0f0b4ad3..4c45903e 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -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;