参考vc知识库8的"图像合成技术"一文
下载地址www.vckbase.com
下载地址www.vckbase.com
解决方案 »
- 大虾们:偶用TSQLQuery,插入记录,如何判断重复关键字插入?详情如下:
- 哪里可以看到某个用户的积分阿,我想看看csdn的borland的奖品分配是否公正
- 请问在sql server中的如下语句 select id from table1 where name='yang'在delphi的adoqurey的sql中如何写
- 关于进销存报表视图设计问题
- 在运行一个主窗体,如何让子窗体不显示,只有当主窗体中进行操作(比如点击按钮才出现)?
- 怎样播放AVI和GIF两种格式的文件?
- 关于Dll创建和释放MDI
- 关于installshield中如何在安装程序时同时进行数据库的安装?有代码的最好:)高分悬赏
- 请问如何让我的程序响应功能F键
- 在主程序中加入类是不是要手动加入
- 一个关于Qreport的很急的问题
- quickrep预览错误!
Image1.picture为第一幅图。
image2.picture为第二幅图。image2.Transparent:=True;
image1.canvas.Brush.Style := bsClear;
imaqge1.canvas.Draw(10,20,Image2.Picture.Bitmap);
小弟,初学。
image2 双击 选择图章图片 image2.Transparent:=True目的是为了去掉透明色。procedure tform1.button1.click(sender:tobject);
begin
image1.canvas.Brush.Style := bsClear;//image2不覆盖image1
imaqge1.canvas.Draw(10,20,Image2.Picture.Bitmap); //在image1上画图章图片
end;
你可以随便选两个大小图片试试就知道怎么回事了。
Bitmap.LoadFromFile(Path);
Bitmap.TransparentColor:=clWhite;
Bitmap.TransparentMode:=tmFixed;
Bitmap.Transparent:=True;
BitmapTmp:=TBitmap.Create;
BitmapTmp.Width:=Bitmap.Width;
BitmapTmp.Height:=Bitmap.Height;
BitmapTmp.Canvas.Font.Color:=clBlack;
BitmapTmp.Canvas.Font.Size:=16;
BitmapTmp.Canvas.Font.Name:='宋体';
BitmapTmp.Canvas.Font.Style:=BitmapTmp.Canvas.Font.Style+[fsBold];
BitmapTmp.Canvas.TextOut(70,145,UserName);
BitmapTmp.Canvas.Font.Size:=12;
BitmapTmp.Canvas.Font.Style:=BitmapTmp.Canvas.Font.Style-[fsBold];
BitmapTmp.Canvas.TextOut(30,165,DateTimeToStr(Now));
BitmapTmp.TransparentColor:=clWhite;
BitmapTmp.TransparentMode:=tmFixed;
BitmapTmp.Transparent:=True; StretchBlt(Bitmap.Canvas.Handle,15,20,Bitmap.Width-15,Bitmap.Height-20,BitmapTmp.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,SRCAND) ;
Form1.Canvas.Draw(0,0,Bitmap);这是我以前的一个例子,在一章图片上打入用户名和时间,
TransparentColor主要是这个属性,看你把什么颜色设为透明色,
透明色的部分,在图片拷贝试就忽略了!