Problema con SetBkMode (fondo transparente)

[ecfisa]

Hola dudignac.

Probá de esta forma:

Código Delphi [-]
...
begin
  Image:= TImage.Create(Self);
  with Image do
  begin
    Width := 380;
    Height:= 220;
    Canvas.FloodFill(1, 1, Panel1.Color, fsBorder);
    Canvas.Pen.Color:= clBlack;
    Canvas.Pen.Width:= 2;
    Canvas.Pen.Style:= psSolid;
    Canvas.MoveTo(0,0);
    Canvas.LineTo(380, 220);
    Transparent:= True;
    Parent:= Panel1;
  end;
end;

Un saludo.