Scroll pages under each other (Delphi)
Printed From: Debenu Quick PDF Library - PDF SDK Community Forum
Category: For Users of the Library
Forum Name: General Discussion
Forum Description: Discussion board for Debenu Quick PDF Library and Debenu PDF Viewer SDK
URL: http://www.quickpdf.org/forum/forum_posts.asp?TID=3529
Printed Date: 24 Apr 24 at 3:33PM
Software Version: Web Wiz Forums 11.01 - http://www.webwizforums.com
Topic: Scroll pages under each other (Delphi)
Posted By: Amelie
Subject: Scroll pages under each other (Delphi)
Date Posted: 06 Dec 17 at 5:21PM
Hello  !is it possible please to see all pages of a PDF file as the attached image? Scroll pages under each other. How to do this please?  Thank you. Best regards. Amelie
|
Replies:
Posted By: Ingo
Date Posted: 06 Dec 17 at 5:37PM
|
Hi Amelie, you don't like reading in the online reference or the developer guide i think ;-) What you wanna get is the viewer scaling you can set inside your pdf-reader. If you want it immediately you can set the viewer preferences with QuickPDF - so the pdf-reader will open and display your pdf like you want it. Have a look at an older post of mine: http://www.quickpdf.org/forum/how-to-set-the-pdfviewerpreferences_topic1415.html ------------- Cheers, Ingo |
Posted By: Amelie
Date Posted: 06 Dec 17 at 6:49PM
|
Hi Ingo Thank you !! No, I already read it. In the example in the "Demo" directory, you assign the display of each page to a "Timing": procedure TfrmDemo.btnViewPrintLoadPDFClick (Sender: TObject); var Password: string; R: Integer; CanProceed: Boolean; BlankBM: TBitmap; begin if Assigned (ViewPrintQP) then begin ViewPrintQP.Free; ViewPrintQP: = nil; end; CanProceed: = False; if dlgOpen.Execute then begin ViewPrintQP: = TDebenuPDFLibrary.Create; if ViewPrintQP.UnlockKey (edtLicenseKey.Text) = 1 then begin if ViewPrintQP.LoadFromFile (dlgOpen.FileName, '') = 1 then begin CanProceed: = True; end else MessageDlg ('The PDF could not be opened.', MtError, [mbOK], 0); end else MessageDlg ('The license key is invalid or has expired.', MtError, [mbOK], 0); end; if CanProceed then begin ViewPrintPageNum: = 1; RenderPage; end else begin BlankBM: = TBitmap.Create; try imgPreview.Picture.Assign (BlankBM); finally BlankBM.Free; end; ViewPrintQP.Free; ViewPrintQP: = nil; end; end; How to have the display I want to get in a Timage? or do you have to display all the pages in another component? Thanks for your help |
Posted By: Ingo
Date Posted: 06 Dec 17 at 7:12PM
|
Hi, it's not as easy as you think about it ;-) Here's a sample you can use as a starting point: http://www.debenu.com/kb/render-page-using-dqpl/ In your sample your preview could only be an empty page (even the white of a blank page will be missed). If one page after the other shall be displayed at first you have to determine how many pages are in the pdf. Then you have to start a loop... selecting page after page with the rendering. Your single "RenderPage" won't do anything... ;-) ------------- Cheers, Ingo |
Posted By: Mitchells
Date Posted: 02 Jan 18 at 12:17PM
|
Ingo wrote:Posted By: Ingo
Date Posted: 03 Jan 18 at 12:53AM
|
Hi Mitchel, Amelies' prob is different. What she wanna see is possible if the window of the pdf-reader is large and the page zoom is small. What for a loop and for what do you need? Did you read already in the online reference and the developer guide? Perhaps we can help if you have an example... But do it in a new thread. Cheers and welcome here, Ingo ------------- Cheers, Ingo |