TImage: Transparenz erscheint weiß

[benny800]

Hallo liebe Forengemeinde,

mein Problem gab es glaub ich schon öfters und ich hab mir schon einiges dazu durchgelesen, allerdings bin ich daraus als Delphi-Neuling nicht wirklich schlauer geworden.

Ich möchte zwei TImage Komponenten genau übereinandern legen. In der unteren ist ein Bild angegeben. In das obere Bild soll beim Klick auf einen Button einfach nur ein schwarzes Rechteck gezeichnet werden. Das Rechteck soll dann einen Teil des unteren Bilder abdecken, der Rest allerdings sichtbar sein.

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  with bmp do
  begin
    bmp.Height :=  200;
    bmp.Width := 200;
    canvas.Brush.Color := clBlack;
    canvas.Rectangle(50,50,150,150);
    TransparentColor := clWhite;
    Transparent := true;
 end;
    Image2.Canvas.Draw(0,0,bmp);
end;

Es zeichnet mit nun zwar ein schwarzes Rechteck in Image2, allerdings ist der Rest immer noch weiß ausgefüllt. Wie kann ich das verhindern?

Schonmal danke im Voraus.

Grüße, Dennis

[Jens Jung]

Hallo Dennis,

lt. Delphi Hilfe funktioniert "Transparent" bei einem TBitmap nur, wenn dem Element kein Pinsel (Brush) zugewiesen ist.
Warum erstellst Du das TBitmap nicht gleich in der Größe des schwarzen Rechtecks, anstatt es größer zu machen und nur einen Teil schwarz zu malen?

Gruß
Jens