Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#1

TPNGImage - Alphachannel in Bitmap anzeigen

  Alt 22. Apr 2006, 12:09
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.
Miniaturansicht angehängter Grafiken
image1_123.gif  
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat