问1、 执行方法1:
imagelist1.Getbitmap(1,bitbtn1.glyph)
结果:得到的图标是灰色的.
执行方法2:
Ico:Ticon;
ico:=Ticon.create;
imagelist1.getbitmap(1,ico)
BitBtn1.Glyph.Width := ico.Width;
BitBtn1.Glyph.Height := ico.Height;
BitBtn1.Glyph.Canvas.Draw( 0, 0, ico );
结果:得到的图标是灰色的.
? 何才能得到彩色的图标呢?问2、 LoadImage( HInstance, 'MAINICON', IMAGE_ICON, 0, 0, 0 )
中的参数 HInstance, 'MAINICON' , IMAGE_ICON 不太了解它们的含义?
问3、 最近下载了一个图形特效控件 Tpicshow 据说有 122中图形特效,但在
delphi7 中无法安装,提示 dsgntiff.dcu无法找到。(将其改为
designtiff 又会带来别的问题)
我不想装 delphi5.能又别的办法吗? 这里下载:
URL http://www.delphiit.com/down_view.asp?action=download&id=210
imagelist1.Getbitmap(1,bitbtn1.glyph)
结果:得到的图标是灰色的.
执行方法2:
Ico:Ticon;
ico:=Ticon.create;
imagelist1.getbitmap(1,ico)
BitBtn1.Glyph.Width := ico.Width;
BitBtn1.Glyph.Height := ico.Height;
BitBtn1.Glyph.Canvas.Draw( 0, 0, ico );
结果:得到的图标是灰色的.
? 何才能得到彩色的图标呢?问2、 LoadImage( HInstance, 'MAINICON', IMAGE_ICON, 0, 0, 0 )
中的参数 HInstance, 'MAINICON' , IMAGE_ICON 不太了解它们的含义?
问3、 最近下载了一个图形特效控件 Tpicshow 据说有 122中图形特效,但在
delphi7 中无法安装,提示 dsgntiff.dcu无法找到。(将其改为
designtiff 又会带来别的问题)
我不想装 delphi5.能又别的办法吗? 这里下载:
URL http://www.delphiit.com/down_view.asp?action=download&id=210
解决方案 »
- 我在“开始”-“运行”菜单中,输入“文件名 -install”可以安装nt服务。这种功能,用delphi编写代码如何实现呢?
- Delphi中接口、类、与继承的问题
- 绘图曲线时间控制
- IdTCPServer和IdTCPClient协议定义问题,我在服务端怎么分析客户段送过来的流
- 如何用代码区别windows2000和windows2000 server操作系统版本
- 50分紧急求助如何在xp下用一个按钮进行自动关闭计算机
- 请问:网上哪里有用中文详细介绍delphi控件属性,方法,事件的书籍资料可看?
- 一个最简单的问题,大家帮忙看看。谢了先!
- 压缩代码 delphi 7
- delphi 字符串加密问题,大牛们帮帮忙!!!!
- 关于显示字段的问题
- 急!100分请教fastreport的一个很简单的问题(但我不会:),解决后马上给分,分不够可在加
执行方法2:
Ico:Ticon;
ico:=Ticon.create;
imagelist1.getbitmap(1,ico)
BitBtn1.Glyph.Width := ico.Width;
BitBtn1.Glyph.Height := ico.Height;
BitBtn1.Glyph.Canvas.Draw( 0, 0, ico );
结果:得到的图标是灰色的.是正确的做法呀,但是图片放大了,效果就不好了,你要把imageList中的Width和Height设定为16,如果是32就大了!
试一试把