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