custompreview.dfm

对fastreport进行封装成dll,只需传一个query即可显示报表内容,显示的列可以自定义,对学习fastreport可以参考一下

object frmCustomPreview: TfrmCustomPreview
  Left = 168
  Top = 333
  Width = 696
  Height = 480
  Caption = #39044#35272#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 48
      Top = 4
      Width = 24
      Height = 24
      Hint = #25972#39029#39044#35272
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888888888888888888880000000000000884FFFFFFFFFFFFF084FFFF000000
        FFF084FFFFFFFFFFFFF084FFFF00000FFFF084FFFFFFFFFFFFF084FF4F0000FF
        4FF084F44FFFFFFF44F0844444F000F4444084F44FFFFFFF44F084FF4F00000F
        4FF084FFFFFFFFFFFFF088000000000000088888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 88
      Top = 4
      Width = 24
      Height = 24
      Hint = #31532#19968#39029
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888888888888888078888887
        0888888078888700088888807887000008888880770000000888888078870000
        0888888078888700088888807888888708888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 112
      Top = 4
      Width = 24
      Height = 24
      Hint = #19978#19968#39029
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888888888888888888888708
        8888888888870008888888888700000888888887000000088888888887000008
        8888888888870008888888888888870888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 136
      Top = 4
      Width = 24
      Height = 24
      Hint = #19979#19968#39029
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888888888888888880788888
        8888888880007888888888888000007888888888800000007888888880000078
        8888888880007888888888888078888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 160
      Top = 4
      Width = 24
      Height = 24
      Hint = #26368#21518#19968#39029
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888888888888888078888887
        0888888000788887088888800000788708888880000000770888888000007887
        0888888000788887088888807888888708888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 200
      Top = 4
      Width = 24
      Height = 24
      Hint = #25171#24320#25253#34920
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888888888888888888000000000008888800333333333088880B0333333333
        08880FB03333333330880BFB0333333333080FBFB000000000000BFBFBFBFB08
        88880FBFBFBFBF0888880BFB0000000888888000888888880008888888888888
        8008888888880888080888888888800088888888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 224
      Top = 4
      Width = 24
      Height = 24
      Hint = #20445#23384#25253#34920
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        2222220000000000000220330000008803022033000000880302203300000088
        0302203300000000030220333333333333022033000000003302203088888888
        0302203088888888030220308888888803022030888888880302203088888888
        0002203088888888080220000000000000022222222222222222}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 248
      Top = 4
      Width = 24
      Height = 24
      Hint = #39029#38754#35774#32622
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888800000000000088880F8FFFFFF8F0888808888888888088880F8FFFFFF8
        F088880F8FFFFFF8F088880F8FFFFFF8F088880F8FFFFFF8F088880F8FFFFFF8
        F088880F8FFFFFF8F088880F8FFFFFF8F088880F8FFFFF00008888088888880F
        0888880F8FFFFF00888888000000000888888888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 272
      Top = 4
      Width = 24
      Height = 24
      Hint = #25171#21360
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888800000000000888808888888880808800000000000008080888888BBB88
        0008088888877788080800000000000008800888888888808080800000000008
        0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
        088888880FFFFFFFF08888888000000000888888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton9Click
    end
    object SpeedButton10: TSpeedButton
      Left = 296
      Top = 4
      Width = 24
      Height = 24
      Hint = #36864#20986
      Flat = True
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777788
        F8F878F7777777777333333F00004444400777FFF444447777777777F333FF7F
        000033334D5008FFF4333377777777773337777F0000333345D50FFFF4333333
        337F777F3337F33F000033334D5D0FFFF43333333377877F3337F33F00003333
        45D50FEFE4333333337F787F3337F33F000033334D5D0FFFF43333333377877F
        3337F33F0000333345D50FEFE4333333337F787F3337F33F000033334D5D0FFF
        F43333333377877F3337F33F0000333345D50FEFE4333333337F787F3337F33F
        000033334D5D0EFEF43333333377877F3337F33F0000333345D50FEFE4333333
        337F787F3337F33F000033334D5D0EFEF43333333377877F3337F33F00003333
        4444444444333333337F7F7FFFF7F33F00003333333333333333333333777777
        7777333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333777777F3333F00003333330000003333333333337FFFF7F3333F
        0000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton10Click
    end
    object SpeedButton11: TSpeedButton
      Left = 24
      Top = 4
      Width = 24
      Height = 24
      Hint = #21333#39029#39044#35272
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888000000000000088067676767676760807670000000
        7670806760FFFFF06760807670F444F07670806760FFFFF06760807670F44FF0
        7670806760FFFFF06760807670F444F07670806760FFFFF06760807670000000
        7670806767676767676088000000000000088888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton11Click
    end
    object SpeedButton12: TSpeedButton
      Left = 0
      Top = 4
      Width = 24
      Height = 24
      Hint = '100%'#39044#35272
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888888888888888888880000000000000880FFFFFFFFFFFFF080F000000000
        00F080FFFFFFFFFFFFF080F00000000000F080FFFFFFFFFFFFF080F000000000
        00F080FFFFFFFFFFFFF080F00000000000F080FFFFFFFFFFFFF080F000000000
        00F080FFFFFFFFFFFFF088000000000000088888888888888888}
      ParentShowHint = False
      ShowHint = False
      OnClick = SpeedButton12Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 32
    Width = 677
    Height = 421
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object frPreview1: TfrPreview
      Left = 11
      Top = 0
      Width = 666
      Height = 421
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 0
      ScrollBars = ssBoth
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 11
      Height = 421
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 677
    Top = 32
    Width = 11
    Height = 421
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 2
  end
end