DrawText Question

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   The following Delphi code works in single generated PDF's, but not merged and scanned PDFs.
The code simply adds a page numbers to the top of each page of the merged document.
I have verified that the code/loop is executing.

if UnlockResult = 1 then
                  If PDFLibrary.LoadFromFile(OutputFullFilename,'') <> 0 then
                      begin
                          CurrentPage := 2;
                          PageCounter := PDFLibrary.PageCount;
                          PDFLibrary.SetPageSize('Legal');
                          PDfLibrary.SetTextSize(4);
                          PDFLibrary.SetNeedAppearances(1);
                          PDFLibrary.SetTextUnderline(1);
                          For CurrentPage := 2 to PageCounter do
                          begin
                            PDFLibrary.SelectPage(CurrentPage);
                            PDFLibrary.SetOrigin(1);
                            PDFLibrary.DrawText(700,10,'Merged Page ' + IntToStr(CurrentPage) + ' of ' + IntToStr(PageCounter));
                          end;
                        PDFLibrary.SaveToFile(OutputFullFilename);
                      end; ///load check

TIA,

John 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
JohnT Members Profile Find Members Posts Team Player Joined: 23 Oct 13 Location: United States Status: Offline Points: 30	Post Options Post Reply Quote JohnT Report Post Thanks(0) Quote Reply Topic: DrawText Question Posted: 25 Feb 14 at 5:06PM
	The following Delphi code works in single generated PDF's, but not merged and scanned PDFs. The code simply adds a page numbers to the top of each page of the merged document. I have verified that the code/loop is executing. if UnlockResult = 1 then If PDFLibrary.LoadFromFile(OutputFullFilename,'') <> 0 then begin CurrentPage := 2; PageCounter := PDFLibrary.PageCount; PDFLibrary.SetPageSize('Legal'); PDfLibrary.SetTextSize(4); PDFLibrary.SetNeedAppearances(1); PDFLibrary.SetTextUnderline(1); For CurrentPage := 2 to PageCounter do begin PDFLibrary.SelectPage(CurrentPage); PDFLibrary.SetOrigin(1); PDFLibrary.DrawText(700,10,'Merged Page ' + IntToStr(CurrentPage) + ' of ' + IntToStr(PageCounter)); end; PDFLibrary.SaveToFile(OutputFullFilename); end; ///load check TIA, John

JohnT Members Profile Find Members Posts Team Player Joined: 23 Oct 13 Location: United States Status: Offline Points: 30	Post Options Post Reply Quote JohnT Report Post Thanks(0) Quote Reply Posted: 25 Feb 14 at 6:22PM
	SORRY! It works...the horizontal number (700) was pushing the numbering off of the page. John

JohnT Members Profile Find Members Posts Team Player Joined: 23 Oct 13 Location: United States Status: Offline Points: 30	Post Options Post Reply Quote JohnT Report Post Thanks(0) Quote Reply Posted: 25 Feb 14 at 7:49PM
	One clarification... The drawtext method does not appear to work with PDF's that originated as scans of hard copy. What am I missing? TIA, John

jpbro Members Profile Find Members Posts Senior Member Joined: 29 Mar 11 Status: Offline Points: 77	Post Options Post Reply Quote jpbro Report Post Thanks(0) Quote Reply Posted: 25 Feb 14 at 9:10PM
	Try calling the NormalizePage function before drawing your text on the scanned documents - they might have rotation applied. Here's the documentation on the NormalizePage function: http://www.debenu.com/docs/pdf_library_reference/NormalizePage.php Of note in the description of the function: "Moves and/or rotates the contents of the page so that subsequent drawing operations are at the expected position on the page. "

JohnT Members Profile Find Members Posts Team Player Joined: 23 Oct 13 Location: United States Status: Offline Points: 30	Post Options Post Reply Quote JohnT Report Post Thanks(0) Quote Reply Posted: 25 Feb 14 at 10:51PM
	JpBro, Thanks very much. That fixed it! John

jpbro Members Profile Find Members Posts Senior Member Joined: 29 Mar 11 Status: Offline Points: 77	Post Options Post Reply Quote jpbro Report Post Thanks(0) Quote Reply Posted: 26 Feb 14 at 1:23AM
	Glad to help!