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

* Allow not to have Trailer ID

Browse Source 
git-svn-id: trunk@39550 -
This commit is contained in:
michael 2018-08-02 12:14:12 +00:00
parent 65baf55ee0
commit a7cbafb658
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,7 +69,7 @@ type
TPDFPageLayout = (lSingle, lTwo, lContinuous);
TPDFUnitOfMeasure = (uomInches, uomMillimeters, uomCentimeters, uomPixels);
TPDFOption = (poOutLine, poCompressText, poCompressFonts, poCompressImages, poUseRawJPEG, poNoEmbeddedFonts, poPageOriginAtTop, poSubsetFont, poMetadataEntry);
TPDFOption = (poOutLine, poCompressText, poCompressFonts, poCompressImages, poUseRawJPEG, poNoEmbeddedFonts, poPageOriginAtTop, poSubsetFont, poMetadataEntry, poNoTrailerID);
TPDFOptions = set of TPDFOption;
EPDF = Class(Exception);
@ -5059,7 +5059,8 @@ begin
CreateInfoEntry;
if poMetadataEntry in Options then
CreateMetadataEntry;
CreateTrailerID;
if not (poNoTrailerID in Options) then
CreateTrailerID;
CreatePreferencesEntry;
if (FontDirectory = '') then
FontDirectory:=ExtractFilePath(ParamStr(0));