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

View File

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