Re: Deleting all bitmaps in a document (TDBRichViewEdit)

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/31/2002 18:23:15

>

> I've tried this code but it delete all in the document. It has worked

> like clear method. Perhaps lack to verify if the item is bitmap (or

> something like this) but I do not know how.

Oops, really :)

procedure DeleteBMPS(RVData: TCustomRVData);

var i: Integer;

      ps: Boolean;

begin

  for i := RVData.Items.Count-1 downto 0 do

    if RVData.GetItemStyle(i) = rvsPicture then begin

      ps := RVData.IsParaStart(i);

      RVData.DeleteItems(i,1);

      if ps and

        (i<RVData.Items.Count) and

        not RVData.IsParaStart(i) then

        RVData.GetItem(i).SameAsPrev := False;

    end;

end;