PNG Transparenz ohne Transparenzfarbe

[rwalper]

Hi,

gehe ich Recht in der Vermutung, dass Du auf dem Formular in der TImage-Komponente die Transparenz korrekt siehst?
Wenn ja, probiere einfach mal bitte Image.Picture.SaveToFile('C:\temp\Test.ico' und vermeide alle Zugriffe auf Picture.Bitmap...

[Satyr]

Ja, auf dem Formular sehe ich das korrekt. Also VOR dem speichern.
Leider ändert sich nichts, wenn ich so abspeichere.

[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;

[Satyr]

Ja, mit Konvertierung geht es bei mir (XE5) auch halbwegs. Nicht alle transparenten Bereiche werden erkannt, leider. Das sieht an manchen Kanten dann recht ausgefranst aus. Ich dachte eigentlich das in einer XE Variante TImage standardmäßig PNG speichern kann, so wie ja auch laden geht.