unitpopedominfo.dfm

此代码是关于mapgis的在

object Form_PopedomInfo: TForm_PopedomInfo
  Left = 192
  Top = 107
  BorderStyle = bsSingle
  Caption = #26435#38480#20998#37197' - '#24212#29992#31243#24207#20869#37096
  ClientHeight = 434
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 153
    Top = 28
    Height = 406
  end
  object Panel1: TPanel
    Left = 156
    Top = 28
    Width = 532
    Height = 406
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 532
      Height = 21
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 0
      object Label_GroupName: TLabel
        Left = 8
        Top = 5
        Width = 3
        Height = 13
      end
    end
    inline Frame_GroupInfo: TFrame_GroupInfo
      Left = 0
      Top = 21
      Width = 532
      Height = 385
      Align = alClient
      TabOrder = 1
      inherited Splitter1: TSplitter
        Height = 385
      end
      inherited ModuleGrid: TYHBStringGrid
        Height = 385
        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 = Frame_GroupInfo.YHBCheckBoxCellEditor1
            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 = #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>
      end
      inherited PageControl1: TPageControl
        Width = 386
        Height = 385
        inherited TabSheet1: TTabSheet
          inherited ScrollBox1: TScrollBox
            Width = 378
            Height = 357
          end
        end
        inherited TabSheet2: TTabSheet
          inherited FuncGrid: TYHBStringGrid
            Width = 378
            Height = 357
            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 = []
                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 = #26377#25928
                Width = 29
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'MS Sans Serif'
                Font.Style = []
                Editor = Frame_GroupInfo.YHBCheckBoxCellEditor2
                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>
          end
        end
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 28
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 24
        Width = 684
      end>
    object ToolBar1: TToolBar
      Left = 9