Hi
I am trying to insert images into letter template with
Code
var txtobj: TWPTextObj;
begin
if OpenPictureDialog2.Execute and (WPRichText1.ActiveParagraph <> nil) then
begin
WPRichText1.SetFocus;
txtobj := WPRichText1.Memo.RTFData.TextObjects.Insert(
WPLoadObjectFromFile(
WPRichText1.Memo.RTFData,
OpenPictureDialog2.FileName), 1440, 1440);
// Code to change the graphic, for example change width and height ot the
'PositionMode'
if txtobj <> nil then
begin
end;
WPRichText1.Refresh;
end;
end;
Alles anzeigen
What I need to know is how can I change the 1440,1440 into the correct size for the picture. I can see the OpenPictureDialoge displays this but I can not find how to do this?
Can you help?