forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

improvment, explorer, file list sorted

This commit is contained in:
Basile Burg 2015-11-05 00:02:47 +01:00
parent 159bfdf0f2
commit 65beda6011
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_miniexplorer.pas
View File

@ -4,13 +4,11 @@ unit ce_miniexplorer;
interface interface
//TODO-cbugfix: alphabetic sorting is broken after filter reset.
uses uses
Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics, Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics,
ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget, ce_sharedres, ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget, ce_sharedres,
ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_dubproject, ce_common, ce_interfaces, ce_observer, ce_writableComponent, ce_dubproject,
ce_nativeproject; ce_nativeproject, EditBtn;
type type
@ -456,6 +454,7 @@ begin
pth := PString(Tree.Selected.Data)^; pth := PString(Tree.Selected.Data)^;
fLastFold := pth; fLastFold := pth;
listFiles(lst, pth); listFiles(lst, pth);
lst.Sort;
fillLstFiles(lst); fillLstFiles(lst);
finally finally
lst.Free; lst.Free;