Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!
![]() |
Scroll pages under each other (Delphi) |
Post Reply ![]() |
Author | |
Amelie ![]() Beginner ![]() Joined: 10 Nov 17 Location: France Status: Offline Points: 13 |
![]() ![]() ![]() ![]() ![]() 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
|
|
![]() |
|
Ingo ![]() Moderator Group ![]() ![]() Joined: 29 Oct 05 Status: Offline Points: 3529 |
![]() ![]() ![]() ![]() ![]() |
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 |
|
![]() |
|
Amelie ![]() Beginner ![]() Joined: 10 Nov 17 Location: France Status: Offline Points: 13 |
![]() ![]() ![]() ![]() ![]() |
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 ![]() |
|
![]() |
|
Ingo ![]() Moderator Group ![]() ![]() Joined: 29 Oct 05 Status: Offline Points: 3529 |
![]() ![]() ![]() ![]() ![]() |
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 |
|
![]() |
|
Mitchells ![]() Beginner ![]() ![]() Joined: 18 Dec 17 Status: Offline Points: 1 |
![]() ![]() ![]() ![]() ![]() |
Edited by Mitchells - 16 Nov 21 at 2:22PM |
|
![]() |
|
Ingo ![]() Moderator Group ![]() ![]() Joined: 29 Oct 05 Status: Offline Points: 3529 |
![]() ![]() ![]() ![]() ![]() |
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 |
|
![]() |
Post Reply ![]() |
|
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |
Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. About — Contact — Blog — Support — Online Store