paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 15:29:16 +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;
Public
constructor Create(aOwner: TComponent); override;
destructor destroy; override;
destructor Destroy; override;
Protected
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 DisplayCatalog(Doc: TPDFDocument);
procedure DisplayInfo(Doc: TPDFDocument);
@ -149,6 +149,7 @@ begin
if (FSections=[]) then
for S in TInfoSection do
Include(FSections,S);
Result:=true;
end;
procedure TPDFDumpApplication.Usage(Msg: String);