summaryrefslogtreecommitdiff
path: root/UMain.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UMain.pas')
-rw-r--r--UMain.pas11
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;