[Firemonkey] Canvas als PNG mit Transparenz speichern

[milos]

Hallo,

danke für die antwort!
Leider bekomme ich damit wieder eine Leere Datei die aber die richtige grösse hat, jedoch keine gezeichneten Pixel enthält.

Ich zeichne nun direkt auf ein Bitmap und rufe deine Funktion so auf:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  LBitmap : TBitmap;
  LStream : TFileStream;
begin
  LBitmap := TBitmap.Create; // erstelle bitmap
  LBitmap.Width := 50; // setze grösse
  LBitmap.Height := 50;

  LBitmap.Canvas.Fill.Color := $FFFF0000; // brush color auf rot setzen

  LBitmap.Canvas.DrawRect(RectF(0,0,10,50),0,0,[],1); // rectangle zeichnen

  LStream :=  TFileStream.Create('./DP.png', fmCreate or fmOpenWrite); // file stream erstellen

  S4Bmp_ToStream( LBitmap, LStream, '.png', 85); // funktionsaufruf
end;

Mache ich was falsch?

Im Anhang habe ich noch die DP.png angehängt die erzeugt wird. Sie ist da, aber eben halt ein leeres Bild... :/

Freundliche Grüsse und vielen dank für die Hilfe