Function TWPTextFinder.SetFoundImage(imageobj:TWPObject) : TWPTextObj
Unit: WPRTEDefs
Class: WPRTEDefs.TWPTextFinder
Parameters
-
imageobj:TWPObject
Returns
The type of the result value is TWPTextObj.
Description
To replace the text which has been found with an image use this function. It returns a reference to the reference object (
var fname : String;
ImageObj : TWPOImage; // implemented in unit WPObj_Image
WPRichText1.WriteObjectMode:=wobrtf; // save like Word does
WPRichText1.Finder.ToStart;
WPRichText1.Finder.WildCard:='*';
while WPRichText1.Finder.next ('Picture:[*]') do // filename in brackets
begin
fname:=WPRichText1.Finder.FoundText;
fname:=ExtractFilePath(Application.EXEName) +
Copy(fname, 10, Length(fname)-10);
if FileExists(z) then
begin
ImageObj:=TWPOImage.Create(WPRichText1.Memo.RTFData);
try
ImageObj.LoadFromFile(z);
WPRichText1.Finder.SetFoundImage(ImageObj);
except
ImageObj.Free;
end;
end;
end;