paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TGraphic: unicode file names

Browse Source 
git-svn-id: trunk@46811 -
This commit is contained in:
mattias 2014-11-12 18:54:56 +00:00
parent 3e8e08554d
commit 3c23ec9722
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/graphics.pp
View File

@ -39,7 +39,7 @@ interface
uses
SysUtils, Math, Types, Classes, Contnrs, FPCAdds, LCLversion,
SysUtils, Math, Types, Classes, Contnrs, FPCAdds, LCLVersion, LazUTF8Classes,
FileUtil,
FPImage, FPCanvas,
FPWriteBMP, // bmp support

4
lcl/include/graphic.inc
View File

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

4
lcl/include/picture.inc
View File

@ -512,7 +512,7 @@ begin
Ext := ExtractFileExt(Filename);
System.Delete(Ext, 1, 1); // delete '.'
Stream := TFileStream.Create(UTF8ToSys(Filename), fmOpenRead or fmShareDenyWrite);
Stream := TFileStreamUTF8.Create(Filename, fmOpenRead or fmShareDenyWrite);
try
if Ext <> '' then
LoadFromStreamWithFileExt(Stream, Ext)
@ -591,7 +591,7 @@ begin
if (Ext <> '') and (Ext[1] = '.') then System.Delete(Ext, 1, 1); // delete '.'
Stream := TFileStream.Create(UTF8ToSys(Filename), fmCreate);
Stream := TFileStreamUTF8.Create(Filename, fmCreate);
try
SaveToStreamWithFileExt(Stream, Ext);
finally