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