Ein Rechteck auf TBitmap.Canvas mit transparenter Farbe?

[Ben1]

Beispiel aus der Hilfe, zum transparenten Zeichnen einer Bitmap.

Code:

procedure TForm1.Button1Click(Sender: TObject);

var
  Bitmap : TBitMap;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do begin
      LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
      Transparent := True;
      TransParentColor := BitMap.canvas.pixels[50,50];
      Form1.Canvas.Draw(0,0,BitMap);
      TransparentMode := tmAuto;
      Form1.Canvas.Draw(50,50,BitMap);
    end;
  finally
    Bitmap.Free;

  end;
end

Oder suchst du einfach danach -> canvas.brush.style:= bsclear;
Das zeichnet das nächste Objekt ohne Inhalt, nur den Rahmen.

Wenn du Durchscheineffekte haben willst dann nur über ein OR des Bildschirminhaltes oder manuelle Pixelmanipulation