关于图象 小弟没有做过图象处理,请教各位一个问题:有A,B两张图片,希望将图片B覆盖到图片A上,合并成一张图片,同时要求图片B的指定颜色部分(如 白色部分)透明。请给个思路,最后有代码 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 是不是有两个DC进行alpha混合? 如果图片B是Bitmap就好;例子:procedure TForm1.Button1Click(Sender: TObject);var Bitmap : TBitMap;begin Bitmap := TBitmap.Create; try with Bitmap do begin LoadFromFile('xxx.bmp'); Transparent := True; TransParentColor := 指定颜色; Form1.Canvas.Draw(0,0,BitMap); TransparentMode := tmAuto; Form1.Canvas.Draw(50,50,BitMap); end; finally Bitmap.Free; end;end; 上例中Form1.Canvas换成图片A.Canvas就完成混合叠加了。 我用AlphaBlendValue来做 可以么? 如何 调用 字体文件变成资源文件 ? 为什么我的服务不启动!(在线等!在线送分) 如何做出像QQ或MSN聊天对话框那样的界面效果啊 获取双网卡IP问题 个一个菜问题! 怎样转换数据库文件的路径。 33 分 征 delphi6.0 的序列号 和 key 为什么这通信程序显示windows文件夹信息会出错? 一个还很不错的互联网数据库应用组件,速度,难度. 告我一个下载EASY CD刻录软件的地址! (2) 求delphi 8注册码 数据字格式化
例子:
procedure TForm1.Button1Click(Sender: TObject);var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
with Bitmap do begin
LoadFromFile('xxx.bmp');
Transparent := True;
TransParentColor := 指定颜色;
Form1.Canvas.Draw(0,0,BitMap);
TransparentMode := tmAuto;
Form1.Canvas.Draw(50,50,BitMap);
end;
finally
Bitmap.Free; end;
end;