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

fcl-pdf: less hints

Browse Source
This commit is contained in:
mattias 2023-06-21 10:13:33 +02:00
parent 51fa67c234
commit 3ef91538f9
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/examples/pdfdump.pp
View File

@ -36,10 +36,10 @@ type
FVerbose : Boolean; FVerbose : Boolean;
Public Public
constructor Create(aOwner: TComponent); override; constructor Create(aOwner: TComponent); override;
destructor destroy; override; destructor Destroy; override;
Protected Protected
procedure DisplayPageText(Doc: TPDFDocument; aIndex: Integer; aPage: TPDFPageObject); procedure DisplayPageText(Doc: TPDFDocument; aIndex: Integer; aPage: TPDFPageObject);
procedure DoLog(sender: TObject; aKind: TPDFLogkind; const aMessage: string); procedure DoLog(sender: TObject; aKind: TPDFLogkind; const aMessage: string); reintroduce;
Procedure DoProgress(Sender : TObject;aKind : TPDFProgressKind; aCurrent,aCount : Integer); Procedure DoProgress(Sender : TObject;aKind : TPDFProgressKind; aCurrent,aCount : Integer);
procedure DisplayCatalog(Doc: TPDFDocument); procedure DisplayCatalog(Doc: TPDFDocument);
procedure DisplayInfo(Doc: TPDFDocument); procedure DisplayInfo(Doc: TPDFDocument);
@ -149,6 +149,7 @@ begin
if (FSections=[]) then if (FSections=[]) then
for S in TInfoSection do for S in TInfoSection do
Include(FSections,S); Include(FSections,S);
Result:=true;
end; end;
procedure TPDFDumpApplication.Usage(Msg: String); procedure TPDFDumpApplication.Usage(Msg: String);