Removing all graphics

NormandP

What would be the best way to delete all the graphics stored in a single rich text file currently in a TWPRichText component.

Is there an option also I can set to prevent those graphics to be imported?

NP

support

Hi,

When You save the text to RTF You can specify the formatstring "RTF-NoImages" to create data without the images.

Julian

NormandP

Julian,

You answered my second question. But what about the first one.

Lets assume that I have a document loaded with 30 graphics in those, how can I find all those the graphics and remove them?

NP

support

Hi,

You can use this code:

Code

var i : Integer;
begin
     for i:=0 to WPRichText1.TextObjects.ObjCount-1 do
     if WPRichText1.TextObjects.ObjList[i].IsImage then
     begin
      WPRichText1.TextCursor.MoveTo(WPRichText1.TextObjects.ObjList[i], false);
      WPRichText1.InputString(#127);
    end;
exit;