Power PDF - Jpg picture Delphi

Question

I'm a beginner in Delphi, but I'm using Embarcadero for create a DLL to make a pdf report. I'm using the powerPDF component for create the report.

On my report, I have a first page, and all next pages will be the same, except a different picture.

formPDF.graphBox.width := 570;
        formPDF.graphBox.height := 343;
        formPDF.graphBox.Picture.LoadFromFile('C:\Users\rroustan\Documents\PostProcess - JMP\graphs\histogram.jpg');
        formPDF.graphBox.Repaint;

        resultFunctionMarge :=
          getMargeLeft(570, formPDF);
        formPDF.graphBox.Left := resultFunctionMarge;


        formPDF.PReport1.Print(formPDF.PRPage2);



        formPDF.graphBox.width := 350;
        formPDF.graphBox.height := 487;
        formPDF.graphBox.Picture.LoadFromFile('C:\Users\rroustan\Documents\PostProcess - JMP\graphs\boxplot.jpg');
        formPDF.graphBox.Repaint;
        resultFunctionMarge :=
          getMargeLeft(350, formPDF);
        formPDF.graphBox.Left := resultFunctionMarge;


        formPDF.PReport1.Print(formPDF.PRPage2);

My problem is when I try to print my second picture, the old picture stay and I have the same in page 2 and 3. I think I need to make a refresh of my picture but I try :

• Refresh
• Repaint
• Destroy

I had check many times that the pictures have the same name, extension, etc.. But nothing change. Still have the same picture on the page 2 and 3.

Thanks per advance, Sincerely,

Romain

Answer 1

To reuse control TPRJpegImage with another picture you should set property SharedImage to false. For me this work :)