I'm using a WPRichText to edit a document template that can hold a path to a image file to embed. If the file cannot be found, is it possible to show some text or an image (like a red X) that indicates the file is missing, and would not be saved with the document? When the document saves, the image location would be empty.
Thank you
Ken
There is the event OnTextObjectPaint which can be used for this. In my projects I sometimes use it event to load the image data since thic can increase the sepped when scrolling through a database with textes which also load images.
OnTextObjectPaint can be used to show
procedure TForm1.WPRichText1TextObjectPaint(Sender: TObject;
pobj: TWPTextObj; toCanvas: TCanvas; XRes, YRes, X, Y, W, H, BASE: Integer;
PageRef: TWPVirtPage; Modes: TWPTextObjectPaintModes;
const CanvasExtraAttr: TWPPaintExtraParams;
var ContinueMode: TWPTextObjectPaintResult);
begin
if (pobj.ObjType=wpobjImage) and (pobj.ObjRef=nil) then
begin
toCanvas.Brush.Color := clRed;
toCanvas.Rectangle(Rect(X,Y, X+W, Y+H));
ContinueMode := ContinueMode + [wpobjPaintRedCross];
end
else include(ContinueMode,wpObjPaintContents);
end;Fantastic - thanks much!
I have a followup question. I have a mailmerge document, where one of the fields is a link to an image. If this image file cannot be found, we would like to display something that indicates the file is missing - a red X, a "File not found" message, etc. However, when we save or print, this indicator should not display, the missing image area should be empty. Is this possible?
Thanks!
Hi,
I think I answered this per e-mail as well.
You can use the event OnTextObjectPaint event to modify the display. There is a demo installed under Demos which does it.