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!

Debenu Quick PDF Library - PDF SDK Community Forum Homepage
Forum Home Forum Home > For Users of the Library > General Discussion
  New Posts New Posts RSS Feed - Scroll pages under each other (Delphi)
  FAQ FAQ  Forum Search   Register Register  Login Login

Scroll pages under each other (Delphi)

 Post Reply Post Reply
Author
Message
Amelie View Drop Down
Beginner
Beginner


Joined: 10 Nov 17
Location: France
Status: Offline
Points: 8
Post Options Post Options   Thanks (0) Thanks(0)   Quote Amelie Quote  Post ReplyReply Direct Link To This Post Topic: Scroll pages under each other (Delphi)
    Posted: 06 Dec 17 at 5:21PM
Hello Smile!

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
Back to Top
Ingo View Drop Down
Moderator Group
Moderator Group
Avatar

Joined: 29 Oct 05
Status: Offline
Points: 2630
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ingo Quote  Post ReplyReply Direct Link To This Post 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

Back to Top
Amelie View Drop Down
Beginner
Beginner


Joined: 10 Nov 17
Location: France
Status: Offline
Points: 8
Post Options Post Options   Thanks (0) Thanks(0)   Quote Amelie Quote  Post ReplyReply Direct Link To This Post Posted: 06 Dec 17 at 6:49PM
Hi Ingo Smile

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 Smile



Back to Top
Ingo View Drop Down
Moderator Group
Moderator Group
Avatar

Joined: 29 Oct 05
Status: Offline
Points: 2630
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ingo Quote  Post ReplyReply Direct Link To This Post 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

Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 11.01
Copyright ©2001-2014 Web Wiz Ltd.

Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. AboutContactBlogSupportOnline Store