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