RichView中插入動態Gif圖像注意事項

 

以下是封裝的一個函數：

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;

用這個增加圖片後，Gif圖片是靜止不動的，還有兩個地方需要設置

1. RichViewEdit的AnimationMode 必須設置成 rvaniOnFormat

2. 在RichViewEdit所在的Pas文件中，加入RVGifAnimate2007單元引用

 

本例子是在Delphi2007 Update3下測試通過