Allow optional sorting directories like files

1 files changed, 11 insertions, 0 deletions

diff --git a/UMain.pas b/UMain.pas
index 2e06dbc..1e9f86f 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -2285,6 +2285,17 @@ begin
 
   RunningEscSensitive := 1;
   GetDirSize(ListView, Engine, DataList, AllItems);
+
+  if ConfSortDirectoriesLikeFiles and (ColumnSortIDs[ListView.SortColumnID + 1] = 4) then begin
+    if ListView.SortOrder = soAscending then begin
+      ListView.SetSortInfo(ListView.SortColumnID, soDescending);
+      ListView.SetSortInfo(ListView.SortColumnID, soAscending);
+    end else begin
+      ListView.SetSortInfo(ListView.SortColumnID, soAscending);
+      ListView.SetSortInfo(ListView.SortColumnID, soDescending);
+    end;
+    ListView.Selected.SetCursor(0, False, False, 0, 0);
+  end;
   FMainEscPressed := False;
   RunningEscSensitive := 0;
 end;