Erst mal Danke für den Ansatz, das klappt auch relativ gut nur
das Ich jetzt noch das Problem mit dem zusammenfügen der beiden
Bitmaps hab.
Vieleicht hat da wer noch einen Tip.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Rect:TRect;
begin
BMP1:=TBitmap.Create;
BMP1.Width:=300;
BMP1.Height:=300;
BMP1.LoadFromFile('C:\front.bmp');
BMP:=TBitmap.Create;
BMP.PixelFormat := pf24Bit;
BMP.Canvas.Brush.Color:=clYellow;
BMP.Width:=300;
BMP.Height:=300;
BMp.Transparent:=True;
BMP.TransparentColor:=clFuchsia;
BMP.Canvas.Pen.Width:=2;
BMP.Canvas.Brush.Color:=clFuchsia;
BMP.Canvas.Pen.Color:=clblack;
BMP.Canvas.Ellipse(200,0,0,200);
Bmp.SaveToFile('C:\test.bmp');
Image1.Picture.Bitmap.Assign(BMP);
end;