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

mini explorer, folders not always sorted

This commit is contained in:
Basile Burg 2016-12-24 07:42:47 +01:00
parent d3be3af0b7
commit 825bcfd2f5
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_miniexplorer.pas
View File

@ -614,6 +614,7 @@ begin
lst := TStringList.Create; lst := TStringList.Create;
try try
listFolders(lst, PString(aRoot.Data)^ + directorySeparator); listFolders(lst, PString(aRoot.Data)^ + directorySeparator);
lst.Sort;
for fold in lst do for fold in lst do
begin begin
itm := Tree.Items.AddChild(aRoot, fold.extractFileName); itm := Tree.Items.AddChild(aRoot, fold.extractFileName);