图片上显示透明文字

最新推荐文章于 2020-03-29 17:21:47 发布

weixin_33910759

最新推荐文章于 2020-03-29 17:21:47 发布

阅读量175

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/bsoom/archive/2009/11/13/1602831.html

//图片上显示透明的文字
//直接用.Canvas.Brush.Style:=bsClear;
//然后.Canvas.TextOut(x,y,'文字显示透明');
procedure TForm1.Button1Click(Sender: TObject);
var
  bitBuf:TBitmap;
begin
  bitBuf := TBitmap.Create;
try
    bitbuf.LoadFromFile('测试图片.bmp');
    Self.Canvas.Draw(0,0,bitbuf);
    bitbuf.Transparent := True;
    bitbuf.TransparentColor := clWhite;    //文字显示透明
    bitbuf.Canvas.font.color := clBlue;     //文字颜色
    bitbuf.Canvas.TextOut(10,10,'这样就是透明的字了！');
    Self.Canvas.Draw(0,0,bitbuf);
finally
    bitBuf.Free;
end;
end;

转载于:https://www.cnblogs.com/bsoom/archive/2009/11/13/1602831.html