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