[Andorra] AdBitmap in PNG mit Alphakanal umwandeln

[Codewalker]

Der Titel sagt schon fast alles. Ich möchte ein Element einer TAdImageList in ein TPNGImage packen. Dabei soll aber der Alphakanal erhalten bleiben. Habe schon mit ScanLine und allem möglichen rumgespielt, aber es will einfach nicht. Ich habe es geschafft aus der TAdImageList das Bild und den Alphakanal als getrennte Bitmaps zu erhalten. Aber wie setzte ich die jetzt korrekt zusammen zu einem PNG?

[igel457]

Sollte eigentlich so gehen:

Delphi-Quellcode:

var
  adbmp: TAdBitmap;
  png: TPNGImage;

[...]
  adbmp.AssignTo(png);
[...]

[Codewalker]

Ich hatte es nur mit Assign versucht und da meckert er, dass TAdBitmap und TPersistent inkompatibel sind. So wie du es gezeigt hast funktioniert es (wobei es erstaunlich langsam ist - etwa eine halbe Sekunde pro Bild (256x256 Pixel))