paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 15:20:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: made shellctrls unit UTF8 safe, reported on the mailing list by haword

Browse Source 
git-svn-id: trunk@22744 -
This commit is contained in:
vincents 2009-11-24 09:35:24 +00:00
parent e1d98bf7d7
commit 2f775eda3a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/shellctrls.pas
View File

@ -346,7 +346,7 @@ begin
SearchStr := IncludeTrailingPathDelimiter(ABaseDir) + MaskStr;
FindResult := FindFirst(SearchStr, faAnyFile, DirInfo);
FindResult := FindFirstUTF8(SearchStr, faAnyFile, DirInfo);
while FindResult = 0 do
begin
@ -375,10 +375,10 @@ begin
// AddFile identifies if the file is valid or not
if AddFile then AResult.AddObject(DirInfo.Name, ObjectData);
FindResult := FindNext(DirInfo);
FindResult := FindNextUTF8(DirInfo);
end;
SysUtils.FindClose(DirInfo);
FindCloseUTF8(DirInfo);
end;
class function TCustomShellTreeView.GetBasePath: string;