Forum: Multimedia
Delphi
by rwalper,
20. Jul 2015
Bei mir funktioniert das, allerdings mit XE8:
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 );
Forum: Multimedia
Delphi
by rwalper,
20. Jul 2015
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...