[Lazarus] ShellCtrls and Russian file name

[haword]

hi! 
TShellListView and TShellTreeView not show correctly russian filenames. This 
patch for correct bug:

***************
*** 373,379 ****
      else ObjectData := nil;
  
      // AddFile identifies if the file is valid or not
!     if AddFile then AResult.AddObject(DirInfo.Name, ObjectData);
  
      FindResult := FindNext(DirInfo);
    end;
--- 373,383 ----
      else ObjectData := nil;
  
      // AddFile identifies if the file is valid or not
!     {$IFDEF Windows}
!       if AddFile then AResult.AddObject(AnsiToUTF8(DirInfo.Name), ObjectData);
!     {$else}
!       if AddFile then AResult.AddObject(DirInfo.Name, ObjectData);
!     {$endif}
  
      FindResult := FindNext(DirInfo);
    end;
***************
*** 581,586 ****
--- 585,594 ----
      begin
        NewItem := Items.Add;
        CurFileName := Files.Strings[i];
+       {$IFDEF Windows}
+       CurFileName := AnsiToUtf8(CurFileName);
+       {$ENDIF}
+ 
        CurFilePath := IncludeTrailingPathDelimiter(FRoot) + CurFileName;
        // First column - Name
        NewItem.Caption := CurFileName;


--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus