Creating a TWPOImage_ThumbView

I whould like show some images into a right side of text. Sample

I have 4 images to show on right and the text on left. I need some blank space between images but i dont want that any text between images.

🖼 www.microprocess.com.br

I'm think inherited TWPOImage, put a list of strings (path and filename) and paint all images into this obj. So I put just a wpoimage relative to page on right side.

Anyone can help me with this object or with other Idea?

Hi,

you can put in a TWPOImage, load the graphic can make it relative to the paragraphs. Use the RelY property to move it into the right margin.

TxtObj.Mode := [wpobjRelativeToParagraph];
TxtObj.Wrap := wpwrNone;
TxtObj.RelY := PageWidth-LeftMargin-obj.Width

Julian

but, I cannot have text between images, but I want a blank space beteween thems. How to resolve this?

You can define a right indent. That will make sure you have enough margin for the images and avoid the text to flow into the empty space.

The images can be outside of the text area.

Julian

Very thanks julian, but there is a problem yet!

When the user write more text that one page i need all width.

On second page do not have images, and he will need select text and change the right margin to works. I dont want he need do this!

Hi,

If you add the images in code you can also change the right indent in program code.

Julian

no, i can't.
This is a template and the images are mergefields

You can using the ParentPar reference available for each merge filed object.

How i can use this?

Hi,

You say: This is a template and the images are mergefields

So, since I have to guess what you are really doing, I can give you a hint about how to do it in event OnMailMergeGetText:

this object is passed to OnMailMergeGetText event

There you have access to
property StartInspObject: TWPTextObj;

which is the start insertpoint object.

This object has this properties

with one of which is

property ParentPar: TParagraph;

Using the ParentPar you can change the indent,

Contents.StartInspObject.ParentPar.ASet(WPAT_IndentRight, 1440)

Julian