main.dfm

自定义的报表

object frmMain: TfrmMain
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = '报表编辑'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCanResize = FormCanResize
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 78
    Width = 800
    Height = 456
    Align = alClient
    Color = clGray
    ParentColor = False
    TabOrder = 0
    OnResize = ScrollBox1Resize
    object CNReportControl1: TCNReportControl
      Left = 66
      Top = 12
      Width = 672
      Height = 1056
      PopupMenu = PopupMenu1
      OnMouseMove = CNReportControl1MouseMove
    end
  end
  object SB: TStatusBar
    Left = 0
    Top = 534
    Width = 800
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 800
    Height = 78
    Align = alTop
    AutoDock = False
    AutoSize = True
    BevelInner = bvNone
    BevelOuter = bvNone
    DockSite = False
    TabOrder = 2
    object tbMenuBar: TToolBar
      Left = 11
      Top = 2
      Width = 787
      Height = 22
      ButtonHeight = 20
      ButtonWidth = 43
      Caption = '菜单'
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        AllowAllUp = True
        Caption = ' 文件 '
        Grouped = True
        MenuItem = mFile
      end
      object ToolButton19: TToolButton
        Left = 43
        Top = 0
        AllowAllUp = True
        Caption = '表格 '
        Grouped = True
        MenuItem = mTable
      end
      object ToolButton21: TToolButton
        Left = 86
        Top = 0
        Caption = '选项'
        Grouped = True
        MenuItem = pmOption
      end
      object ToolButton20: TToolButton
        Left = 129
        Top = 0
        AllowAllUp = True
        Caption = ' 帮助 '
        Grouped = True
        MenuItem = mHelp
      end
    end
    object btEditToolBar: TToolBar
      Left = 11
      Top = 54
      Width = 787
      Height = 22
      AutoSize = True
      Caption = '编辑工具'
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageList2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object btNewTable: TToolButton
        Left = 0
        Top = 0
        Hint = '新建表格'
        Caption = 'btNewTable'
        ImageIndex = 0
        OnClick = btNewTableClick
      end
      object ToolButton15: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton15'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object btAppendLine: TToolButton
        Left = 31
        Top = 0
        Hint = '添加一行'
        Caption = 'btAppendLine'
        ImageIndex = 8
        OnClick = btAppendLineClick
      end
      object btInsertLine: TToolButton
        Left = 54
        Top = 0
        Hint = '插入一行'
        Caption = 'btInsertLine'
        ImageIndex = 7
        OnClick = btInsertLineClick
      end
      object btDeleteLine: TToolButton
        Left = 77
        Top = 0
        Hint = '删除行'
        Caption = 'btDeleteLine'
        ImageIndex = 6
        OnClick = btDeleteLineClick
      end
      object ToolButton16: TToolButton
        Left = 100
        Top = 0
        Width = 8
        Caption = 'ToolButton16'
        ImageIndex = 21
        Style = tbsSeparator
      end
      object btAddCell: TToolButton
        Left = 108
        Top = 0
        Hint = '添加单元格'
        Caption = 'btAddCell'
        ImageIndex = 22
        OnClick = btAddCellClick
      end
      object btInsertCell: TToolButton
        Left = 131
        Top = 0
        Hint = '插入单元格'
        Caption = 'btInsertCell'
        ImageIndex = 5
        OnClick = btInsertCellClick
      end
      object btDeleteCell: TToolButton
        Left = 154
        Top = 0
        Hint = '删除单元格'
        Caption = 'btDeleteCell'
        ImageIndex = 4
        OnClick = btDeleteCellClick
      end
      object ToolButton13: TToolButton
        Left = 177
        Top = 0
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 19
        Style = tbsSeparator
      end
      object btCombineCell: TToolButton
        Left = 185
        Top = 0
        Hint = '合并单元格'
        Caption = 'btCombineCell'
        ImageIndex = 3
        OnClick = btCombineCellClick
      end
      object btVSplitCell: TToolButton
        Left = 208
        Top = 0
        Hint = '纵向拆分单元格'
        Caption = 'btVSplitCell'
        ImageIndex = 23
        OnClick = btVSplitCellClick
      end
      object btSplitCell: TToolButton
        Left = 231
        Top = 0
        Hint = '横向拆分单元格'
        Caption = 'btSplitCell'
        ImageIndex = 2
        OnClick = btSplitCellClick
      end
      object ToolButton14: TToolButton
        Left = 254
        Top = 0
        Width = 8
        Caption = 'ToolButton14'
        ImageIndex = 20
        Style = tbsSeparator
      end
      object btBorder: TToolButton
        Left = 262
        Top = 0
        Hint = '设置边框'
        Caption = 'btBorder'
        ImageIndex = 1
        OnClick = btBorderClick
      end
      object btDiagonal: TToolButton
        Left = 285
        Top = 0
        Hint = '设置斜线'
        Caption = 'btDiagonal'
        ImageIndex = 9
        OnClick = btDiagonalClick
      end
      object btFont: TToolButton
        Left = 308
        Top = 0
        Hint = '单元格字体'
        Caption = 'btFont'
        ImageIndex = 10
        OnClick = btFontClick
      end
      object btColor: TToolButton
        Left = 331
        Top = 0
        Hint = '单元格颜色设置'
        Caption = 'btColor'
        ImageIndex = 20
        OnClick = btColorClick
      end
      object ToolButton30: TToolButton
        Left = 354
        Top = 0
        Width = 8
        Caption = 'ToolButton30'
        ImageIndex = 11
        Style = tbsSeparator