2008-02-03 12:05:55 +00:00
|
|
|
object frmPrintPreview: TfrmPrintPreview
|
2016-07-06 14:23:45 +00:00
|
|
|
Left = 325
|
2016-07-06 21:49:00 +00:00
|
|
|
Height = 818
|
2016-07-06 14:23:45 +00:00
|
|
|
Top = 118
|
2016-07-06 21:49:00 +00:00
|
|
|
Width = 540
|
2008-02-08 15:36:48 +00:00
|
|
|
HorzScrollBar.Page = 476
|
2008-02-03 12:05:55 +00:00
|
|
|
VertScrollBar.Page = 517
|
|
|
|
Caption = 'Print Preview'
|
2016-07-06 21:49:00 +00:00
|
|
|
ClientHeight = 818
|
|
|
|
ClientWidth = 540
|
2008-02-03 12:05:55 +00:00
|
|
|
Constraints.MinHeight = 200
|
|
|
|
Constraints.MinWidth = 395
|
|
|
|
KeyPreview = True
|
|
|
|
OnCreate = FormCreate
|
|
|
|
OnKeyDown = FormKeyDown
|
2016-07-06 14:23:45 +00:00
|
|
|
OnShow = FormShow
|
2023-01-16 12:43:17 +00:00
|
|
|
LCLVersion = '2.3.0.0'
|
2008-02-03 12:05:55 +00:00
|
|
|
object Panel1: TPanel
|
2016-06-09 23:49:35 +00:00
|
|
|
Left = 0
|
2022-09-12 22:39:54 +00:00
|
|
|
Height = 56
|
2016-06-09 23:49:35 +00:00
|
|
|
Top = 0
|
2016-07-06 21:49:00 +00:00
|
|
|
Width = 540
|
2008-02-03 12:05:55 +00:00
|
|
|
Align = alTop
|
2016-08-05 22:34:24 +00:00
|
|
|
AutoSize = True
|
2022-09-12 22:39:54 +00:00
|
|
|
BevelOuter = bvNone
|
|
|
|
ClientHeight = 56
|
2016-07-06 21:49:00 +00:00
|
|
|
ClientWidth = 540
|
2008-02-03 12:05:55 +00:00
|
|
|
TabOrder = 0
|
|
|
|
object ToolBar1: TToolBar
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 0
|
2016-06-21 13:48:55 +00:00
|
|
|
Height = 27
|
2022-09-12 22:39:54 +00:00
|
|
|
Top = 0
|
|
|
|
Width = 540
|
2016-06-21 13:48:55 +00:00
|
|
|
AutoSize = True
|
2008-02-03 12:05:55 +00:00
|
|
|
ButtonHeight = 25
|
2022-09-07 16:29:58 +00:00
|
|
|
ButtonWidth = 23
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'ToolBar1'
|
2016-06-21 13:48:55 +00:00
|
|
|
EdgeBorders = [ebBottom]
|
2008-02-03 12:05:55 +00:00
|
|
|
Images = imMain
|
2016-06-21 13:48:55 +00:00
|
|
|
List = True
|
2008-02-03 12:05:55 +00:00
|
|
|
ParentShowHint = False
|
2016-06-21 13:48:55 +00:00
|
|
|
ShowCaptions = True
|
2008-02-03 12:05:55 +00:00
|
|
|
ShowHint = True
|
|
|
|
TabOrder = 0
|
2022-10-02 21:31:29 +00:00
|
|
|
OnResize = ToolBar1Resize
|
2008-02-03 12:05:55 +00:00
|
|
|
object btnPrint: TToolButton
|
|
|
|
Left = 1
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
Action = actPrint
|
2017-05-19 21:51:57 +00:00
|
|
|
AutoSize = True
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object ToolButton3: TToolButton
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 55
|
2022-10-10 18:06:26 +00:00
|
|
|
Height = 25
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'ToolButton3'
|
|
|
|
ImageIndex = 2
|
2016-06-21 13:19:39 +00:00
|
|
|
Style = tbsDivider
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object btnFirstPage: TToolButton
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 60
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
Action = actFirstPage
|
2017-05-19 21:51:57 +00:00
|
|
|
AutoSize = True
|
2016-06-21 13:48:55 +00:00
|
|
|
ShowCaption = False
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object btnPrevPage: TToolButton
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 83
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
Action = actPrevPage
|
2017-05-19 21:51:57 +00:00
|
|
|
AutoSize = True
|
2016-06-21 13:48:55 +00:00
|
|
|
ShowCaption = False
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object btnNextPage: TToolButton
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 106
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
|
|
|
Action = actNextPage
|
2017-05-19 21:51:57 +00:00
|
|
|
AutoSize = True
|
2016-06-21 13:48:55 +00:00
|
|
|
ShowCaption = False
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object btnLastPage: TToolButton
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 129
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
Action = actLastPage
|
2017-05-19 21:51:57 +00:00
|
|
|
AutoSize = True
|
2016-06-21 13:48:55 +00:00
|
|
|
ShowCaption = False
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object ToolButton8: TToolButton
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 152
|
2022-10-10 18:06:26 +00:00
|
|
|
Height = 25
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'ToolButton8'
|
|
|
|
ImageIndex = 6
|
2016-06-21 13:19:39 +00:00
|
|
|
Style = tbsDivider
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
2016-06-21 13:48:55 +00:00
|
|
|
object btnCancel: TToolButton
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 157
|
2016-06-21 15:12:38 +00:00
|
|
|
Top = 0
|
2016-06-21 13:48:55 +00:00
|
|
|
Action = actCancel
|
2017-05-19 21:51:57 +00:00
|
|
|
AutoSize = True
|
2016-06-21 13:48:55 +00:00
|
|
|
end
|
2022-10-02 21:31:29 +00:00
|
|
|
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
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
2016-08-05 22:34:24 +00:00
|
|
|
object Panel2: TPanel
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 0
|
2016-08-05 22:34:24 +00:00
|
|
|
Height = 29
|
2022-09-12 22:39:54 +00:00
|
|
|
Top = 27
|
|
|
|
Width = 540
|
2016-08-05 22:34:24 +00:00
|
|
|
Align = alTop
|
|
|
|
AutoSize = True
|
|
|
|
BevelOuter = bvNone
|
|
|
|
ClientHeight = 29
|
2022-09-12 22:39:54 +00:00
|
|
|
ClientWidth = 540
|
2016-08-05 22:34:24 +00:00
|
|
|
TabOrder = 1
|
|
|
|
object cboxZoom: TComboBox
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 391
|
2016-08-05 22:34:24 +00:00
|
|
|
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
|
2022-09-12 22:39:54 +00:00
|
|
|
Width = 383
|
2016-08-05 22:34:24 +00:00
|
|
|
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
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object VpPrintPreview1: TVpPrintPreview
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 4
|
|
|
|
Height = 758
|
|
|
|
Top = 56
|
|
|
|
Width = 532
|
2016-06-09 23:49:35 +00:00
|
|
|
CurPage = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
EndDate = 37355.4526088079
|
|
|
|
StartDate = 37348.4526088079
|
|
|
|
Align = alClient
|
2022-09-12 22:39:54 +00:00
|
|
|
BorderSpacing.Left = 4
|
|
|
|
BorderSpacing.Right = 4
|
|
|
|
BorderSpacing.Bottom = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Parent = Owner
|
|
|
|
TabStop = True
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object imMain: TImageList
|
2022-09-07 16:29:58 +00:00
|
|
|
Left = 272
|
|
|
|
Top = 160
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object actMain: TActionList
|
|
|
|
Images = imMain
|
|
|
|
OnUpdate = actMainUpdate
|
2022-09-07 16:29:58 +00:00
|
|
|
Left = 192
|
|
|
|
Top = 160
|
2008-02-03 12:05:55 +00:00
|
|
|
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
|
2016-06-21 13:48:55 +00:00
|
|
|
Caption = 'Cancel preview'
|
2008-02-03 12:05:55 +00:00
|
|
|
Hint = 'Cancel preview'
|
2016-06-21 13:48:55 +00:00
|
|
|
ImageIndex = 5
|
2008-02-03 12:05:55 +00:00
|
|
|
OnExecute = actCancelExecute
|
|
|
|
ShortCut = 32835
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|