lazarus/components/turbopower_ipro/iphtmlpv.lfm

257 lines
5.9 KiB
Plaintext

object IpHTMLPreview: TIpHTMLPreview
Left = 274
Height = 372
Top = 141
Width = 645
Caption = 'Print preview'
ClientHeight = 372
ClientWidth = 645
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '0.9.29'
object Panel1: TPanel
Left = 0
Height = 33
Top = 0
Width = 645
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 645
TabOrder = 0
object Label1: TLabel
AnchorSideLeft.Control = btnPrev
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 398
Height = 14
Top = 9
Width = 29
BorderSpacing.Around = 5
Caption = 'Page:'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = edtPage
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 469
Height = 14
Top = 9
Width = 10
BorderSpacing.Around = 5
Caption = 'of'
ParentColor = False
end
object lblMaxPage: TLabel
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 484
Height = 1
Top = 16
Width = 1
BorderSpacing.Around = 5
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = btnSelectPrinter
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 159
Height = 14
Top = 9
Width = 31
BorderSpacing.Around = 5
Caption = 'Zoom:'
ParentColor = False
end
object btnPrint: TButton
Left = 5
Height = 23
Top = 5
Width = 47
AutoSize = True
BorderSpacing.Around = 5
Caption = 'Print'
Default = True
OnClick = btnPrintClick
TabOrder = 0
end
object btnFirst: TButton
AnchorSideLeft.Control = btnClose
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 318
Height = 23
Top = 5
Width = 38
AutoSize = True
BorderSpacing.Around = 5
Caption = '<<'
OnClick = btnFirstClick
TabOrder = 1
end
object btnPrev: TButton
AnchorSideLeft.Control = btnFirst
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 361
Height = 23
Top = 5
Width = 32
AutoSize = True
BorderSpacing.Around = 5
Caption = '<'
OnClick = btnPrevClick
TabOrder = 2
end
object btnNext: TButton
AnchorSideLeft.Control = lblMaxPage
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 490
Height = 23
Top = 5
Width = 32
AutoSize = True
BorderSpacing.Around = 5
Caption = '>'
OnClick = btnNextClick
TabOrder = 4
end
object btnLast: TButton
AnchorSideLeft.Control = btnNext
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 527
Height = 23
Top = 5
Width = 38
AutoSize = True
BorderSpacing.Around = 5
Caption = '>>'
OnClick = btnLastClick
TabOrder = 5
end
object btnClose: TButton
AnchorSideLeft.Control = ZoomCombo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 261
Height = 23
Top = 5
Width = 52
AutoSize = True
BorderSpacing.Around = 5
Cancel = True
Caption = 'Close'
ModalResult = 2
TabOrder = 6
end
object edtPage: TEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 432
Height = 21
Top = 6
Width = 32
BorderSpacing.Around = 5
OnChange = edtPageChange
TabOrder = 3
Text = '1'
end
object ZoomCombo: TComboBox
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 195
Height = 21
Top = 6
Width = 61
BorderSpacing.Around = 5
ItemHeight = 13
Items.Strings = (
'10%'
'25%'
'50%'
'75%'
'100%'
'150%'
'200%'
'300%'
'400%'
)
OnChange = ZoomComboChange
Style = csDropDownList
TabOrder = 7
end
object btnSelectPrinter: TButton
AnchorSideLeft.Control = btnPrint
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 57
Height = 23
Top = 5
Width = 97
AutoSize = True
BorderSpacing.Around = 5
Caption = 'Select printer...'
OnClick = btnSelectPrinterClick
TabOrder = 8
end
end
object ScrollBox1: TScrollBox
Left = 0
Height = 339
Top = 33
Width = 645
Align = alClient
ClientHeight = 335
ClientWidth = 641
Color = clBtnFace
ParentColor = False
TabOrder = 1
object PaperPanel: TPanel
Left = 0
Height = 125
Top = 0
Width = 158
BevelOuter = bvNone
ClientHeight = 125
ClientWidth = 158
Color = clWhite
ParentColor = False
TabOrder = 0
object PaintBox1: TPaintBox
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Side = asrCenter
Left = 0
Height = 113
Top = 0
Width = 145
OnPaint = PaintBox1Paint
end
end
end
end