TPNGImage - Alphachannel in Bitmap anzeigen

[turboPASCAL]

Hi,

ich grübele schon eine gamze Weile darüber wie man aus einer PNG-Graphik die Alphamaske auslesen kann.
Bei der Lib PNGImage gibt es die Möglichkeit über PNGObject.AlphaScanline[YLine] darauf zuzugreifen. Leider konnte ich noch kein Beispiel finden wie es gemacht wird.

Bei meinen Versuchen ist es mir nicht gelungen ein vernünftiges Bild zu bekommen.

Mit Scanline und 32 -Bit Bitmaps kenn ich mich jetzt nicht so aus.

Delphi-Quellcode:

    for y := 0 to PNG.Height - 1 do
    begin
      p := PNG.AlphaScanline[y];
      p2 := MaskBmp.ScanLine[y];
      for x := 0 to (PNG.Width -1)*4 do
        p2[x] := p[x];
    end;

Könnte mir da jemand helfen ?


Die Gr32 Kompo. will ich nicht verwenden.