paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 14:30:52 +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; function TFontSubsetter.buildHmtxTable: TStream;
var var
n: integer; n: integer;
GID: longint;
LastGID: longint;
begin begin
Result := TMemoryStream.Create; Result := TMemoryStream.Create;
LastGID := Length(FFontInfo.Widths)-1;
for n := 0 to FGlyphIDs.Count-1 do for n := 0 to FGlyphIDs.Count-1 do
begin begin
WriteUInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].AdvanceWidth); GID := FGlyphIDs[n].GID;
WriteInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].LSB); if GID > LastGID then
GID := LastGID;
WriteUInt16(Result, FFontInfo.Widths[GID].AdvanceWidth);
WriteInt16(Result, FFontInfo.Widths[GID].LSB);
end; end;
end; end;