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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
object configimpression: Tconfigimpression
Left = 888
Height = 404
Top = 187
Width = 396
ActiveControl = spinpourcentagehorizontal
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Configuration de la page pour l''impression'
ClientHeight = 404
ClientWidth = 396
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '0.9.29'
object GroupBox1: TGroupBox
Left = 7
Height = 313
Top = 7
Width = 153
Caption = 'Position'
ClientHeight = 294
ClientWidth = 149
TabOrder = 0
object radiogroupehorizontal: TRadioGroup
Left = 20
Height = 126
Top = 14
Width = 111
AutoFill = True
Caption = 'Horizontale'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 107
ClientWidth = 107
ItemIndex = 2
Items.Strings = (
'Droite'
'Gauche'
'Centré'
)
TabOrder = 0
end
object RadioGroupevertical: TRadioGroup
Left = 22
Height = 138
Top = 151
Width = 105
AutoFill = True
Caption = 'Verticale'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 119
ClientWidth = 101
ItemIndex = 2
Items.Strings = (
'Haut'
'Bas'
'Centré'
)
TabOrder = 1
end
end
object GroupBox2: TGroupBox
Left = 7
Height = 69
Top = 327
Width = 153
Caption = 'Nombre de copies'
ClientHeight = 50
ClientWidth = 149
TabOrder = 1
object Label1: TLabel
Left = 9
Height = 18
Top = 9
Width = 57
Caption = 'Nombre:'
ParentColor = False
end
object Spinnombrecopies: TSpinEdit
Left = 63
Height = 25
Top = 4
Width = 48
MinValue = 1
TabOrder = 0
Value = 1
end
end
object GroupBox3: TGroupBox
Left = 174
Height = 106
Top = 8
Width = 211
Caption = 'Taille (en % de la page)'
ClientHeight = 87
ClientWidth = 207
TabOrder = 2
object Label2: TLabel
Left = 7
Height = 18
Top = 7
Width = 108
Caption = 'Horizontalement'
ParentColor = False
end
object Label3: TLabel
Left = 16
Height = 18
Top = 41
Width = 90
Caption = 'Verticalement'
ParentColor = False
end
object spinpourcentagehorizontal: TSpinEdit
Left = 128
Height = 25
Top = 2
Width = 57
TabOrder = 0
Value = 100
end
object spinpourcentagevertical: TSpinEdit
Left = 128
Height = 25
Top = 38
Width = 57
TabOrder = 1
Value = 100
end
end
object RadioGrouporientation: TRadioGroup
Left = 175
Height = 86
Top = 123
Width = 209
AutoFill = True
Caption = 'Orientation'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 67
ClientWidth = 205
ItemIndex = 1
Items.Strings = (
'Portrait'
'Paysage'
)
TabOrder = 3
end
object BitBtn1: TBitBtn
Left = 176
Height = 180
Top = 216
Width = 112
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = BitBtn1Click
TabOrder = 4
end
object BitBtn2: TBitBtn
Left = 305
Height = 173
Top = 216
Width = 80
Cancel = True
Caption = 'Annuler'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 5
end
end
|