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
|
object dlgPageSetup: TdlgPageSetup
Left = 323
Height = 514
Top = 135
Width = 447
ActiveControl = frmPageSetup.cbPaper
AutoSize = True
BorderStyle = bsDialog
Caption = 'dlgPageSetup'
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 4
ChildSizing.VerticalSpacing = 6
ClientHeight = 514
ClientWidth = 447
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.1.0.0'
inline frmPageSetup: TframePageSetup
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 460
Top = 4
Width = 430
ClientHeight = 460
ClientWidth = 430
DesignLeft = 388
DesignTop = 96
inherited panSetup: TPanel
Top = 242
Width = 430
ClientWidth = 430
TabOrder = 1
inherited gpPaper: TGroupBox
Width = 430
ClientWidth = 428
inherited cbPaper: TComboBox
Width = 330
end
inherited cbSource: TComboBox
Width = 330
end
end
inherited gpMargins: TGroupBox
Width = 309
ClientWidth = 307
inherited panMargins: TPanel
Width = 307
ClientWidth = 307
inherited lblBottom: TLabel
Left = 157
end
inherited lblRight: TLabel
Left = 157
end
inherited txtLeft: TFloatSpinEdit
Left = 78
end
inherited txtRight: TFloatSpinEdit
Left = 226
end
inherited txtTop: TFloatSpinEdit
Left = 78
end
inherited txtBottom: TFloatSpinEdit
Left = 226
end
inherited Label1: TLabel
Left = 153
end
end
end
end
inherited panPreview: TPanel
Height = 242
Width = 430
ClientHeight = 242
ClientWidth = 430
Constraints.MinHeight = 0
TabOrder = 0
inherited pbPreview: TPaintBox
Height = 242
Width = 430
end
end
end
object PanelButtons: TPanel
AnchorSideLeft.Control = frmPageSetup
AnchorSideTop.Control = frmPageSetup
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = frmPageSetup
AnchorSideRight.Side = asrBottom
Left = 8
Height = 36
Top = 470
Width = 430
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ChildSizing.HorizontalSpacing = 6
ClientHeight = 36
ClientWidth = 430
FullRepaint = False
TabOrder = 1
TabStop = True
object btnCancel: TButton
AnchorSideTop.Control = btnOk
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnOk
Left = 274
Height = 35
Top = 1
Width = 75
Anchors = [akTop, akRight]
AutoSize = True
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 75
ModalResult = 2
TabOrder = 1
end
object btnOk: TButton
AnchorSideTop.Control = PanelButtons
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PanelButtons
AnchorSideRight.Side = asrBottom
Left = 355
Height = 35
Top = 1
Width = 75
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'OK'
Constraints.MinWidth = 75
Default = True
ModalResult = 1
TabOrder = 2
end
object btnPrinter: TButton
AnchorSideLeft.Control = PanelButtons
AnchorSideTop.Control = PanelButtons
AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom
Left = 0
Height = 35
Top = 1
Width = 75
AutoSize = True
Caption = 'Printer...'
Constraints.MinWidth = 75
OnClick = btnPrinterClick
TabOrder = 0
end
end
end
|
