CopyRect/BitBlt auf TPNGImage zerstört farben

[Memnarch]

NAbend,
Mal wieder ein problem, dass keines sein dürfte.

Ich habe nen TPNGImage(von der platte geladen).

Jetzt habe ich einen Canvas und möchte gerne:

Canvas.CopyRect darauf ausführen. Das entresultat ist, dass das rauskopierte rechteck unglaublich farbverfälscht ist. so 16 farben würde ich schätzen. TPNGImage war 32bit mit alpha transparenz. Zielcanvas hab ich schon ausprobiert mit TBItmap, TPNGImage etc. Jeweils 32bit.

Resulttat ist immer kaputt.

Dagegen funktioniert Canvas.Draw ohne probleme.

EDIT: wer häts gedacht. DAs problem lag an der PNG. In GIMP stand der Farbmodus auf indiziert, das klappte nicht mit allen funktionen^^". Mit AlphaBlend bekomm ichs nun als Bitmap sauber auf den bildschirm. Irgendne methode wie copyrect/alphablend für TPNGImage?

MFG
Memnarch

[pustekuchen]

Hallo,

ich habe z.Z. das gleiche Problem. Habe hier 8Bit Bilder die beim Kopieren mit BitBlt farblich zerstört werden.

Habe leider nicht wirklich Einfluss auf die erstellten PNG-Bilder.

Wie genau hast du das mit AlphaBlend gemacht?

Ich habe es wie folgt versucht:

Delphi-Quellcode:

var
  bf : BLENDFUNCTION;
begin
  bf.BlendOp := AC_SRC_OVER;
  bf.BlendFlags := 0;
  bf.AlphaFormat := 0;  // use source alpha
  bf.SourceConstantAlpha := 0;
...

AlphaBlend(Map.Canvas.Handle, xCount,YCount,SIZE_TILE,SIZE_TILE,
          PngImage.Canvas.Handle, 0, 0,SIZE_TILE,SIZE_TILE,bf);
...

Jedoch sind die Farben dann ebenfalls zerstört und das ganze ist nun ein wenig Transparent :>

[Bummi]

Schau Dir mal GDI+ an ...