From 203553975902a8abe941d28b5f9189f29882940b Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Thu, 7 Feb 2019 22:30:29 +0000
Subject: [PATCH] LazUtils: Fixed wrong offsets in free type font subclips.
 Issue #35036. Patch from Ondrej Pokorny

git-svn-id: trunk@60362 -
---
 components/lazutils/ttgload.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/lazutils/ttgload.pas b/components/lazutils/ttgload.pas
index 4e1cf2c6af..5d321c9bf3 100644
--- a/components/lazutils/ttgload.pas
+++ b/components/lazutils/ttgload.pas
@@ -1003,13 +1003,13 @@ const
 
            if new_flags and ARGS_ARE_WORDS <> 0 then
              begin
-               k := ftstream.Get_Short;
-               l := ftstream.Get_Short;
+               k := SmallInt(ftstream.Get_Short);
+               l := SmallInt(ftstream.Get_Short);
              end
            else
              begin
-               k := ftstream.Get_Byte;
-               l := ftstream.Get_Byte;
+               k := ShortInt(ftstream.Get_Byte);
+               l := ShortInt(ftstream.Get_Byte);
              end;
 
            subglyph^.arg1 := k;