From 65beda601127dd442288f0dfb0507d71fc4b5675 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Thu, 5 Nov 2015 00:02:47 +0100 Subject: [PATCH] improvment, explorer, file list sorted --- src/ce_miniexplorer.pas | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas index 883b71fd..f2f76957 100644 --- a/src/ce_miniexplorer.pas +++ b/src/ce_miniexplorer.pas @@ -4,13 +4,11 @@ unit ce_miniexplorer; interface -//TODO-cbugfix: alphabetic sorting is broken after filter reset. - uses Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics, ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget, ce_sharedres, ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_dubproject, - ce_nativeproject; + ce_nativeproject, EditBtn; type @@ -456,6 +454,7 @@ begin pth := PString(Tree.Selected.Data)^; fLastFold := pth; listFiles(lst, pth); + lst.Sort; fillLstFiles(lst); finally lst.Free;