这个问题困扰了很久,看看大家有没有什么好方法我在imglist: TImageList index 0上有一个图片, 在某些可以使用ImageList的控件比如Toolbutton指定ImageIndex=0可以正确的透明显示
现在,我试图在运行期动态给Image1: TImage载入TImageList上面同一个index 0上面的图象,使用了如下方法
1.
imglist.GetBitmap(0, Image1.Picture.Bitmap);
2.
定义Bitmap: TBitmap; MS: TMemoryStream;
Bitmap := TBitmap.Create;
MS := TMemoryStream.Create;
imglist.GetBitmap(0, Bitmap);
Bitmap.SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
3.
Bitmap := TBitmap.Create;
imglist.GetBitmap(0, Bitmap);
Image1.Picture.Assign(Bitmap);以上方法都能显示,但是背景变成白色,而不是希望的透明
所有的Image1.Picture.Bitamp.Transparent等属性我都有尝试过,但是背景都是白色
请问这是为什么(请大家试一下)
现在,我试图在运行期动态给Image1: TImage载入TImageList上面同一个index 0上面的图象,使用了如下方法
1.
imglist.GetBitmap(0, Image1.Picture.Bitmap);
2.
定义Bitmap: TBitmap; MS: TMemoryStream;
Bitmap := TBitmap.Create;
MS := TMemoryStream.Create;
imglist.GetBitmap(0, Bitmap);
Bitmap.SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
3.
Bitmap := TBitmap.Create;
imglist.GetBitmap(0, Bitmap);
Image1.Picture.Assign(Bitmap);以上方法都能显示,但是背景变成白色,而不是希望的透明
所有的Image1.Picture.Bitamp.Transparent等属性我都有尝试过,但是背景都是白色
请问这是为什么(请大家试一下)
解决方案 »
- delphi怎麼送出後就自動發一封mail到使用者手上
- 我用TWebbrowse显示一网站内容,在IE里显示没有问题,在TwebBrowse里Navigate(url)显示时,会弹出一错误对话框,脚本错误,请问是怎么回
- 数据库查询后的显示问题
- 请问TSHFileOpStruct这个类要使用那个包
- 关于Table的几个属性的问题?在线等!
- 我的这个托盘程序为什么在任务栏中有图标,但是窗体确是最小化的
- 怎样叛断注册表中HKEY_CURRENT_USER根下Software\Mysoft目录是否存在?
- Indy中查询DNS域名的问题,绝对崭新问题!
- 为什么出现这个提示?
- 关于报表表格的问题(31分)
- 大家帮我看看啊
- 我要装双系统,听说有个软件是可以测试双系统的,这样就不怕系统崩溃了,忘了名子了,哪位高人知道啊。
然后再向ImageList中添加位图就可以了。
问题在于ImageList对位图做了Mask处理
这个应该可以实现的 啊
Imagelist先吧Masked设置为false,然后一定要重新载入你的图标,再画到image里就透明了。