delphi 图片上显示透明文字

图片上显示透明文字

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