You are not logged in.
var
lPdf: TPdfDocumentGDI;
lPage: TPdfPage;
begin
lPdf := TPdfDocumentGDI.Create;
lPage := lPdf.AddPage;
try
lPdf.VCLCanvas.Font.Name := '黑体'; //Display incorrect
//lPDF.VCLCanvas.Font.Name := '宋体'; //Display correct
lPdf.VCLCanvas.Font.Size := 20;
lPdf.VCLCanvas.TextOut(100, 100, '测试内容');
lPdf.SaveToFile('C:\Syntest.pdf');
finally
lPdf.Free;
end;
end;
Offline
RAD Studio 10.2, mORMot 1.18.4952
Offline