|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59 |
此方法安装了llPDFLib.v3.6
控件、对pdf左侧、右侧正文进行了操作。procedure
TForm1.Button1Click(Sender: TObject);var
node,nd1:TPDFOutlineNode; PW,ph:integer; bmp:TBitmap;begin bmp:=TBitmap.Create; bmp.LoadFromFile(‘d:\4601.bmp‘); sPdf:=TPDFDocument.Create(nil); //pdf文档信息 sPdf.DocumentInfo.CreationDate:=Now; sPdf.DocumentInfo.Producer:=‘Producer‘; sPdf.DocumentInfo.Author:=‘Author‘; sPdf.DocumentInfo.Creator:=‘Creator‘; sPdf.DocumentInfo.Keywords:=‘Keywords‘; sPdf.DocumentInfo.Subject:=‘subject‘; sPdf.DocumentInfo.Title:=‘Title‘; sPdf.FileName:=‘d:\tt.pdf‘; sPdf.Compression:=ctFlate; spdf.OwnerPassword:=‘123‘; sPdf.ProtectionEnabled:=True; sPdf.PageMode:= pmUseOutlines; sPdf.AutoLaunch:=true; sPdf.PageLayout:=plSinglePage; sPdf.BeginDoc; node:=sPdf.Outlines.Add(nil,‘目录1‘,TPDFGoToPageAction.Create,GB2312_CHARSET); node.Expanded:=True; TPDFGoToPageAction(node.Action).PageIndex:=0; nd1:=sPdf.Outlines.AddChild(node,‘第一章‘,TPDFGoToPageAction.Create,GB2312_CHARSET); nd1.Expanded:=true; TPDFGoToPageAction(nd1.Action).PageIndex:=0; pw:=sPdf.PageWidth; ph:=sPdf.PageHeight; sPdf.CurrentPage.SetActiveFont(‘黑体‘,[fsUnderline],50,GB2312_CHARSET); with
sPdf do begin Canvas.Font.Size:=50; Canvas.Font.Color:=clRed; Canvas.Font.Style:=[fsBold,fsUnderline]; Canvas.MoveTo(0,10); Canvas.LineTo(PW,10); SetTextAlign(sPdf.Canvas.Handle, TA_CENTER or
TA_TOP); //居中 Canvas.TextOut(Round(pw/2),30,‘新的故事就要开始了‘); Canvas.TextOut(50,30,IntToStr(pw)+‘,‘+inttostr(ph)); Canvas.MoveTo(0,50); Canvas.LineTo(PW,50); Canvas.Draw(100,100,bmp); end; sPdf.NewPage; nd1:=sPdf.Outlines.AddChild(node,‘第二章‘,TPDFGoToPageAction.Create,GB2312_CHARSET); nd1.Expanded:=true; TPDFGoToPageAction(nd1.Action).PageIndex:=1; sPdf.EndDoc; sPdf.Free; bmp.Free;end; |
原文：http://www.cnblogs.com/hejoy91/p/3527122.html