Re: Deleting all bitmaps in a document (TDBRichViewEdit)

Return to index

Author

Message

Tavo

Posted: 11/01/2002 21:50:41

Hello

Sergey Tkachenko wrote:

> 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;

Thanks Sergey, I have used your code instead of mine.

Tavo.