PNG im IE(7) nicht darstellbar

[Bernhard Geyer]

Ich erzeuge PNG's (PNG-Lib von LMD - Basiert auf PNGImage von Gustavo), welche jedoch im IE nicht dargestellt werden können.

Mein Code ist zur Erstellung der Transparenz ist:

Delphi-Quellcode:

    PngObj.RemoveTransparency;
    PngObj.CreateAlpha;

    RValue := GetRValue(TransColor);
    GValue := GetGValue(TransColor);
    BValue := GetBValue(TransColor);

    for y := 0 to PngObj.Height-1 do
    begin
      ScanLine      := PngObj.Scanline[y];
      ScanlineAlpha := PngObj.AlphaScanline[y];

      if Assigned(ScanlineAlpha) then
      begin
        for x := 0 to PngObj.Width-1 do
        begin
          //RGB-Wert des Pixels stimmt mit Transparenzfarbe überein
          if (ScanLine^.rgbtRed = RValue) and (ScanLine^.rgbtGreen = GValue) and (ScanLine^.rgbtBlue = BValue) then
          begin
            ScanlineAlpha^[x] := 0;
          end;

          Inc(Scanline);
        end;
      end;
    end;

Hat jemand eine Ahnung was dem PNG für den IE fehlt?

[Bernhard Geyer]

Gelöst. Fehler im Quellcode der Methode .RemoveTransparency

Fix:

Delphi-Quellcode:

...
    case ColorType of
      {Palette uses the TLMDPNGChunktRNS to store alpha}
      COLOR_PALETTE, COLOR_RGB, COLOR_GRAYSCALE:
      begin
       TRNS := Chunks.ItemFromClass(TLMDPNGChunkTRNS) as TLMDPNGChunkTRNS;
       if TRNS <> nil then Chunks.RemoveChunk(TRNS)
      end;
...