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

lazfreetype: fix TFreeTypeFont.CharsPosition for unicode text

Browse Source 
git-svn-id: trunk@52283 -
This commit is contained in:
ondrej 2016-05-05 11:05:49 +00:00
parent ae1eb7eab7
commit b7d9f09d50
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/easylazfreetype.pas
View File

@ -1756,7 +1756,6 @@ begin
w := Advance;
end else
w := 0;
for i := 1 to charlen do
with result[resultIndex] do
begin
x := curX;
@ -1764,8 +1763,8 @@ begin
yTop := y+yTopRel;
yBase := y;
yBottom := y+yBottomRel;
inc(resultIndex);
end;
inc(resultIndex);
curX += w;
end;
with result[resultIndex] do