mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 14:19:22 +02:00
lcl: TTreeView: unicode file names
git-svn-id: trunk@46812 -
This commit is contained in:
parent
3c23ec9722
commit
3ebff8a074
@ -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;
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user