图片上显示透明文字

 

// 图片上显示透明的文字
// 直接用.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