OnMailMergeGetText Image PositionMode

Lepr8

There is the possibility to specify the position(relative page, relative paragraph, relative text, ecc) of a image at run merge?

Code

MailMergeGetText(Sender: TObject;
  const inspname: String; Contents: TWPMMInsertTextContents);
 var textobject : TWPOIMAGE;
 begin


        if contents.CurrentObject= nil then
        begin
            create:=true;
//            textobject :=TWPOImage.create(wprtf.Memo.RTFData);
            textobject :=TWPOImage.create(wprtf);
           end
        else
           textobject:=TWPOImage(contents.CurrentObject);

         textobject.Graphic:=jp;


 if create then
          begin
                  textobject.WidthTW:=WPCentimeterToTwips(varBol.width);
                textobject.HeightTW:=WPCentimeterToTwips(varBol.height);
              contents.Obj:=textobject;


          end
          else
          begin
              Contents.CurrentObject.WidthTW:=WPCentimeterToTwips(varBol.width);
              Contents.CurrentObject.HeightTW:=WPCentimeterToTwips(varBol.height);
          end;
end

Alles anzeigen

Thanks.

Regards

support

Hi,

You will have to add a new and positioned image inside the MailMerge event and leave "Contents" unchanged. You can do most operations with the TWPRichText inside the event, since the contents of the field are selected when OnMailMergeGetText is beeing called.

Julian

Lepr8

Hi,

i used in event mailmerge this code :

Code

Imageobject :=TWPOImage.create(wprtf);                  textObject:=TWPTextObj.Create;                  textObject.ObjRef:=Imageobject;                  textObject._SetObjType(wpobjImage);                  textObject.PositionMode:=wpotPage;                  textObject.Wrap:=wpwrBoth;                  contents.Obj:=textObject;

but so i don't see the image.... if i replace

Code

contents.Obj:=textObject;

with

Code

contents.Obj:=imageObject;

i see the image but the positionMode doesn't work.
Any suggestions ?

REgards

Lepr8

Can help me, please ?

support

The textobject belogs to a paragraph can may not be created like this.

as I said:

Zitat

You will have to add a new and positioned image inside the MailMerge event and leave "Contents" unchanged. You can do most operations with the TWPRichText inside the event, since the contents of the field are selected when OnMailMergeGetText is beeing called.

While the program is inside the event handler you can insert an image into the text using the usual (cursor) methods and NOT use Contents.