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文件的支持!当然程序没有运行的时候是看不见动画效果的! |