From 5fa7b359656e63330e2b4f59474f136f11c0aa31 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 25 Sep 2012 09:32:05 +0000
Subject: [PATCH] fix UTF8 file scan

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2539 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/folderlister.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/rx/folderlister.pas b/components/rx/folderlister.pas
index 5535442b3..eab5788c8 100644
--- a/components/rx/folderlister.pas
+++ b/components/rx/folderlister.pas
@@ -79,7 +79,7 @@ type
   end;
   
 implementation
-uses {RxStrUtils, }strutils, RxAppUtils;
+uses FileUtil, strutils, RxAppUtils, LazUTF8;
 
 function MenuItemStr(S:string):string;
 var
@@ -139,7 +139,7 @@ begin
   AFileList:=TStringList.Create;
   AFolderList.Sorted:=true;
   try
-    R:=FindFirst(S+AllMask,faAnyFile, Rec);
+    R:=FindFirstUTF8(S+AllMask,faAnyFile, Rec);
     while R=0 do
     begin
       if ((Rec.Attr and faDirectory) <>0) and (Rec.Name<>'.') and (Rec.Name<>'..') then
@@ -149,9 +149,9 @@ begin
         if AnsiLowerCase(ExtractFileExt(Rec.Name))=AnsiLowerCase(FDefaultExt) then
           AFileList.Add(S+Rec.Name);
       end;
-      R:=FindNext(Rec);
+      R:=FindNextUTF8(Rec);
     end;
-    FindClose(Rec);
+    FindCloseUTF8(Rec);
     CreateSubItems;
     CreateItems;
   finally