Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.90 KB | None | 0 0
  1. pdfDoc := TDocument.Create;
  2. docLibrary := TPDFDocumentLibrary.Create;
  3.  
  4. pdfDoc.PageSetup.PageSize :=psA4;
  5. pdfDoc.PageSetup.PageBorderWidth:=1;
  6. pdfDoc.PageSetup.PageBorderLeft:=True;
  7. pdfDoc.PageSetup.PageBorderRight:=True;
  8. pdfDoc.PageSetup.PageBorderTop:=True;
  9. pdfDoc.PageSetup.PageBorderBottom:=True;
  10. pdfDoc.PageSetup.PageBorderLeftMargin:=5;
  11. pdfDoc.PageSetup.PageBorderRightMargin:=5;
  12.  
  13. AddText := TText.Create;
  14. AddText.Alignment:=taCenterAlign;
  15. AddText.Font.Size :=9;
  16. AddText.Font.Name := 'Arial';
  17. AddText.Font.Style := [fsBold];
  18. AddText.Lines.Add('DLMS Configuration');
  19. pdfdoc.Contents.Add(AddText);
  20. AddBlankSpace;
  21. // I want to insert Line (like -----) here
  22. AddText := TText.Create;
  23. AddText.Alignment:=taLeftAlign;
  24. AddText.Font.Size :=9;
  25. AddText.Font.Name := 'Arial';
  26. AddText.Lines.Add('Family Name '+ConfigFamily.FamilyName);
  27. pdfdoc.Contents.Add(AddText);
  28. AddBlankSpace;
  29. // I want to insert Line (like -----) here
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement