lcl: TTreeView: unicode file names

git-svn-id: trunk@46812 -
This commit is contained in:
mattias 2014-11-12 18:56:15 +00:00
parent 3c23ec9722
commit 3ebff8a074
2 changed files with 6 additions and 4 deletions

View File

@ -29,8 +29,10 @@ unit ComCtrls;
interface interface
uses uses
SysUtils, Types, Classes, Math, LCLStrConsts, LResources, LCLIntf, LCLType, SysUtils, Types, Classes, Math,
FileUtil, LCLProc, AvgLvlTree, LMessages, ImgList, ActnList, GraphType, AvgLvlTree, LazUTF8Classes,
LCLStrConsts, LResources, LCLIntf, LCLType,
FileUtil, LCLProc, LMessages, ImgList, ActnList, GraphType,
Graphics, Menus, Controls, Forms, StdCtrls, ExtCtrls, ToolWin, Buttons, Graphics, Menus, Controls, Forms, StdCtrls, ExtCtrls, ToolWin, Buttons,
Themes, WSLCLClasses, LCLClasses; Themes, WSLCLClasses, LCLClasses;

View File

@ -5336,7 +5336,7 @@ procedure TCustomTreeView.LoadFromFile(const FileName: string);
var var
Stream: TStream; Stream: TStream;
begin begin
Stream := TFileStream.Create(UTF8ToSys(FileName), fmOpenRead or fmShareDenyWrite); Stream := TFileStreamUTF8.Create(FileName, fmOpenRead or fmShareDenyWrite);
try try
LoadFromStream(Stream); LoadFromStream(Stream);
finally finally
@ -5358,7 +5358,7 @@ procedure TCustomTreeView.SaveToFile(const FileName: string);
var var
Stream: TStream; Stream: TStream;
begin begin
Stream := TFileStream.Create(UTF8ToSys(FileName), fmCreate); Stream := TFileStreamUTF8.Create(FileName, fmCreate);
try try
SaveToStream(Stream); SaveToStream(Stream);
finally finally