Insert gig in richview

The following is an encapsulated function:

Procedure richviewaddpicture (RichEdit: trichviewedit; const tagstr: string;
Stream: tmemorystream; isgif: Boolean );
VaR
Lgraphic: tgraphic;
Begin
If isgif then
Begin
Lgraphic: = tgifimage. Create;
End else
Begin
Lgraphic: = tbitmap. Create;
End;

Stream. Position: = 0;
Lgraphic. loadfromstream (Stream );
RichEdit. insertpicture (tagstr, lgraphic, rvvabaseline );
End;

After you use this image to add images, the GIF image remains static and needs to be set in two other places.

1. The animationmode of richviewedit must be set to rvanionformat.

2. Add the rvgifanimate2007 unit reference in the PAS file where richviewedit is located.

Insert gig in richview