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.
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
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.
Code:
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;
Schonmal danke im Voraus.
Grüße, Dennis
Comment