TImage Canvas Transparent

[toms]

Hi!

Wenn ich Text auf ein TImage (Canvas) ausgebe, wird
der Bildhintergrund weiss.
Wie kann ich den Bildhintergrund transparent behalten?

Folgender Code funktioniert nicht:
(und alle Varianten davon, einmal den Brush.Style setzen,
einmal nicht, usw...)

Delphi-Quellcode:

 Image1.Canvas.Pen.Color := clBlack; 
 SetBkMode(Image1.Canvas.Handle, TRANSPARENT); 
 Image1.Canvas.Brush.Style := bsClear; 
 Image1.Canvas.TextOut(2, 3, 'Test');

Auch die Transparent Eigenschaft beim TImage auf True zu setzen hilft nichts.

[Mario]

Das funktioniert bei mir problemlos:

Delphi-Quellcode:

  with Form1.Canvas do begin
    brush.style:=bsclear;
    TextOut(10,10,'TEST');
  end;