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 |
Post Options
Thanks(0)
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: 3524 |
Post Options
Thanks(0)
|
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 |
Post Options
Thanks(0)
|
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: 3524 |
Post Options
Thanks(0)
|
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 |
Post Options
Thanks(0)
|
Edited by Mitchells - 16 Nov 21 at 2:22PM |
|
Ingo
Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3524 |
Post Options
Thanks(0)
|
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