Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#1

Transparent zeichnen

  Alt 24. Sep 2012, 08:50
Ich sehe wieder vor lauter Bäume den Wald nicht mehr. Ich will eine Bitmap transparent zeichnen, etwas was ich seit über 15 Jahren mit Delphi mache und plötzlich weiß ich nicht wieso es nicht klappt.

Delphi-Quellcode:
  with Image1.Picture do
  begin
    Bitmap.Width := 200;
    Bitmap.Height := 200;
    Bitmap.Canvas.FillRect(Bitmap.Canvas.ClipRect);
    Bitmap.Canvas.Ellipse(Bitmap.Canvas.ClipRect);

    Bitmap.Transparent := True;
    Bitmap.TransparentColor := Bitmap.Canvas.Pixels[0, 0];
    Self.Canvas.Draw(0, 0, Bitmap);
  end;
  Mit Zitat antworten Zitat