Files
lazarus-ccr/components/tvplanit/source/vpprtprvdlg.lfm

248 lines
5.6 KiB
Plaintext
Raw Permalink Normal View History

object frmPrintPreview: TfrmPrintPreview
Left = 325
Height = 818
Top = 118
Width = 540
HorzScrollBar.Page = 476
VertScrollBar.Page = 517
Caption = 'Print Preview'
ClientHeight = 818
ClientWidth = 540
Constraints.MinHeight = 200
Constraints.MinWidth = 395
KeyPreview = True
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 0
Height = 56
Top = 0
Width = 540
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 56
ClientWidth = 540
TabOrder = 0
object ToolBar1: TToolBar
Left = 0
Height = 27
Top = 0
Width = 540
AutoSize = True
ButtonHeight = 25
ButtonWidth = 23
Caption = 'ToolBar1'
EdgeBorders = [ebBottom]
Images = imMain
List = True
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
OnResize = ToolBar1Resize
object btnPrint: TToolButton
Left = 1
Top = 0
Action = actPrint
AutoSize = True
end
object ToolButton3: TToolButton
Left = 55
Height = 25
Top = 0
Caption = 'ToolButton3'
ImageIndex = 2
Style = tbsDivider
end
object btnFirstPage: TToolButton
Left = 60
Top = 0
Action = actFirstPage
AutoSize = True
ShowCaption = False
end
object btnPrevPage: TToolButton
Left = 83
Top = 0
Action = actPrevPage
AutoSize = True
ShowCaption = False
end
object btnNextPage: TToolButton
Left = 106
Top = 0
Action = actNextPage
AutoSize = True
ShowCaption = False
end
object btnLastPage: TToolButton
Left = 129
Top = 0
Action = actLastPage
AutoSize = True
ShowCaption = False
end
object ToolButton8: TToolButton
Left = 152
Height = 25
Top = 0
Caption = 'ToolButton8'
ImageIndex = 6
Style = tbsDivider
end
object btnCancel: TToolButton
Left = 157
Top = 0
Action = actCancel
AutoSize = True
end
object pnlPageCount: TPanel
AnchorSideTop.Side = asrCenter
Left = 266
Height = 25
Top = 0
Width = 119
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 119
TabOrder = 0
object PageInfo: TLabel
AnchorSideTop.Control = pnlPageCount
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlPageCount
AnchorSideRight.Side = asrBottom
Left = 64
Height = 15
Top = 5
Width = 47
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'PageInfo'
end
end
end
object Panel2: TPanel
Left = 0
Height = 29
Top = 27
Width = 540
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 29
ClientWidth = 540
TabOrder = 1
object cboxZoom: TComboBox
Left = 391
Height = 23
Top = 2
Width = 145
Align = alRight
BorderSpacing.Top = 2
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
ItemHeight = 15
Items.Strings = (
'Fit to Control'
'Actual Size'
'25%'
'33%'
'50%'
'67%'
'75%'
)
OnChange = cboxZoomChange
Style = csDropDownList
TabOrder = 0
end
object VpPrintFormatComboBox1: TVpPrintFormatComboBox
AnchorSideRight.Control = cboxZoom
Left = 4
Height = 23
Top = 2
Width = 383
Anchors = [akTop, akLeft, akRight]
Borderspacing.Left = 4
Borderspacing.Top = 2
Borderspacing.Right = 4
Borderspacing.Bottom = 2
ItemHeight = 15
Sorted = True
TabOrder = 1
OnChange = VpPrintFormatComboBox1Change
end
end
end
object VpPrintPreview1: TVpPrintPreview
Left = 4
Height = 758
Top = 56
Width = 532
CurPage = 0
EndDate = 37355.4526088079
StartDate = 37348.4526088079
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Parent = Owner
TabStop = True
TabOrder = 1
end
object imMain: TImageList
Left = 272
Top = 160
end
object actMain: TActionList
Images = imMain
OnUpdate = actMainUpdate
Left = 192
Top = 160
object actPrint: TAction
Caption = '&Print'
Hint = 'Print'
ImageIndex = 0
OnExecute = actPrintExecute
ShortCut = 16464
end
object actFirstPage: TAction
Caption = '&First page'
Hint = 'First page'
ImageIndex = 1
OnExecute = actFirstPageExecute
ShortCut = 16454
end
object actPrevPage: TAction
Caption = 'Pre&vious page'
Hint = 'Previous page'
ImageIndex = 2
OnExecute = actPrevPageExecute
ShortCut = 16470
end
object actNextPage: TAction
Caption = '&Next page'
Hint = 'Next page'
ImageIndex = 3
OnExecute = actNextPageExecute
ShortCut = 16462
end
object actLastPage: TAction
Caption = '&Last page'
Hint = 'Last page'
ImageIndex = 4
OnExecute = actLastPageExecute
ShortCut = 16460
end
object actCancel: TAction
Caption = 'Cancel preview'
Hint = 'Cancel preview'
ImageIndex = 5
OnExecute = actCancelExecute
ShortCut = 32835
end
end
end