From c32a6a26ca438be862aa81a729931ed508d2d2b5 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 14 Oct 2012 23:30:57 +0000
Subject: [PATCH] demos: use UTF8 file functions in advaced

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2561 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../branches/4.8/demos/advanced/DrawTreeDemo.pas     | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/virtualtreeview-new/branches/4.8/demos/advanced/DrawTreeDemo.pas b/components/virtualtreeview-new/branches/4.8/demos/advanced/DrawTreeDemo.pas
index 41107e490..b6588f6c2 100644
--- a/components/virtualtreeview-new/branches/4.8/demos/advanced/DrawTreeDemo.pas
+++ b/components/virtualtreeview-new/branches/4.8/demos/advanced/DrawTreeDemo.pas
@@ -21,7 +21,7 @@ uses
   Windows,
   {$endif}
   LCLIntf, delphicompat, LCLType, SysUtils, Classes, ComCtrls, Graphics, Controls, Forms, Dialogs,
-  VirtualTrees, StdCtrls,  shlobjext, LResources;
+  VirtualTrees, StdCtrls,  shlobjext, LResources, FileUtil;
 
 type
   TDrawTreeForm = class(TForm)
@@ -96,10 +96,10 @@ var
   SR: TSearchRec;
 
 begin
-  Result := FindFirst(IncludeTrailingPathDelimiter(Folder) + {$ifdef Windows}'*.*'{$else}'*'{$endif},
+  Result := FindFirstUTF8(IncludeTrailingPathDelimiter(Folder) + {$ifdef Windows}'*.*'{$else}'*'{$endif},
     faAnyFile, SR) = 0;
   if Result then
-    FindClose(SR);
+    FindCloseUTF8(SR);
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
@@ -529,7 +529,7 @@ var
 
 begin
   Data := Sender.GetNodeData(Node);
-  if FindFirst(IncludeTrailingPathDelimiter(Data.FullPath) + {$ifdef Windows}'*.*'{$else}'*'{$endif},
+  if FindFirstUTF8(IncludeTrailingPathDelimiter(Data.FullPath) + {$ifdef Windows}'*.*'{$else}'*'{$endif},
     faAnyFile, SR) = 0 then
   begin
     Screen.Cursor := crHourGlass;
@@ -554,14 +554,14 @@ begin
             Sender.ValidateNode(Node, False);
           end;
         end;
-      until FindNext(SR) <> 0;
+      until FindNextUTF8(SR) <> 0;
       ChildCount := Sender.ChildCount[Node];
 
       // finally sort node
       if ChildCount > 0 then
         Sender.Sort(Node, 0, TVirtualStringTree(Sender).Header.SortDirection, False);
     finally
-      FindClose(SR);
+      FindCloseUTF8(SR);
       Screen.Cursor := crDefault;
     end;
   end;