Ist es möglich, ein TBitmap32 mitsamt Transparenz mit
PNGDelphi als PNG zu speichern?
Hab mir schon probiert, eine Funktion zu basteln, die das erledigen soll, haut aber nicht hin...
Delphi-Quellcode:
procedure SaveBitmap32toPNGFile(SrcBitmap32: TBitmap32; Filename: String);
var
PNGObject: TPNGObject;
begin
PNGObject := nil;
try
PNGObject := TPNGObject.Create;
PNGObject.Canvas.Handle := SrcBitmap32.Canvas.Handle;
PNGObject.SaveToFile(Filename);
finally
if Assigned(PNGObject) then PNGObject.Free;
end;
end;
Aufgerufen wird das ganze mit dem Bitmap eines TImage32, was auf der Form liegt und auch ein Bild beinhaltet.
Es wird auch eine PNG Datei erstellt, allerdings 8Byte groß und nur mit Header...
Und ich hab das dumpfe Gefühl, da würde die Transparenz auch nicht mitkopiert werden, fals es denn funktionieren würde...
Hat jemand eine Idee wie man das lösen könnte?