upreview.~dfm

delphi下自制报表预览的例子,还不完善,如果有疑问,给作者写信,

object frmPreview: TfrmPreview
  Left = 247
  Top = 264
  Width = 733
  Height = 559
  Caption = #39044#35272
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object qrp: TQRPreview
    Left = 0
    Top = 33
    Width = 725
    Height = 473
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvRaised
    TabOrder = 0
    OnResize = qrpResize
    PageNumber = 1
    Zoom = 100
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 725
    Height = 33
    Align = alTop
    BevelInner = bvNone
    BevelOuter = bvNone
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 246
      Height = 48
      Align = alClient
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = ImageList1
      TabOrder = 0
      object ToolButton6: TToolButton
        Left = 0
        Top = 2
        Hint = #36866#21512#22823#23567
        Caption = 'ToolButton6'
        ImageIndex = 7
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 23
        Top = 2
        Hint = '100%'
        Caption = 'ToolButton7'
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton7Click
      end
      object ToolButton8: TToolButton
        Left = 46
        Top = 2
        Hint = #36866#21512#23485#24230
        Caption = 'ToolButton8'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton8Click
      end
      object ToolButton1: TToolButton
        Left = 69
        Top = 2
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object edtZoom: TEdit
        Left = 77
        Top = 2
        Width = 50
        Height = 22
        Hint = #39044#35272#27604#20363
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = '100'
        OnKeyPress = edtZoomKeyPress
      end
      object udZoom: TUpDown
        Left = 127
        Top = 2
        Width = 16
        Height = 22
        Hint = #39044#35272#27604#20363
        Associate = edtZoom
        Min = 1
        Max = 500
        ParentShowHint = False
        Position = 100
        ShowHint = True
        TabOrder = 1
        OnChanging = udZoomChanging
      end
      object ToolButton4: TToolButton
        Left = 143
        Top = 2
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 151
        Top = 2
        Hint = #25171#21360#35774#32622
        Caption = 'ToolButton3'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton3Click
      end
      object ToolButton2: TToolButton
        Left = 174
        Top = 2
        Hint = #25171#21360
        Caption = 'ToolButton2'
        ImageIndex = 0
        OnClick = ToolButton2Click
      end
      object ToolButton5: TToolButton
        Left = 197
        Top = 2
        Hint = #36820#22238
        Caption = 'ToolButton5'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton5Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 506
    Width = 725
    Height = 19
    Panels = <>
  end
  object psd: TPrinterSetupDialog
    Left = 129
    Top = 48
  end
  object ImageList1: TImageList
    Left = 272
    Top = 48
    Bitmap = {
      494C010108000900040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000