paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 03:38:14 +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_trans_affine ,
agg_math_stroke , agg_math_stroke ,
expat , expat ,
FileUtil ; FileUtil, LazUTF8Classes ;
{ TYPES DEFINITION } { TYPES DEFINITION }
const const
@ -659,9 +659,9 @@ end;
procedure parser.parse(fname: string); procedure parser.parse(fname: string);
var var
fs: TFileStream; fs: TFileStreamUTF8;
begin begin
fs:=TFileStream.Create(UTF8ToSys(fname),fmOpenRead+fmShareDenyWrite); fs:=TFileStreamUTF8.Create(fname,fmOpenRead+fmShareDenyWrite);
try try
parse(fs); parse(fs);
finally finally