RichEdit content not rendered in TPrintPreview

[neubert]

Hi,

I am in the process of replacing my own less feature-rich previewer by a version using TPrintPreview.

I placed a TPrintPreview and TThumbnailPreview component on my form plus a TRichEdit and essentially copied the RenderRichEdit method (minus the images) from the RichPrint demo.

I load a file into the RichEdit. This displays fine. But the pages are not rendered correctly. More or less pages are created according to the size of the file, the two frames are shown on each page, but no content is visible within a frame. Tried with several files. The same files are shown correctly from the RichPrint demo, though.

I am stuck here. Stepping through the PaintRichText() method in Preview.pas and comparing the interim results between my previewer and the RichPrint demo did not yield obvious issues.

Any ideas how to tackle the issue?

Kind regards,
Boris