Draw Text onto Existing PDF

Hi Tim,

I have checked your problem. The difference between the two files is caused by the fact that one of the document alter the page coordinate system and when you believe to paint something on 500/100 you realy paint somewhere else.

This is not so bad if you know what is happening. For you I have a solution. In your sample program you need to add 2x lines of code:

        QPDox.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\Test_Scan.pdf');

        // <Marian note=”avoid creation of additional layer”>

        //     By default QuickPDF will add a so called

        //     safe layer which create additional content stream.

        //     Because we want to modify the original content we

        //     don’t need this feature.

        QPDox.UseUnsafeLayers(1);

        // </Marian>

        with QPdox do

        begin

            for i := 1 to PageCount do

            begin

                SelectPage (i);

                // <Marian note=”save&restore canvas status”>

                SetPageContent('q'#13#10 + // save canvas status

                    Trim(GetPageContent) + // previous content

                    #13#10'Q'#13#10);      // restore canvas status

                // </Marian>

                DrawText(500, 100, 'Page : ' + inttostr(i));

                // now this should work as well :-)

            end;

            SaveToFile(ExtractFilePath(ParamStr(0)) + '\Test_Scan_Out.pdf');

            // this does not work

        end;