我正在使用Delphi 10.3.3 中的SynPdf库生成 PDF 文件。我创建了很多页面,一切都完成后,我需要在第一页中写一些东西(在保存到文件之前)。我怎样才能做到这一点?
这是我的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
lPdf : TPdfDocumentGDI;
MyPages: array of TPdfPage;
begin
lPdf := TPdfDocumentGDI.Create;
try
lPdf.VCLCanvas.Brush.Style:=bsClear;
lPdf.VCLCanvas.Font:=Form1.Font;
setlength(MyPages,3);
MyPages[0]:=lPDF.AddPage;
lPDF.VCLCanvas.TextOut(50, 100, MyString1);
MyPages[1]:=lPDF.AddPage;
lPDF.VCLCanvas.TextOut(50, 100, MyString2);
MyPages[2]:=lPDF.AddPage;
lPDF.VCLCanvas.TextOut(50, 100, MyString3);
// TextOut something into the first page here
lPdf.SaveToFile(MyFileName);
finally
lPdf.Free;
end;
end;