pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix sorting items on TFolderLister

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6670 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-10-04 10:46:08 +00:00
parent f81256b351
commit 3de5275499
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/trunk/rxcontrols/rxfolderlister.pas
View File

@@ -141,7 +141,7 @@ begin
AFolderList:=TStringList.Create;
AFolderList.Sorted:=true;
AFileList:=TStringList.Create;
AFolderList.Sorted:=true;
AFileList.Sorted:=true;
try
R:=FindFirstUTF8(S+AllMask,faAnyFile, Rec);
while R=0 do