summaryrefslogtreecommitdiff
path: root/src/gui/selectdirdialog.inc
diff options
context:
space:
mode:
authorAndrew Haines <andrewd207@aol.com>2015-02-01 23:17:27 -0500
committerAndrew Haines <andrewd207@aol.com>2015-02-01 23:17:27 -0500
commitd351655a167dc6afe70ed659561ef8b3a4019305 (patch)
tree3843e8f137929b13a74ba787ec6f9f5541fc2427 /src/gui/selectdirdialog.inc
parentc7fc66e330b4665843e195436e7e5095de5dbdfc (diff)
parent0955cc8f881782e1565447f04a0afb774e1237aa (diff)
downloadfpGUI-d351655a167dc6afe70ed659561ef8b3a4019305.tar.xz
Merge branch 'develop' of https://github.com/graemeg/fpGUI into develop
Fixed xml conflicts of lpi's manually Conflicts: examples/gui/filedialog/filedialog.lpi examples/gui/modalforms/modalforms.lpi
Diffstat (limited to 'src/gui/selectdirdialog.inc')
-rw-r--r--src/gui/selectdirdialog.inc5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/gui/selectdirdialog.inc b/src/gui/selectdirdialog.inc
index 6a96d046..063c7972 100644
--- a/src/gui/selectdirdialog.inc
+++ b/src/gui/selectdirdialog.inc
@@ -135,7 +135,6 @@ begin
begin
try
SortList := TStringList.Create;
- SortList.Sorted := True;
repeat
// check if special file
if (FileInfo.Name = '.') or (FileInfo.Name = '..') or (FileInfo.Name = '') then
@@ -153,10 +152,12 @@ begin
hidden files then do not add it to the list. }
//if ((faHidden and FileInfo.Attr) > 0) and not FShowHidden then
//continue;
-
SortList.Add(FileInfo.Name);
end;
until fpgFindNext(FileInfo) <> 0;
+
+ SortList.Sort;
+
for i := 0 to SortList.Count - 1 do
begin
NewNode := Node.AppendText(SortList[i]);