文字の背景を透過するには？

解決

JILL 2005-11-07 07:22:08 No: 18484

Canvas.TextOutで文字を描画するときに
文字以外の部分を透過させるにはどうすればいいのでしょうか？

junki 2005-11-07 07:33:53 No: 18485

TextOut の背景はブラシです。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Brush.Color := clYellow;
  Canvas.Brush.Style := bsClear; //これで透過
  Canvas.TextOut(10,10,'Test');
end;

JILL 2005-11-07 07:39:35 No: 18486

できました。ありがとうございました。