Delphi-PRAXiS - Delphi TImage Canvas Transparent

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi TImage Canvas Transparent (https://www.delphipraxis.net/9868-timage-canvas-transparent.html)

TImage Canvas Transparent

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.

Re: TImage Canvas Transparent

Das funktioniert bei mir problemlos:

Delphi-Quellcode:

			  with Form1.Canvas do begin

    brush.style:=bsclear;

    TextOut(10,10,'TEST');

  end;