PNG Transparenz ohne Transparenzfarbe

[rwalper]

Bei mir funktioniert das, allerdings mit XE8:

Delphi-Quellcode:

var
procedure SavePng(Image1: TImage);
var
  Png: TPngImage;
begin
  // Speichern
  Png := TPngImage.CreateBlank( COLOR_PALETTE, 8, 32, 32);
  try
    Png.Canvas.Draw(0, 0, Image1.Picture.Graphic );
    Image1.Picture.SaveToFile( 'C:\Temp\Test1.png' );
  finally
    Png.Free;
  end;
end;