paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Not the complete fix for bug ID #31092 was committed

Browse Source 
git-svn-id: trunk@35131 -
This commit is contained in:
michael 2016-12-14 22:21:49 +00:00
parent 7ef8f00100
commit e342d3e15c
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-pdf/src/fppdf.pp
View File

@ -4360,9 +4360,12 @@ begin
IDict:=CreateGlobalXRef.Dict; IDict:=CreateGlobalXRef.Dict;
Trailer.AddReference('Info', GLobalXRefCount-1); Trailer.AddReference('Info', GLobalXRefCount-1);
(Trailer.ValueByName('Size') as TPDFInteger).Value:=GLobalXRefCount; (Trailer.ValueByName('Size') as TPDFInteger).Value:=GLobalXRefCount;
IDict.AddString('Title',Infos.Title); if Infos.Title <> '' then
IDict.AddString('Author',Infos.Author); IDict.AddString('Title',Infos.Title);
IDict.AddString('Creator',Infos.ApplicationName); if Infos.Author <> '' then
IDict.AddString('Author',Infos.Author);
if Infos.ApplicationName <> '' then
IDict.AddString('Creator',Infos.ApplicationName);
IDict.AddString('Producer',Infos.Producer); IDict.AddString('Producer',Infos.Producer);
IDict.AddString('CreationDate',DateToPdfDate(Infos.CreationDate)); IDict.AddString('CreationDate',DateToPdfDate(Infos.CreationDate));
end; end;

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

@ -930,10 +930,10 @@ var
n: integer; n: integer;
begin begin
Result := TMemoryStream.Create; Result := TMemoryStream.Create;
for n := 0 to FGlyphIDList.Count-1 do for n := 0 to FGlyphIDs.Count-1 do
begin begin
WriteUInt16(Result, FFontInfo.Widths[FGlyphIDList[n].GlyphID].AdvanceWidth); WriteUInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].AdvanceWidth);
WriteInt16(Result, FFontInfo.Widths[FGlyphIDList[n].GlyphID].LSB); WriteInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].LSB);
end; end;
end; end;