unitgroupinfoframe.~dfm

此代码是关于mapgis的在

object Frame_GroupInfo: TFrame_GroupInfo
  Left = 0
  Top = 0
  Width = 808
  Height = 603
  TabOrder = 0
  object Splitter1: TSplitter
    Left = 143
    Top = 0
    Height = 603
  end
  object ModuleGrid: TYHBStringGrid
    Left = 0
    Top = 0
    Width = 143
    Height = 603
    Align = alLeft
    ColCount = 3
    DefaultRowHeight = 18
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 0
    OnClick = ModuleGridClick
    OnSetEditText = ModuleGridSetEditText
    Columns = <
      item
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = []
        HeaderAlignment = taCenter
        Caption = #26377#25928
        Width = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Editor = YHBCheckBoxCellEditor1
        EditorInheritsCellProps = False
        ReadOnly = False
        WordBreak = False
        DataType = ftBoolean
        AutoIncValue = False
        SortedOnTitleClick = False
        ControlType = ctCheckBox
        RecordObjectIsOwner = False
        RecordObjectType = lotNone
      end
      item
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = []
        HeaderAlignment = taCenter
        Caption = #27169#22359#21517#31216
        Width = 104
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        EditorInheritsCellProps = False
        ReadOnly = False
        WordBreak = False
        DataType = ftString
        AutoIncValue = False
        SortedOnTitleClick = False
        ControlType = ctTextEdit
        RecordObjectIsOwner = False
        RecordObjectType = lotNone
      end
      item
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = []
        HeaderAlignment = taCenter
        Caption = #25551#36848
        Width = 53
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        EditorInheritsCellProps = False
        ReadOnly = False
        WordBreak = False
        DataType = ftString
        AutoIncValue = False
        SortedOnTitleClick = False
        ControlType = ctTextEdit
        RecordObjectIsOwner = False
        RecordObjectType = lotNone
      end>
    ColumnCount = 3
    SortOnClickTitle = True
    FixedLineColor = clBlack
    ImmediateEditMode = False
    MultiLine = False
    SelectFrameColor = clGradientActiveCaption
    SelectTextColor = clWhite
    ColSelect = False
    HighlightSortCol = False
    HasMatrix = False
    HMatrixSpace = 5
    VMatrixSpace = 5
    HasHLine = False
    hasVLine = False
    MatrixColor = clYellow
    TitleHeight = 18
    DataHeight = 18
    ColWidths = (
      28
      104
      53)
    RowHeights = (
      18
      18)
  end
  object PageControl1: TPageControl
    Left = 146
    Top = 0
    Width = 662
    Height = 603
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #30028#38754
      object ScrollBox1: TScrollBox
        Left = 0
        Top = 0
        Width = 654
        Height = 575
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26435#38480
      ImageIndex = 1
      object FuncGrid: TYHBStringGrid
        Left = 0
        Top = 0
        Width = 654
        Height = 575
        Align = alClient
        ColCount = 4
        DefaultRowHeight = 18
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
        TabOrder = 0
        OnSetEditText = FuncGridSetEditText
        Columns = <
          item
            HeaderFont.Charset = DEFAULT_CHARSET
            HeaderFont.Color = clWindowText
            HeaderFont.Height = -11
            HeaderFont.Name = 'MS Sans Serif'
            HeaderFont.Style = []
            Color = clBtnFace
            Width = 14
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Editor = YHBCheckBoxCellEditor2
            EditorInheritsCellProps = False
            ReadOnly = False
            WordBreak = False
            DataType = ftUnknown
            AutoIncValue = False
            SortedOnTitleClick = False
            ControlType = ctTextEdit
            RecordObjectIsOwner = False
            RecordObjectType = lotNone
          end
          item
            HeaderFont.Charset = DEFAULT_CHARSET
            HeaderFont.Color = clWindowText
            HeaderFont.Height = -11
            HeaderFont.Name = 'MS Sans Serif'
            HeaderFont.Style = []
            HeaderAlignment = taCenter
            Caption = #26377#25928
            Width = 29
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            EditorInheritsCellProps = False
            ReadOnly = False
            WordBreak = False
            DataType = ftBoolean
            AutoIncValue = False
            SortedOnTitleClick = False
            ControlType = ctCheckBox
            RecordObjectIsOwner = False
            RecordObjectType = lotNone
          end
          item
            HeaderFont.Charset = DEFAULT_CHARSET
            HeaderFont.Color = clWindowText
            HeaderFont.Height = -11
            HeaderFont.Name = 'MS Sans Serif'
            HeaderFont.Style = []
            HeaderAlignment = taCenter
            Caption = #26435#38480
            Width = 241
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            EditorInheritsCellProps = False
            ReadOnly = False
            WordBreak = False
            DataType = ftString
            AutoIncValue = False
            SortedOnTitleClick = False
            ControlType = ctTextEdit
            RecordObjectIsOwner = False
            RecordObjectType = lotNone
          end
          item
            HeaderFont.Charset = DEFAULT_CHARSET
            HeaderFont.Color = clWindowText
            HeaderFont.Height = -11
            HeaderFont.Name = 'MS Sans Serif'
            HeaderFont.Style = []
            HeaderAlignment = taCenter
            Caption = #25551#36848
            Width = 169
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            EditorInheritsCellProps = False
            ReadOnly = False
            WordBreak = False
            DataType = ftString
            AutoIncValue = False
            SortedOnTitleClick = False
            ControlType = ctTextEdit
            RecordObjectIsOwner = False
            RecordObjectType = lotNone
          end>
        ColumnCount = 4
        SortOnClickTitle = True
        FixedLineColor = clBlack
        ImmediateEditMode = False
        MultiLine = False
        SelectFrameColor = clGradientActiveCaption
        SelectTextColor = clWhite
        ColSelect = False
        HighlightSortCol = False
        HasMatrix = False
        HMatrixSpace = 5
        VMatrixSpace = 5
        HasHLine = False
        hasVLine = False
        MatrixColor = clYellow
        TitleHeight = 18
        DataHeight = 18
        ColWidths = (
          14
          29
          241
          169)
        RowHeights = (
          18
          18)
      end
    end
  end
  object YHBCheckBoxCellEditor2: TYHBCheckBoxCellEditor
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    AutoSetValue = True
    Left = 32
    Top = 160
  end
  object YHBCheckBoxCellEditor1: TYHBCheckBoxCellEditor
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    AutoSetValue = True
    Left = 60
    Top = 160
  end
end