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

fcl-pdf: fixed example pdfdump

Browse Source
This commit is contained in:
mattias 2023-06-15 11:34:57 +02:00
parent f20c7b9ae9
commit 63bf4dacbf
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-pdf/examples/.gitignore vendored
View File

@ -3,3 +3,5 @@ testfppdf
*.exe *.exe
*.pdf *.pdf
fonts fonts
lib
pdfdump

2
packages/fcl-pdf/examples/pdfdump.pp
View File

@ -382,7 +382,7 @@ begin
// P.ResolveObjects:=False; // P.ResolveObjects:=False;
P.ParseDocument(Doc); P.ParseDocument(Doc);
if isPageText in FSections then if isPageText in FSections then
P.ResolveToUnicodeCMaps(Doc); P.DoResolveToUnicodeCMaps(Doc);
For S in FSections do For S in FSections do
begin begin
Case s of Case s of