designgrid.dfm

delphi制作表格的控件

      object TBRUpDown1: TToolButton
        Left = 561
        Top = 0
        Caption = 'TBRUpDown1'
        ImageIndex = 52
        Style = tbsCheck
        OnClick = TBRUpDown1Click
      end
      object ToolButton7: TToolButton
        Left = 584
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 24
        Style = tbsSeparator
      end
      object CBCellLineWidth: TComboBox
        Left = 592
        Top = 0
        Width = 55
        Height = 20
        Hint = #32447#23485
        ItemHeight = 12
        TabOrder = 0
        OnChange = CBCellLineWidthChange
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9')
      end
      object ToolButton29: TToolButton
        Left = 647
        Top = 0
        Width = 8
        Caption = 'ToolButton29'
        ImageIndex = 19
        Style = tbsSeparator
      end
      object TBHelp: TToolButton
        Left = 655
        Top = 0
        Hint = #24110#21161
        Caption = 'TBHelp'
        ImageIndex = 22
      end
      object ToolButton31: TToolButton
        Left = 678
        Top = 0
        Width = 8
        Caption = 'ToolButton31'
        ImageIndex = 20
        Style = tbsSeparator
      end
      object TBClose: TToolButton
        Left = 686
        Top = 0
        Action = FAClose
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 24
      Width = 791
      Height = 22
      AutoSize = True
      Caption = 'ToolBar2'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = ImageList1
      TabOrder = 1
      object CBFontName: TComboBox
        Left = 0
        Top = 0
        Width = 121
        Height = 20
        Hint = #23383#20307
        BevelInner = bvSpace
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 0
        OnChange = CBFontNameChange
      end
      object CBFontSize: TComboBox
        Left = 121
        Top = 0
        Width = 40
        Height = 20
        Hint = #23383#20307#22823#23567
        ItemHeight = 12
        TabOrder = 1
        OnChange = CBFontSizeChange
        Items.Strings = (
          '6'
          '8'
          '9'
          '10'
          '11'
          '12'
          '14'
          '16'
          '18'
          '20'
          '22'
          '24'
          '26'
          '28'
          '36'
          '48'
          '72')
      end
      object ToolButton34: TToolButton
        Left = 161
        Top = 0
        Width = 8
        Caption = 'ToolButton34'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object TBFontB: TToolButton
        Tag = 1
        Left = 169
        Top = 0
        Hint = #31895#20307
        Caption = 'TBFontB'
        ImageIndex = 24
        OnClick = TBFontBClick
      end
      object TBFontI: TToolButton
        Tag = 1
        Left = 192
        Top = 0
        Hint = #26012#20307
        Caption = 'TBFontI'
        ImageIndex = 25
        OnClick = TBFontIClick
      end
      object TBFontU: TToolButton
        Tag = 1
        Left = 215
        Top = 0
        Hint = #19979#21010#32447
        Caption = 'TBFontU'
        ImageIndex = 26
        OnClick = TBFontUClick
      end
      object ToolButton37: TToolButton
        Left = 238
        Top = 0
        Width = 8
        Caption = 'ToolButton37'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object TBFontLeft: TToolButton
        Tag = 1
        Left = 246
        Top = 0
        Hint = #24038#23545#40784
        Caption = 'TBFontLeft'
        ImageIndex = 27
        Style = tbsCheck
        OnClick = TBFontLeftClick
      end
      object TBFontHCa: TToolButton
        Tag = 2
        Left = 269
        Top = 0
        Hint = #23621#20013
        Caption = 'TBFontHCa'
        ImageIndex = 28
        Style = tbsCheck
        OnClick = TBFontLeftClick
      end
      object TBFontRight: TToolButton
        Tag = 3
        Left = 292
        Top = 0
        Hint = #21491#23545#40784
        Caption = 'TBFontRight'
        ImageIndex = 29
        Style = tbsCheck
        OnClick = TBFontLeftClick
      end
      object ToolButton41: TToolButton
        Left = 315
        Top = 0
        Width = 8
        Caption = 'ToolButton41'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object TBFontTop: TToolButton
        Tag = 4
        Left = 323
        Top = 0
        Hint = #23621#19978
        Caption = 'TBFontTop'
        ImageIndex = 30
        Style = tbsCheck
        OnClick = TBFontLeftClick
      end
      object TBFontVCa: TToolButton
        Tag = 8
        Left = 346
        Top = 0
        Hint = #23621#20013
        Caption = 'TBFontVCa'
        ImageIndex = 31
        Style = tbsCheck
        OnClick = TBFontLeftClick
      end
      object TBFontBo: TToolButton
        Tag = 12
        Left = 369
        Top = 0
        Hint = #23621#19979
        Caption = 'TBFontBo'
        ImageIndex = 32
        Style = tbsCheck
        OnClick = TBFontLeftClick
      end
      object ToolButton45: TToolButton
        Left = 392
        Top = 0
        Width = 8
        Caption = 'ToolButton45'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object TBMarge: TToolButton
        Left = 400
        Top = 0
        Action = FAmarge
      end
      object ToolButton60: TToolButton
        Left = 423
        Top = 0
        Action = FAMargeDel
      end
      object ToolButton4: TToolButton
        Left = 446
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 0
        Style = tbsSeparator
      end
      object TBInCol: TToolButton
        Left = 454
        Top = 0
        Action = FAInCol
      end
      object TBInRow: TToolButton
        Left = 477
        Top = 0
        Action = FAInRow
      end
      object ToolButton49: TToolButton
        Left = 500
        Top = 0
        Width = 8
        Caption = 'ToolButton49'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object TBDelRow: TToolButton
        Left = 508
        Top = 0
        Action = FADelRow
      end
      object TBDelCol: TToolButton
        Left = 531
        Top = 0
        Action = FADelCol
      end
      object ToolButton59: TToolButton
        Left = 554
        Top = 0
        Width = 8
        Caption = 'ToolButton59'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object TBInsertBmp: TToolButton
        Left = 562
        Top = 0
        Action = FAInsertBmp
      end
      object TBDeleteBmp: TToolButton
        Left = 585
        Top = 0
        Caption = 'TBDeleteBmp'
        ImageIndex = 54
        OnClick = TBDeleteBmpClick