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

demos: use UTF8 file functions in advaced

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2561 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-10-14 23:30:57 +00:00
parent edccc73ea2
commit c32a6a26ca
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/virtualtreeview-new/branches/4.8/demos/advanced/DrawTreeDemo.pas
View File

@ -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;