使用ActiveSkin 进行换肤后原有Image控件中的图形不能显示取消皮肤后又恢复正常请问各位高手如何解决使用ActiveSkin 换肤后 Image控件不能显示图像的问题?
我尝试使用 ActiveSkin 中的SkinImage 对象没能完成。
请教!
帮忙 UP 者有分.
小弟这厢有礼!
我尝试使用 ActiveSkin 中的SkinImage 对象没能完成。
请教!
帮忙 UP 者有分.
小弟这厢有礼!
解决方案 »
- 双击文件得到它的路径
- 如何实现一个增强型的任务管理器:能记录长期的历史数据、支持重播
- 在程序里创建一个execel表,为什么默认是在我的文档里啊?有什么方法可以将其放在当前程序的目录里?
- inno setup/istool 安装程序 简单问题 100分
- 从今天开始我要想你们学习了
- 大讨论《如何更好地实现网络监视网络上的PC使用情况》可以另开贴子给分。。。
- 关于tqrchart
- 请问pascal语言中的反余弦和反正弦函数是什么?
- :???在dbgrid框中,如何用上箭头从第一条记录移到最后一条记录;用下箭头从最后一条记录移到第一条记录???
- delphi 的奇怪问题
- 请问如何自动获得本机得IP?
- 如何合并两个图片?
难道真的没人会吗? 好着急啊!程序如下:procedure TImageList.Button1Click(Sender: TObject);
var
SkinImage1: ISkinImage;
mySkinImage: CoSkinImage;
mySourceRect,myDestRect: SkinRect;
Info:SkinImageInfo;
myColor:SkinARGB;
myPoint:SkinPoint;
begin SkinImage1:=mySkinImage.Create; SkinImage1.LoadFile('d:\test10.bmp');
SkinImage1.GetInfo(Info); mySourceRect.Left:=0;
mySourceRect.Top:=0;
mySourceRect.Right:=Info.Width;
mySourceRect.bottom:=Info.Height; myPoint.x:=100;
myPoint.y:=200; mycolor.Blue:= 0;
mycolor.Alpha:= 0; SkinImage1.BitBlt(skOverwrite, mySourceRect,SkinImage1,myPoint); //skAlphaBlendend;
请教!
帮忙 UP 者有分.
小弟这厢有礼!
如何解决使用ActiveSkin 换肤后 Image控件不能显示图像的问题?