Text auf Canvas von transparentem PNG schreiben -Wie?

[torud]

Hallo Wissende,

mit folgendem Code erstelle ich eine transparente png-Datei.

Leider kann ich den Text nicht in der Ausgabe sehen. Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  pngText : TPNGObject;
begin
  pngText := TPNGObject.CreateBlank(COLOR_RGBALPHA, 16, 1920, 1080);

  pngText.Canvas.Font.Size := 55;
  pngText.Canvas.Brush.Style:=bsClear;
  pngText.Canvas.Font.Color := clRed;
  pngText.Canvas.Font.Name := 'Arial';
  pngText.Canvas.Font.Style:=[fsBold];
  pngText.Canvas.TextOut(0, 0, 'Hello World');

  pngText.SaveToFile('c:\temp\text_test.png');

end;

Ich nutze das PngImage in version 1.564