designgrid.dfm

delphi制作表格的控件

object DesignGridForm: TDesignGridForm
  Left = 183
  Top = 115
  ActiveControl = FGrid
  Caption = 'EasyGrid'#32534#36753#22120
  ClientHeight = 540
  ClientWidth = 808
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesigned
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 521
    Width = 808
    Height = 19
    Panels = <
      item
        Width = 15
      end
      item
        Width = 50
      end
      item
        Width = 15
      end
      item
        Width = 50
      end
      item
        Text = #34892
        Width = 20
      end
      item
        Width = 50
      end
      item
        Text = #21015
        Width = 20
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 808
    Height = 74
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 804
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 22
        Width = 804
      end
      item
        Control = ToolBar3
        ImageIndex = -1
        MinHeight = 22
        Width = 804
      end>
    ParentShowHint = False
    ShowHint = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 791
      Height = 22
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = ImageList1
      TabOrder = 0
      object TBNew: TToolButton
        Left = 0
        Top = 0
        Action = FANew
      end
      object TBOpen: TToolButton
        Left = 23
        Top = 0
        Action = FAOpen
      end
      object TBSave: TToolButton
        Left = 46
        Top = 0
        Action = FASave
      end
      object ToolButton3: TToolButton
        Left = 69
        Top = 0
        Width = 7
        Caption = 'ToolButton3'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object TBPrint: TToolButton
        Left = 76
        Top = 0
        Action = FAPrint
      end
      object TBPreview: TToolButton
        Left = 99
        Top = 0
        Action = FAPreView
      end
      object ToolButton6: TToolButton
        Left = 122
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object TBCopy: TToolButton
        Left = 130
        Top = 0
        Action = FACopy
      end
      object TBCut: TToolButton
        Left = 153
        Top = 0
        Action = FACut
      end
      object TBPaste: TToolButton
        Left = 176
        Top = 0
        Action = FAPaste
      end
      object TBCellNull: TToolButton
        Left = 199
        Top = 0
        Action = FACellNull
      end
      object ToolButton11: TToolButton
        Left = 222
        Top = 0
        Width = 8
        Caption = 'ToolButton11'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object TBNewTable: TToolButton
        Left = 230
        Top = 0
        Hint = #26032#24314#34920#26684
        Caption = 'TBNewTable'
        ImageIndex = 9
      end
      object TBCellPro: TToolButton
        Left = 253
        Top = 0
        Action = FACellPro
      end
      object TBTablePro: TToolButton
        Left = 276
        Top = 0
        Hint = #34920#26684#23646#24615
        Caption = 'TBTablePro'
        ImageIndex = 11
      end
      object ToolButton28: TToolButton
        Left = 299
        Top = 0
        Width = 8
        Caption = 'ToolButton28'
        ImageIndex = 19
        Style = tbsSeparator
      end
      object TBCellLineCasing: TToolButton
        Left = 307
        Top = 0
        Hint = #22806#26694
        Caption = 'TBCellLineCasing'
        ImageIndex = 13
        OnClick = TBCellLineCasingClick
      end
      object TBCellLineIn: TToolButton
        Left = 330
        Top = 0
        Hint = #20869#32447
        Caption = 'TBCellLineIn'
        ImageIndex = 14
      end
      object TBCellLineNull: TToolButton
        Left = 353
        Top = 0
        Hint = #26080#32447
        Caption = 'TBCellLineNull'
        ImageIndex = 15
        OnClick = TBCellLineNullClick
      end
      object ToolButton21: TToolButton
        Left = 376
        Top = 0
        Width = 8
        Caption = 'ToolButton21'
        ImageIndex = 17
        Style = tbsSeparator
      end
      object TBCellLineLeft: TToolButton
        Tag = 1
        Left = 384
        Top = 0
        Hint = #24038#36793#32447
        ImageIndex = 16
        Style = tbsCheck
        OnClick = TBCellLineLeftClick
      end
      object TBCellLineVCa: TToolButton
        Left = 407
        Top = 0
        Hint = #22402#30452#32447
        Caption = 'TBCellLineVCa'
        ImageIndex = 17
      end
      object TBCellLineRight: TToolButton
        Tag = 3
        Left = 430
        Top = 0
        Hint = #21491#36793#32447
        Caption = 'TBCellLineRight'
        ImageIndex = 18
        Style = tbsCheck
        OnClick = TBCellLineLeftClick
      end
      object ToolButton22: TToolButton
        Left = 453
        Top = 0
        Width = 8
        Caption = 'ToolButton22'
        ImageIndex = 17
        Style = tbsSeparator
      end
      object TBCellLineTop: TToolButton
        Tag = 4
        Left = 461
        Top = 0
        Hint = #19978#36793#32447
        Caption = 'TBCellLineTop'
        ImageIndex = 19
        Style = tbsCheck
        OnClick = TBCellLineLeftClick
      end
      object TBCellLineHCa: TToolButton
        Left = 484
        Top = 0
        Hint = #20013#36793#32447
        Caption = 'TBCellLineHCa'
        ImageIndex = 20
      end
      object TBCellLineBo: TToolButton
        Tag = 12
        Left = 507
        Top = 0
        Hint = #19979#36793#32447
        Caption = 'TBCellLineBo'
        ImageIndex = 21
        Style = tbsCheck
        OnClick = TBCellLineLeftClick
      end
      object ToolButton24: TToolButton
        Left = 530
        Top = 0
        Width = 8
        Caption = 'ToolButton24'
        ImageIndex = 18
        Style = tbsSeparator
      end
      object TBLUpDown1: TToolButton
        Left = 538
        Top = 0
        Caption = 'TBLUpDown1'
        ImageIndex = 53
        Style = tbsCheck
        OnClick = TBLUpDown1Click
      end