paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +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 uses
SysUtils, Math, Types, Classes, Contnrs, FPCAdds, LCLversion, SysUtils, Math, Types, Classes, Contnrs, FPCAdds, LCLVersion, LazUTF8Classes,
FileUtil, FileUtil,
FPImage, FPCanvas, FPImage, FPCanvas,
FPWriteBMP, // bmp support FPWriteBMP, // bmp support

4
lcl/include/graphic.inc
View File

@ -125,7 +125,7 @@ procedure TGraphic.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
@ -237,7 +237,7 @@ procedure TGraphic.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

4
lcl/include/picture.inc
View File

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