Re: Are there some pictures ?

Return to index

Author

Message

rafaellop

Posted: 09/19/2002 12:25:22

Hello,

Is the function below optimal ? Perhaps it may be useful

for somebody :)

function ArePicturesInRichView: boolean;

var

   i : integer;

   itemtype : integer;

begin

     Result := False;

     for i := 0 to aRichView.ItemCount-1 do

     begin

          itemtype := aRichView.GetItemStyle(i);

          if (itemtype = rvsPicture) or (itemtype = rvsHotSpot) or (itemtype = rvsHotPicture) then

          begin

               Result := True;

               break;

          end;

     end;

end;

Regards,

Rafal