From b7d9f09d50692e81021f47009d6570e47eaa33aa Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Thu, 5 May 2016 11:05:49 +0000
Subject: [PATCH] lazfreetype: fix TFreeTypeFont.CharsPosition for unicode text

git-svn-id: trunk@52283 -
---
 components/lazutils/easylazfreetype.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/components/lazutils/easylazfreetype.pas b/components/lazutils/easylazfreetype.pas
index be49060b8d..e27152a2ef 100644
--- a/components/lazutils/easylazfreetype.pas
+++ b/components/lazutils/easylazfreetype.pas
@@ -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