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
|
object dlgPageSetup: TdlgPageSetup
Left = 411
Height = 449
Top = 113
Width = 446
ActiveControl = frmPageSetup.panPreview
BorderStyle = bsDialog
Caption = 'dlgPageSetup'
ClientHeight = 449
ClientWidth = 446
Position = poScreenCenter
LCLVersion = '1.9.0.0'
inline frmPageSetup: TframePageSetup
Height = 408
Width = 446
Align = alClient
ClientHeight = 408
ClientWidth = 446
DesignLeft = 388
DesignTop = 96
inherited panSetup: TPanel
Top = 197
Width = 446
ClientWidth = 446
TabOrder = 1
inherited gpPaper: TGroupBox
Width = 434
ClientWidth = 430
inherited cbPaper: TComboBox
Width = 345
end
inherited cbSource: TComboBox
Width = 345
end
end
inherited gpMargins: TGroupBox
Width = 308
ClientWidth = 304
inherited panMargins: TPanel
Width = 304
ClientWidth = 304
inherited txtRight: TFloatSpinEdit
Left = 225
end
inherited txtBottom: TFloatSpinEdit
Left = 225
end
end
end
end
inherited panPreview: TPanel
AnchorSideTop.Control = nil
Height = 197
Width = 446
ClientHeight = 197
ClientWidth = 446
Constraints.MinHeight = 0
TabOrder = 0
inherited boxShadow: TShape
Left = 179
Top = 39
end
inherited pbPreview: TPaintBox
Left = 173
Top = 33
end
end
end
object PanelButtons: TPanel
Left = 0
Height = 41
Top = 408
Width = 446
Align = alBottom
Anchors = [akLeft, akBottom]
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 446
FullRepaint = False
TabOrder = 1
TabStop = True
object btnCancel: TButton
AnchorSideTop.Control = btnPrinter
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnPrinter
Left = 254
Height = 26
Top = 7
Width = 90
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'Cancel'
Constraints.MinWidth = 90
ModalResult = 2
TabOrder = 1
end
object btnOk: TButton
AnchorSideTop.Control = btnPrinter
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnCancel
Left = 158
Height = 26
Top = 7
Width = 90
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'OK'
Constraints.MinWidth = 90
Default = True
ModalResult = 1
TabOrder = 0
end
object btnPrinter: TButton
AnchorSideTop.Control = PanelButtons
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PanelButtons
AnchorSideRight.Side = asrBottom
Left = 350
Height = 26
Top = 7
Width = 90
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'Printer...'
Constraints.MinWidth = 90
OnClick = btnPrinterClick
TabOrder = 2
end
end
end
|
