Png auf Png kopieren

[dominikkv]

Ähm... komm grad nicht weiter :/

Also ich habe ein TImage in dem ein png mit Transparenz liegt. Ich habe ein zweites TImage mit einem zweiten png mit Transparenz. Dieses 2te Image soll nun auf das erste gemalt werden. Wie mache ich das am besten?

Delphi-Quellcode:

First.Canvas.Draw(0, 0, Second.Picture.Bitmap);
BitBlt(First.Picture.Bitmap.Handle, 0, 0, Second.Width, Second.Height, Second.Picture.Bitmap.Handle, 0, 0, SRCCOPY);

Es kommt immer die Fehlermeldung: "Bild kann nur geändert werden, wenn es ein Bitmap enthält"
Also habe ich versucht das in ein Bitmap umzuwandeln:

Delphi-Quellcode:

procedure ConvertToBitmapImg(Image: TImage);
var TmpPic: TPicture;
begin
  TmpPic := TPicture.Create;
  try
    TmpPic.Bitmap.Assign(Image.Picture.Graphic);
    Image.Picture.Bitmap.Assign(TmpPic.Bitmap);
  finally
    TmpPic.Free;
  end;
end;

...sieht scheußlich aus :pale:

jemand ne Idee?