| shirly11985
42845
|
2012/10/18 16:10:44 |
| 在组件板上木有看见，后来看了评论才知道原来是在image中用的~谢谢楼主 |
| superpc
41628
|
2011/6/5 20:46:41 |
| 下不了啊，没资源，能发我一份吗？1040671362@qq.com 谢啦 |
| 510558553
39078
|
2009/11/23 21:08:05 |
我想请问大家如何如以让这控件支持delphi2010呀,如有会改的加我QQ:510558553
我想请教一下.要是改好发给我^0^ 谢谢咯,我的邮箱
xiao5168516888@126.com |
| heavy_snow
36824
|
2009/2/26 14:15:45 |
| 不错，很好使！ |
| qsmile
31842
|
2007/11/16 10:08:19 |
| 你們用錯了，只要引用這個 pas,就可以在 Image 中 Load Gif 了。 |
| robot5
28749
|
2007/4/8 23:23:08 |
| TGIFImage现在是3.0版了，但源码开始收费了！ |
| beqab
28264
|
2007/3/2 12:00:43 |
| cpu占用在via700+xpe系统下难以让人忍受。 |
| snb_ywx
27574
|
2006/12/29 17:26:28 |
| 不错，可能会比较占CPU资源吧！ |
| ok999ok
27046
|
2006/11/8 9:48:52 |
| 是控件,它增强了delphi的Image控件,安装好后直接支持动画GIF |
| sunc110
25694
|
2006/8/28 8:51:47 |
| delphi6用这个出错误啊。有d6用的吗？ |
| ls_prog
24496
|
2006/6/23 17:23:55 |
| 还是盒子的东东最全!!! |
| delphiming
24329
|
2006/6/15 15:13:47 |
| 装了,如何可以将它移除? |
| cnnbwhq
21899
|
2006/3/4 15:22:29 |
uses Gifimage;
procedure TForm1.FormCreate(Sender: TObject);
var
MyGif:TGIFImage.Create;
begin
DoubleBuffered := true; //加入这一句试试，可消除闪烁
MyGif:=TGIFImage.Create;
MyGif.LoadFromFile('2.gif');
Image1.Canvas.Lock;//先锁
MyGif.Paint(Image1.Canvas,Image1.ClientRect,[goAsync,goAnimate,goLoop,goDirectDraw]);
Image1.Canvas.UnLock;//解锁
end; |
| comerose
19781
|
2005/12/6 14:28:34 |
偶下了一个 效果不错 感谢楼主~~
请大家注意这个不是控件 是一组GIF的操作类 简单示范使用方法如下
uses Gifimage;
procedure TForm1.FormCreate(Sender: TObject);
var
MyGif:TGIFImage.Create;
begin
MyGif:=TGIFImage.Create;
MyGif.LoadFromFile('2.gif');
Image1.Canvas.Lock;//先锁
MyGif.Paint(Image1.Canvas,Image1.ClientRect,[goAsync,goAnimate,goLoop,goDirectDraw]);
Image1.Canvas.UnLock;//解锁
end;
你试试行不！ |
| chen4765654
19686
|
2005/12/1 20:45:31 |
| 用mmzmagic同志代码要闪烁，请问怎么解决？？ |
| isxuzhu
19285
|
2005/11/18 15:36:15 |
怎么会一闪一闪的啊？
用mmzmagic同志的方法会一闪一闪的 |
| factsoft
19058
|
2005/11/9 17:54:19 |
来过N次了
我的每次进步都离不开盒子的帮助
忠心的谢谢站长，谢谢各位楼主 |
| mmzmagic
15973
|
2005/6/27 14:39:01 |
。。。不好意思申明那里贴错了
是
var
MyGif:TGIFImage; |
| mmzmagic
15972
|
2005/6/27 14:37:31 |
偶下了一个 效果不错 感谢楼主~~
请大家注意这个不是控件 是一组GIF的操作类 简单示范使用方法如下
uses Gifimage;
procedure TForm1.FormCreate(Sender: TObject);
var
MyGif:TGIFImage.Create;
begin
MyGif:=TGIFImage.Create;
MyGif.LoadFromFile('2.gif');
MyGif.Paint(Image1.Canvas,Image1.ClientRect,[goAsync,goAnimate,goLoop,goDirectDraw]);
end; |
| comerose
15304
|
2005/6/1 4:25:53 |
| 这个文件的安装,不是一个组件(不会在组件面板中出现),而是直接与TImage组件结合,增加了对GIF文件的支持!当然程序没有运行的时候是看不见动画效果的! |
