01type
02  IPDFPage = interface(IDispatch)
03    ['{749FB131-80FE-46E9-8330-22C1DC346FE7}']
04    function Get_Parent: IPDFPage; safecall;
05    function Get_Title: WideString; safecall;
06    procedure Set_Title(Value: WideString); safecall;
07    function Get_Width: Double; safecall;
08    procedure Set_Width(Value: Double); safecall;
09    function Get_Height: Double; safecall;
10    procedure Set_Height(Value: Double); safecall;
11    function CreateFont(const FontName: WideString; Size: Double; Bold: WordBool; 
12      Italic: WordBool): IPDFFont; safecall;
13    procedure Perform(const Command: WideString); safecall;
14    function Get_LineWidth: Double; safecall;
15    procedure Set_LineWidth(Value: Double); safecall;
16    procedure Line(X1: Double; Y1: Double; X2: Double; Y2: Double); safecall;
17    procedure Rectangle(X1: Double; Y1: Double; Width: Double; Height: Double; 
18      Fill: WordBool); safecall;
19    function Get_LineCap: TPDFLineCap; safecall;
20    procedure Set_LineCap(Value: TPDFLineCap); safecall;
21    function Get_LineJoin: TPDFLineJoin; safecall;
22    procedure Set_LineJoin(Value: TPDFLineJoin); safecall;
23    procedure SetDash(DashArray: OleVariant; Phase: Integer); safecall;
24    procedure SetColor(R: Integer; G: Integer; B: Integer); safecall;
25    procedure PerformColor(const Command: WideString); safecall;
26    procedure Poly(Points: OleVariant; Fill: WordBool); safecall;
27    procedure Image(Image: OleVariant; X: Double; Y: Double; Width: Double; 
28      Height: Double; Transparent: WordBool); safecall;
29    procedure DrawGrid; safecall;
30    procedure Arc(X: Double; Y: Double; Radius: Double; StartAngle: Double; 
31      EndAngle: Double; FillSegment: WordBool; FillSector: WordBool); safecall;
32    procedure Curve(Points: OleVariant; Fill: WordBool); safecall;
33    procedure HyperLink(const URI: WideString; X: Double; Y: Double; Width: Double; 
34      Height: Double); safecall;
35    procedure Pattern(X1: Double; Y1: Double; Width: Double; Height: Double; 
36      PatternPointSize: Double; Percentage: Integer); safecall;
37    procedure Bezier(Points: OleVariant; Fill: WordBool); safecall;
38    procedure XObject(Data: OleVariant); safecall;
39    procedure SetColorCMYK(C: Double; M: Double; Y: Double; K: Double); safecall;
40    procedure LocalLink(const Page: IDispatch; DestinationX: Double; 
41      DestinationY: Double; DestinationWidth: Double; DestinationHeight: Double; 
42      X: Double; Y: Double; Width: Double; Height: Double); safecall;
43    property Parent: IPDFPage read Get_Parent;
44    property Title: WideString read Get_Title write Set_Title;
45    property Width: Double read Get_Width write Set_Width;
46    property Height: Double read Get_Height write Set_Height;
47    property LineWidth: Double read Get_LineWidth write Set_LineWidth;
48    property LineCap: TPDFLineCap read Get_LineCap write Set_LineCap;
49    property LineJoin: TPDFLineJoin read Get_LineJoin write Set_LineJoin;
50  end;