|
THPDFPara Class |
顶部 上一页 下一页 |
THPDFPara 为 PDF 文档提供段落对象
单元 HPDFDoc.pas
说明 书写段落文本时,用 THPDFPara 设置对齐、bidi 方向、与下段同页、孤行与寡行约束 文件承载的页面暂存、诊断记录和 PDF/UA 段落辅助请参见 Constrained Streaming Layout(文件承载的页面暂存、诊断记录与 PDF/UA 段落辅助方法)
使用示例:
uses ... HPDFDoc, ...
type ... HPDF: THotPDF; ...
procedure TForm1.ParaButtonClick(Sender: TObject); var ParaIndex: Integer; begin HPDF.AutoLaunch := true; // PDF 文件将自动显示 HPDF.FileName := 'ParaDemo.pdf'; HPDF.BeginDoc; // 创建 PDF 文件
ParaIndex := HPDF.CreateParagraph( 20, jtLeft, 60, 60, 30, 30 ); // 创建段落
HPDF.ParaAutoAddPage := true; // 段落将自动添加页面 HPDF.BeginParagraph( ParaIndex ); // 打开主段落 HPDF.CurrentPage.SetFont( 'Arial', [fsBold], 14 ); // 设置段落字体 HPDF.CurrentParagraph.Justification := jtCenter; // 设置段落居中对齐 HPDF.CurrentPage.SetRGBFillColor ( clGray ); HPDF.CurrentParagraph.ShowText( 'VCL component for Delphi for creating PDF documents.' ); // 输出段落文本 HPDF.CurrentPage.SetRGBFillColor ( clBlack ); HPDF.CurrentParagraph.NewLine; // 换行 HPDF.CurrentParagraph.NewLine; // 换行 HPDF.CurrentParagraph.Justification := jtLeft; // 设置段落左对齐 HPDF.CurrentParagraph.ShowText ( 'HotPDF is PDF Creation Library for Delphi & C++Builder.' ); // 输出段落文本 HPDF.EndParagraph; // 关闭当前段落
HPDF.EndDoc; // 关闭 PDF 文件 end; |