From 30a547b8f4f9f01b8270d653c7ac3784a8ce981c Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Wed, 11 Jun 2008 21:01:51 +0200 Subject: Allow optional sorting directories like files --- UMain.pas | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'UMain.pas') 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; -- cgit v1.2.3