谁知道怎样在RichEdit上显示Gif动画。。。 ( 积分: 100 )

谁知道怎样在RichEdit上显示Gif动画。。。
显示静态的gif就可以，但是动画的gif就不行了。求

谁知道怎样在RichEdit上显示Gif动画。。。
显示静态的gif就可以，但是动画的gif就不行了。求

用RxLib最新的控件吧，支持GIF格式

RxRichEdit支持的gif好像是动不了的，探讨！

连WORD都动不了,况且RICHEDIT乎?

真想搞定可以这样,作个包装了GIF动画的控件(activex),以插入对象的形式插进去。
没作过，未必一定成功。

如果只是用richEdit显示数据,可换用Tbrowser控件,显示gif,flash都可以

需要在RichEdit显示和编辑。有没有可以支持可以动的gif的RichEdit控件？

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2914522

你们谁用过Rxlib的RxRichEdit?为什么我把Gif加到RxRichEdit里面动都不动? (20分)
分类：控件 - 使用 xhyph (2002-01-22 7:06:00)
var
Pict: TPicture;
begin
with FOpenPictureDialog do begin
if Execute then begin
Pict := TPicture.Create;
try
Pict.LoadFromFile(FileName);
Clipboard.Assign(Pict);
Editor.PasteFromClipboard;
finally
Pict.Free;
end;
end;
end;
end;

这是代码,是Rxlib自带的Demo,它的也不能添加Gif

datoncg (2002-01-22 7:52:00)
没用过，但听说过。

yzhshi (2002-01-22 18:48:00)
如果rx控件不行的话，可以到cakk.delphibbs.com下载一个gifImage控件。
然后在你的程序里面加上Uses gifImage，放一个Image，添加Gif图象，就可以了。
不过，有时他好像和RX Image有些冲突，还有，不知道是否对Delphi6提供支持。据说D6本身已经支持动画了。

datoncg (2002-01-23 9:50:00)
D6的Image本身已经支持动画了,是吗？


xhyph (2002-01-23 18:12:00)
Image?
可是我要把Gif加在RichEdit里面啊

yzhshi (2002-01-23 18:17:00)
RichEdit？
那真的不好办了。
刚才我实验了，将双击可以看见动画的Gif放到了Word中，没动呀。。。

jbas (2002-01-23 18:21:00)
如果对位置不是太高的要求的化，动态生成一个panel,gifimage控件，浮再上面就行了。
馊主意。。。[][]

xhyph (2002-02-14 21:00:00)
看来是不可能那样做了

谁知道?

kthy (2002-02-15 0:18:00)
我就是这么用的，没有任何问题。可能是你的TGIF不兼容。
可以加上以下一句。跟踪看看：
Pict.LoadFromFile(FileName);
if (Pict<> nil) and (not Pict.Empty) then begin //设置断点看能否进入
Clipboard.Assign(Pict);
Editor.PasteFromClipboard;
end；


xhyph (2002-02-16 15:57:00)
算了,给分


datoncg-5,jbas-5,kthy-5,yzhshi-5,的回答最终被接受。

用RichView怎样加会动的gif？有没有例子

例子：加一个Timer就可以了，另外，要uses GifImage。
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
RVStyle, RVScroll, RichView, RVEdit, PtblRV, RVMisc, CtrlImg, RVUndoStr, RVUni,
{$IFDEF RICHVIEWDEF3}
jpeg,
{$ENDIF}
{$IFDEF RICHVIEWDEF4}
ImgList,
{$ENDIF}
Clipbrd, StdCtrls, ExtCtrls, ComCtrls, Menus, OleCtnrs,
RVTable, Buttons, CRVData, CRVFData, RVERVData, RVItem, RVFuncs, [blue]gifImage[/blue];


procedure TForm1.mitPictureClick(Sender: TObject);
var gr: TGraphic;
pic: TPicture;
begin
OpenDialog1.Title := 'Inserting Image';
{$IFDEF RICHVIEWDEF3}
OpenDialog1.Filter := 'Graphics(*.bmp;*.gif;*.wmf;*.emf;*.ico;*.jpg)|*.bmp;*.wmf;*.emf;*.ico;*.jpg|All(*.*)|*.*';
{$ELSE}
OpenDialog1.Filter := 'Graphics(*.bmp;*.wmf;*.emf;*.ico)|*.bmp;*.wmf;*.emf;*.ico|All(*.*)|*.*';
{$ENDIF}
if OpenDialog1.Execute then
try
pic := TPicture.Create;
try
pic.LoadFromFile(OpenDialog1.FileName);
gr := RV_CreateGraphics(TGraphicClass(pic.Graphic.ClassType));
gr.Assign(pic.Graphic);
finally
pic.Free;
end;
if gr<>nil then
RichViewEdit1.InsertPicture('',gr,rvvaBaseLine);
if gr is TGifImage then TGifImage(gr).Animate:=true;
except
Application.MessageBox(PChar('Cannot read picture from file '+OpenDialog1.FileName), 'Error',
MB_OK or MB_ICONSTOP);
end;
end;

procedure TForm1.timer2Click(Sender: TObject);
begin
self.Timer1.Enabled:=not timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
RichViewEdit1.Repaint;
end;
...
initialization
// We need to register classes in order to load them from rvf files
RegisterClasses([TButton, TEdit, TOleContainer]);
TPicture.RegisterFileFormat('gif','Gif Image',TGifImage);
RegisterClass(TGifImage);
end.

哪里有破解的richview控件？

我有。有源代码的。

to xuxiaohan:
可以发一份RichView for D7的破解版给我吗？
email:xiaobai8011@126.com

D6 的， D7 的没有哦。

谁知道怎样在RichEdit或RxRichEdit上插入OLE对象

RxRichedit 本来即可以插入 ole对象，你看看他的代码就知道了

究竟在ExRichEdit里面插入gif对象是怎样做的？？？

问题是， richedit20 好像只能插入 Ole对象， 能不能插入个 Tbutton？ 还有Tinage， TGifImage？

楼主，怎么样， 我基本上实现了， 只是想做到比 QQ 的好点， QQ 的闪！