unitmainform.dfm

此代码是关于mapgis的在

object Form_Main: TForm_Main
  Left = 195
  Top = 76
  AutoScroll = False
  Caption = #19971#26143'GIS'#24179#21488#65288'V0.0.1'#65289
  ClientHeight = 611
  ClientWidth = 784
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 149
    Top = 85
    Height = 347
  end
  object Splitter3: TSplitter
    Left = 0
    Top = 432
    Width = 784
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Button9: TButton
    Left = 624
    Top = 8
    Width = 75
    Height = 25
    Caption = #25991#23383#23646#24615
    TabOrder = 0
  end
  object Button10: TButton
    Left = 624
    Top = 40
    Width = 75
    Height = 25
    Caption = #32447#23646#24615
    TabOrder = 1
  end
  object Button11: TButton
    Left = 624
    Top = 72
    Width = 75
    Height = 25
    Caption = #21306#22495#23646#24615
    TabOrder = 2
  end
  object Button12: TButton
    Left = 624
    Top = 104
    Width = 75
    Height = 25
    Caption = #28857#23646#24615
    TabOrder = 3
  end
  object Panel1: TPanel
    Left = 0
    Top = 85
    Width = 149
    Height = 347
    Align = alLeft
    TabOrder = 4
    object PageControl1: TPageControl
      Left = 1
      Top = 26
      Width = 147
      Height = 320
      ActivePage = TabSheet1
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabPosition = tpBottom
      object TabSheet1: TTabSheet
        Caption = #22270#23618#25511#21046
        object tvLayers: TTreeView
          Left = 0
          Top = 0
          Width = 139
          Height = 295
          Align = alClient
          DragMode = dmAutomatic
          Images = ImageList4
          Indent = 19
          RowSelect = True
          StateImages = ImageList2
          TabOrder = 0
          OnChange = tvLayersChange
          OnContextPopup = tvLayersContextPopup
          OnDragDrop = tvLayersDragDrop
          OnDragOver = tvLayersDragOver
          OnKeyDown = tvLayersKeyDown
          OnMouseDown = tvLayersMouseDown
        end
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 147
      Height = 25
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        147
        25)
      object cb_Maps: TComboBox
        Left = 2
        Top = 2
        Width = 144
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 13
        TabOrder = 0
        OnChange = cb_MapsChange
      end
    end
  end
  object Panel2: TPanel
    Left = 152
    Top = 85
    Width = 632
    Height = 347
    Align = alClient
    TabOrder = 5
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 630
      Height = 345
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 0
      object MapXObject1: TMapXObject
        Left = 1
        Top = 1
        Width = 628
        Height = 343
        ParentColor = False
        Align = alClient
        PopupMenu = pmMapView
        TabOrder = 0
        OnMouseUp = MapXObject1MouseUp
        OnMouseMove = MapXObject1MouseMove
        OnMouseDown = MapXObject1MouseDown
        OnKeyDown = MapXObject1KeyDown
        OnDblClick = MapXObject1DblClick
        OnSelectionChanged = MapXObject1SelectionChanged
        OnToolUsed = MapXObject1ToolUsed
        OnMapViewChanged = MapXObject1MapViewChanged
        OnDrawUserLayer = MapXObject1DrawUserLayer
        ControlData = {
          2CA10700E840000073230000010000000F0000FFFFFEFF0D470065006F004400
          69006300740069006F006E0061007200790000FFFEFF3745006D007000740079
          002000470065006F007300650074004E0061006D00650020007B003900410039
          00410043003200460034002D0038003300370035002D0034003400640031002D
          0042004300450042002D00340037003600410045003900380036004600310039
          0030007D00FFFEFF001E00FFFEFF000600010A000000000000FFFEFF00500001
          0100000001F4010000050000800C0000000014000000000002000E00E8030005
          00000100000000FFFFFF000000000000000001370000000000FFFFFF00000000
          0000000352E30B918FCE119DE300AA004BB851010000009001DC7C0100054172
          69616C000352E30B918FCE119DE300AA004BB851010200009001A42C02000B4D
          61702053796D626F6C730000000000000001000100FFFFFF000200FFFFFF0000
          0000000001000000010000FFFEFF3245006D0070007400790020005400690074
          006C00650020007B00300031004100390035003000340042002D004300450031
          0033002D0034003400310035002D0041003500410030002D0035003100440038
          00430032004600310035003200300034007D0000000000FFFFFF000100000000
          000000000000000000000000000000000000000352E30B918FCE119DE300AA00
          4BB851010000009001C4EB040005417269616C000352E30B918FCE119DE300AA
          004BB851010000009001C4EB040005417269616C000000000000000000000000
          00000000000000000000000000000000000000000000000000CCA74000000000
          00C06240010000010000180100000100000030DE12001C000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000020000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000008076C000000000008056C0000000000080764000000000008056400000
          00007CBB130C180100000100000030DE12001C00000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000200
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000080
          76C000000000008056C000000000008076400000000000805640000000007CBB
          130C000000000000000000000000000000000000000000000000000000000000
          00000000000000000000}
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 29
    Width = 784
    Height = 56
    AutoSize = True
    Bands = <
      item
        Control = ToolBarMapViewTool
        ImageIndex = -1
        MinHeight = 22
        Width = 346
      end
      item
        Break = False
        Control = ToolBar3
        ImageIndex = -1
        Width = 432
      end
      item
        Control = ToolBarDrawMapTool
        ImageIndex = -1
        Width = 267
      end
      item
        Break = False
        Control = ToolBar2
        ImageIndex = -1
        Width = 511
      end>
    object ToolBarDrawMapTool: TToolBar
      Left = 9
      Top = 27
      Width = 254
      Height = 25
      AutoSize = True
      ButtonHeight = 25
      ButtonWidth = 25
      Caption = 'ToolBarDrawMapTool'
      DockSite = True
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object TBtnCUSTOM_SYMBOL_TOOL: TToolButton
        Tag = 1
        Left = 0
        Top = 0
        Caption = 'TBtnCUSTOM_SYMBOL_TOOL'
        ImageIndex = 7
      end
      object TBtnCUSTOM_LINE_TOOL: TToolButton
        Tag = 2
        Left = 25
        Top = 0
        Caption = 'TBtnCUSTOM_LINE_TOOL'
        ImageIndex = 9
      end
      object TBtnCUSTOM_POLYLINE_TOOL: TToolButton
        Tag = 3
        Left = 50
        Top = 0
        Caption = 'TBtnCUSTOM_POLYLINE_TOOL'
        ImageIndex = 10
      end
      object TBtnCUSTOM_RECTANGLE_TOOL: TToolButton
        Tag = 12
        Left = 75
        Top = 0
        Caption = 'TBtnCUSTOM_RECTANGLE_TOOL'
        ImageIndex = 11
      end
      object TBtnCUSTOM_CIRCULARREGION_TOOL: TToolButton
        Tag = 5
        Left = 100
        Top = 0
        Caption = 'TBtnCUSTOM_CIRCULARREGION_TOOL'
        ImageIndex = 60
      end
      object TBtnCUSTOM_REGION_TOOL: TToolButton
        Tag = 14
        Left = 125
        Top = 0
        Caption = 'TBtnCUSTOM_REGION_TOOL'
        ImageIndex = 13
      end
      object TBtnCUSTOM_ELLIPSE_TOOL: TToolButton
        Left = 150
        Top = 0
        ImageIndex = 12
      end
      object TBtnCUSTOM_ARC_TOOL: TToolButton
        Left = 175
        Top = 0
        ImageIndex = 61
      end
      object TBtnCUSTOM_TEXT_TOOL: TToolButton
        Tag = 9
        Left = 200
        Top = 0
        Caption = 'TBtnCUSTOM_TEXT_TOOL'
        ImageIndex = 8
      end
      object TBtnCUSTOM_LABEL_TOOL: TToolButton
        Tag = 15
        Left = 225
        Top = 0
        Caption = 'TBtnCUSTOM_LABEL_TOOL'
        ImageIndex = 21
      end
    end
    object ToolBarMapViewTool: TToolBar
      Left = 9
      Top = 1
      Width = 333
      Height = 22
      AutoSize = True
      ButtonWidth = 25
      Caption = 'ToolBarMapViewTool'
      DockSite = True
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageList1
      TabOrder = 1
      object TBtnSelectTool: TToolButton
        Tag = 1007
        Left = 0
        Top = 0
        Caption = 'TBtnSelectTool'
        ImageIndex = 17
      end
      object TBtnRadiusSelectTool: TToolButton
        Tag = 1008
        Left = 25
        Top = 0
        Caption = 'TBtnRadiusSelectTool'
        ImageIndex = 18