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

aggpas: unicode file names

Browse Source 
git-svn-id: trunk@46825 -
This commit is contained in:
mattias 2014-11-12 19:21:34 +00:00
parent a66b5d4e74
commit 2fd3d1310c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/aggpas/src/svg/agg_svg_parser_lcl.pas
View File

@ -43,7 +43,7 @@ uses
agg_trans_affine ,
agg_math_stroke ,
expat ,
FileUtil ;
FileUtil, LazUTF8Classes ;
{ TYPES DEFINITION }
const
@ -659,9 +659,9 @@ end;
procedure parser.parse(fname: string);
var
fs: TFileStream;
fs: TFileStreamUTF8;
begin
fs:=TFileStream.Create(UTF8ToSys(fname),fmOpenRead+fmShareDenyWrite);
fs:=TFileStreamUTF8.Create(fname,fmOpenRead+fmShareDenyWrite);
try
parse(fs);
finally