paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-18 02:19:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Makes the multi_test_1.svg file a little more beaultiful

Browse Source 
git-svn-id: trunk@15933 -
This commit is contained in:
sekelsenmat 2010-09-01 09:15:06 +00:00
parent 671603a47d
commit e06ce8a61a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fpvectorial/examples/fpvwritetest.pas
View File

@ -131,8 +131,8 @@ begin
Vec.AddLineToPath(30, 0); Vec.AddLineToPath(30, 0);
Vec.EndPath(); Vec.EndPath();
Vec.AddText(10, 10, 0, '10,10 Some text in english.'); Vec.AddText(10, 10, 0, '10,10 Some text in english.');
Vec.AddText(20, 20, 0, '20, 20 Mówić, cześć, Włosku, Parabéns, Assunção, Correções.'); Vec.AddText(20, 20, 0, '20, 20 Mówić, cześć, Włosku, Parabéns.');
Vec.AddText(30, 30, 0, '30, 30 森林，是一个高密度树木的区域'); Vec.AddText(30, 30, 0, '30, 30 森林，是一个高密');
Vec.WriteToFile('multi_test_1' + cExtension, cFormat); Vec.WriteToFile('multi_test_1' + cExtension, cFormat);
finally finally
Vec.Free; Vec.Free;