paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 03:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix issue ID #35251 (patch from Rumen Gyurov)

Browse Source 
git-svn-id: trunk@48696 -
This commit is contained in:
michael 2021-02-17 13:32:03 +00:00
parent 3227c5953d
commit aa4fd5e6b1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-pdf/src/fpttfsubsetter.pp
View File

@ -940,12 +940,18 @@ end;
function TFontSubsetter.buildHmtxTable: TStream;
var
n: integer;
GID: longint;
LastGID: longint;
begin
Result := TMemoryStream.Create;
LastGID := Length(FFontInfo.Widths)-1;
for n := 0 to FGlyphIDs.Count-1 do
begin
WriteUInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].AdvanceWidth);
WriteInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].LSB);
GID := FGlyphIDs[n].GID;
if GID > LastGID then
GID := LastGID;
WriteUInt16(Result, FFontInfo.Widths[GID].AdvanceWidth);
WriteInt16(Result, FFontInfo.Widths[GID].LSB);
end;
end;