paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 19:08:15 +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;
Trailer.AddReference('Info', GLobalXRefCount-1);
(Trailer.ValueByName('Size') as TPDFInteger).Value:=GLobalXRefCount;
IDict.AddString('Title',Infos.Title);
IDict.AddString('Author',Infos.Author);
IDict.AddString('Creator',Infos.ApplicationName);
if Infos.Title <> '' then
IDict.AddString('Title',Infos.Title);
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('CreationDate',DateToPdfDate(Infos.CreationDate));
end;

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

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