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

* Fix compilation

Browse Source 
(cherry picked from commit 5e996d8390)
This commit is contained in:
Michaël Van Canneyt 2022-12-17 17:13:33 +01:00 committed by marcoonthegit
parent 4d7a19932f
commit 3729fcb2bf
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,8 +39,8 @@ type
destructor destroy; override;
Protected
procedure DisplayPageText(Doc: TPDFDocument; aIndex: Integer; aPage: TPDFPageObject);
procedure DoLog(sender: TObject; aKind: TLogkind; const aMessage: string);
Procedure DoProgress(Sender : TObject;aKind : TProgressKind; aCurrent,aCount : Integer);
procedure DoLog(sender: TObject; aKind: TPDFLogkind; const aMessage: string);
Procedure DoProgress(Sender : TObject;aKind : TPDFProgressKind; aCurrent,aCount : Integer);
procedure DisplayCatalog(Doc: TPDFDocument);
procedure DisplayInfo(Doc: TPDFDocument);
procedure DisplayObjects(Doc: TPDFDocument);
@ -218,17 +218,17 @@ begin
end;
procedure TPDFDumpApplication.DoProgress(Sender: TObject; aKind: TProgressKind;
procedure TPDFDumpApplication.DoProgress(Sender: TObject; aKind: TPDFProgressKind;
aCurrent, aCount: Integer);
Const
Kinds : Array [TProgressKind] of String = ('XRef','Indirect','ContentStream');
Kinds : Array [TPDFProgressKind] of String = ('XRef','Indirect','ContentStream');
begin
Writeln('Loading ', Kinds[aKind],': ',aCurrent,'/',aCount);
end;
procedure TPDFDumpApplication.DoLog(sender: TObject; aKind: TLogkind;
procedure TPDFDumpApplication.DoLog(sender: TObject; aKind: TPDFLogkind;
const aMessage: string);
begin
Writeln('[',aKind,'] : ',aMessage);
@ -334,7 +334,7 @@ begin
Writeln('Page count : ',Doc.PageCount);
For I:=0 to Doc.PageCount-1 do
begin
aPage:=Doc.Pages[I];
aPage:=Doc.Page[I];
Write('Page object ',I,': ');
if not Assigned(aPage) then
Writeln('Not found')