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?

markieren

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:

zusammenfalten · markieren

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

jemand ne Idee?

Png auf Png kopieren

Png auf Png kopieren

Forumregeln