* glyph advances are stored in 16.16 fixed-point format and not 26.6 format (https://www.freetype.org/freetype2/docs/reference/ft2-glyph_management.html#ft_glyph)

git-svn-id: trunk@49627 -
(cherry picked from commit 83bb854f1ec3018fc52bd2fe72bb5f77ee2831aa)

packages/fcl-image/src/freetype.pp

@@ -687,8 +687,8 @@ begin
         begin
         with gl^.advance do
           begin
-          advanceX := x div 64;
-          advanceY := y div 64;
+          advanceX := x shr 16;
+          advanceY := y shr 16;
           end;
         with bm^ do
           begin
@@ -814,8 +814,8 @@ begin
       begin
       with gl^.advance do
         begin
-        advanceX := x shr 6;
-        advanceY := y shr 6;
+        advanceX := x shr 16;
+        advanceY := y shr 16;
         end;
       with bm^ do
         begin