Kreis im transparenten TImage zeichnen

[DieFliege]

Hey,

ich habe es nun so gelöst:

Delphi-Quellcode:

procedure TForm1.btn_BildClick(Sender: TObject);
var
  MeinBild : TBitmap;

begin
  //--
  MeinBild := TBitmap.Create;
  MeinBild.LoadFromFile('meinbild.bmp');
  MeinBild.Canvas.Pen.Color  := clRed;
  MeinBild.Canvas.Pen.Width   := 3;
  MeinBild.Canvas.Brush.Style := bsClear;
  MeinBild.Canvas.Ellipse(100, 100, 300, 300);
  Image2.Picture.Bitmap.Assign(MeinBild);
end;

Danke an himitsu für den Denkanstoß zu Bitmap

LG DieFliege