PNG-Bild mit Transparenz erzeugen

[Uwe Raabe]

Diese kleine Änderung sollte helfen:

Delphi-Quellcode:

cc := ARGB(0, r, g, b);       // Alpha wird getrennt gesetzt - siehe zwei Zeilen weiter
Result.Pixels[x, y] := cc;            // hier nicht Canvas nehmen!
Result.AlphaScanline[y][x] := a;