0

我正在使用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;
4

0 回答 0