604
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
___NULL 2010-02-01
- 打赏
- 举报
[Quote=引用 11 楼 lzf87 的回复:]
按ydlchina说的尝试了下，出现链接错误。
是不是还需要添加什么头文件？
[/Quote]
把 gifimage 的代码目录添加到 CB 的 Option -> Path and Directories 的 Include 和 Lib(如果有的话)
按ydlchina说的尝试了下，出现链接错误。
是不是还需要添加什么头文件？
[/Quote]
把 gifimage 的代码目录添加到 CB 的 Option -> Path and Directories 的 Include 和 Lib(如果有的话)
lzf87 2010-02-01
- 打赏
- 举报
按ydlchina说的尝试了下，出现链接错误。
是不是还需要添加什么头文件？
是不是还需要添加什么头文件？
Waiting4you 2010-02-01
- 打赏
- 举报
如果不要动画的话，可以考虑用CxImage，优点是不用安装组件。
lzf87 2010-02-01
- 打赏
- 举报
不过我在BCB6上安装后确实和joyous说的一样，但打开的时候机器就卡死在那了。我的机器配置还挺高的。4核加4G内存.
lzf87 2010-02-01
- 打赏
- 举报
谢谢大家了。这几天被抓去做其他的事了。所有这边暂时先放着了。也没来管理这帖。
不管是否可以我先结贴吧...
不管是否可以我先结贴吧...
我不懂电脑 2010-01-27
- 打赏
- 举报
bcb2010集成了gif
draculamx 2010-01-27
- 打赏
- 举报
gifimage 可以的。。楼主仔细看一下说明和DEMO吧。。。
不过这个控件对 CPU 的占用率就。。。。。
不过这个控件对 CPU 的占用率就。。。。。
周药师 2010-01-26
- 打赏
- 举报
gifimage 控件里本省就带有Demo的
lz自己看看吧
lz自己看看吧
xjq2003 2010-01-26
- 打赏
- 举报
来学习一下
___NULL 2010-01-26
- 打赏
- 举报
用BCB打开CrnGifImage.bpk-->Compile-->Install，安装后在组件面板没有任何显示。在窗体上放置一个TImage，点击Picture属性旁边的按钮，可以看到支持的文件格式已经由原来的
All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)
改变为：
All (*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)
OK.
All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)
改变为：
All (*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)
OK.
ydlchina 2010-01-26
- 打赏
- 举报
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//更改
Image1->Picture->LoadFromFile("c:\\demo.gif");//载入动画
}
ydlchina 2010-01-26
- 打赏
- 举报
//先下载安装gifimage动画控件,在窗体上放置,Timage控件,调用如下
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Image1->Parent->DoubleBuffered=true;//打开缓冲区
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)//播放
{
TGIFImage *p=dynamic_cast<TGIFImage *>( Image1->Picture->Graphic );
if(p)
{
p->PaintStart();
Image1->Picture->Assign(p);//不知為何BCB6要加上這一句,BCB5沒試過
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)//停止
{
TGIFImage *p=dynamic_cast<TGIFImage *>( Image1->Picture->Graphic );
if(p) p->PaintStop() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Picture->LoadFromFile("c:\demo.gif");//载入动画
}
以前gif和png图片都是不能显示的，需要借助第三方组件。后来Borland公司购买了gifimage和pngimage，现在在2009中已经集成了，真是造福大众啊。
今儿个使用了一把，挺好用，不过操作gif图片稍微有点麻烦：
#include <GIFImg.hpp>
Image1->Picture->LoadFromFile(“wait.gif");
((TGIFImage *)Image1->Picture->Graphic)->Animate = true;
