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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
with
FLTK.Widgets.Groups.Windows;
package FLTK.Devices.Surfaces.Paged is
type Paged_Surface is new Surface_Device with private;
type Paged_Surface_Reference (Data : not null access Paged_Surface'Class) is
limited null record with Implicit_Dereference => Data;
type Page_Format is
(A0, A1, A2, A3, A4, A5, A6, A7, A8, A9,
B0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,
C5E, DLE, Executive, Folio, Ledger,
Legal, Letter, Tabloid, Envelope);
type Page_Layout is
(Potrait, Landscape, Reversed, Orientation);
Page_Error : exception;
package Forge is
function Create
return Paged_Surface;
end Forge;
procedure Start_Job
(This : in out Paged_Surface;
Count : in Natural);
procedure Start_Job
(This : in out Paged_Surface;
Count : in Natural;
From, To : in Positive);
procedure End_Job
(This : in out Paged_Surface);
procedure Start_Page
(This : in out Paged_Surface);
procedure End_Page
(This : in out Paged_Surface);
procedure Get_Margins
(This : in Paged_Surface;
Left, Top, Right, Bottom : out Integer);
procedure Get_Printable_Rect
(This : in Paged_Surface;
W, H : out Integer);
procedure Get_Origin
(This : in Paged_Surface;
X, Y : out Integer);
procedure Set_Origin
(This : in out Paged_Surface;
X, Y : in Integer);
procedure Rotate
(This : in out Paged_Surface;
Degrees : in Float);
procedure Scale
(This : in out Paged_Surface;
Factor : in Float);
procedure Scale
(This : in out Paged_Surface;
Factor_X, Factor_Y : in Float);
procedure Translate
(This : in out Paged_Surface;
Delta_X, Delta_Y : in Integer);
procedure Untranslate
(This : in out Paged_Surface);
procedure Print_Widget
(This : in out Paged_Surface;
Item : in FLTK.Widgets.Widget'Class;
Offset_X, Offset_Y : in Integer := 0);
procedure Print_Window
(This : in out Paged_Surface;
Item : in FLTK.Widgets.Groups.Windows.Window'Class;
Offset_X, Offset_Y : in Integer := 0);
procedure Print_Window_Part
(This : in out Paged_Surface;
Item : in FLTK.Widgets.Groups.Windows.Window'Class;
X, Y, W, H : in Integer;
Offset_X, Offset_Y : in Integer := 0);
private
type Paged_Surface is new Surface_Device with null record;
overriding procedure Finalize
(This : in out Paged_Surface);
pragma Inline (Start_Job);
pragma Inline (End_Job);
pragma Inline (Start_Page);
pragma Inline (End_Page);
pragma Inline (Get_Margins);
pragma Inline (Get_Printable_Rect);
pragma Inline (Get_Origin);
pragma Inline (Set_Origin);
pragma Inline (Rotate);
pragma Inline (Scale);
pragma Inline (Translate);
pragma Inline (Untranslate);
pragma Inline (Print_Widget);
pragma Inline (Print_Window);
pragma Inline (Print_Window_Part);
end FLTK.Devices.Surfaces.Paged;
|
