main.~dfm

校园GIS系统——介绍校园个部门

object MainFrm: TMainFrm
  Left = 159
  Top = 140
  Width = 773
  Height = 565
  Caption = '校园地理信息系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 169
    Top = 54
    Width = 16
    Height = 438
    Cursor = crHSplit
    Color = clScrollBar
    ParentColor = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 25
    Width = 765
    Height = 29
    ButtonHeight = 25
    Caption = 'ToolBar1'
    Color = clScrollBar
    ParentColor = False
    TabOrder = 0
    object SbZoomIn: TSpeedButton
      Tag = 1
      Left = 0
      Top = 2
      Width = 40
      Height = 25
      Hint = '放大'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        4466666666666664744666666666664744466666666664744466666600004744
        46666600777F8444666660877777F8086666607770777F066666077770777770
        6666077000007770666607F770777770666607F770777770666660FF77777706
        6666608FFF777806666666007777006666666666000066666666}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbZoomInClick
    end
    object SbZoomOut: TSpeedButton
      Tag = 2
      Left = 40
      Top = 2
      Width = 40
      Height = 25
      Hint = '缩小'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        4466666666666664744666666666664744466666666664744466666600004744
        46666600777F8444666660877777F8086666607777777F066666077777777770
        6666077777777770666607F700007770666607F777777770666660FF77777706
        6666608FFF777806666666007777006666666666000066666666}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbZoomInClick
    end
    object SbPan: TSpeedButton
      Tag = 3
      Left = 80
      Top = 2
      Width = 40
      Height = 25
      Hint = '平移'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        4466666660FFFFFF066666660FFFFFFF06666660FFFFFFFFF066660FFFFFFFFF
        F066660FFFFFFFFFFF0660FFFFFFFFFFFF060FFF0FFFFFFFFF060FF00FFFFFFF
        FFF060060FFFFFFF0FF06660FF0FF0FF0FF06660FF0FF0FF00F0660FF00FF0FF
        0606660FF00FF0FF06666660060FF00066666666666006666666}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbZoomInClick
    end
    object SbReady: TSpeedButton
      Tag = 5
      Left = 120
      Top = 2
      Width = 40
      Height = 25
      Hint = '准备'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666006666666666666600666666666666600666666666606660066
        6666666600600666666666660000066666666666000000006666666600000006
        6666666600000066666666660000066666666666000066666666666600066666
        6666666600666666666666660666666666666666666666666666}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbZoomInClick
    end
    object SbFullExtent: TSpeedButton
      Tag = 6
      Left = 160
      Top = 2
      Width = 40
      Height = 25
      Hint = '刷新'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666668888866666666688CCC22886666668CCCC2222C8666687CC762222
        26866686C722222222866876C7222222CCC8687CC222222C22C868C7CCC22C22
        24C86877C2CCCCCC4C286877CC2CCC2C4C2866877C2222222286668CCCC2C222
        22866668CC6CC222286666668882C22886666666668888866666}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbZoomInClick
    end
    object SbMeasure: TSpeedButton
      Tag = 4
      Left = 200
      Top = 2
      Width = 40
      Height = 25
      Hint = '量测距离'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000C40E0000C40E00000000000000000000C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C000000000000000000000000000000000000000000000
        000000000000000000000000000000000000000000000000000000000000FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00000000000000797B00797B00000000797B00797B00000000
        797B00797B00000000797B00797B00000000797B00797B000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C07B797B0000007B797BC0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C07B797B0000007B797BC0C0C0000000000000
        0000000000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        00000000000000C0C0C07B797B0000007B797BC0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C07B797B0000007B797BC0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbZoomInClick
    end
    object SbIdentify: TSpeedButton
      Tag = 7
      Left = 240
      Top = 2
      Width = 40
      Height = 25
      Hint = '按距离查找'
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666000066666666660000000066666660000000000666660000FFFF00
        00666600000FF00000666000000FF00000066000000FF00000066000000FF000
        0006600000FFF000000666000000000000666600000FF00000666660000FF000
        0666666600000000666666666600006666666666666666666666}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbZoomInClick
    end
    object SbFlashGet: TSpeedButton
      Tag = 8
      Left = 280
      Top = 2
      Width = 40
      Height = 25
      Hint = '快速获取地名'
      GroupIndex = 1
      Flat = True
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = SbZoomInClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 492
    Width = 765
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Alignment = taCenter
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Mainmap: TMap
    Left = 185
    Top = 54
    Width = 580
    Height = 438
    ParentColor = False
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnMouseUp = MainmapMouseUp
    OnMouseMove = MainmapMouseMove
    OnMouseDown = MainmapMouseDown
    OnAfterLayerDraw = MainmapAfterLayerDraw
    OnAfterTrackingLayerDraw = MainmapAfterTrackingLayerDraw
    ControlData = {
      00000200F23B0000452D0000E1000000FFFFFF00010001000001102700000100
      00000000000000000000000000000100FFFFFF0000020000000000}
  end
  object Panel1: TPanel
    Left = 0
    Top = 54
    Width = 169
    Height = 438
    Align = alLeft
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 3
    object Splitter2: TSplitter
      Left = 1
      Top = 267
      Width = 163
      Height = 16
      Cursor = crVSplit
      Align = alBottom
    end
    object Localmap: TMap
      Left = 1
      Top = 283
      Width = 163
      Height = 150
      ParentColor = False
      Align = alBottom
      TabOrder = 0
      OnMouseUp = LocalmapMouseUp
      OnMouseMove = LocalmapMouseMove
      OnMouseDown = LocalmapMouseDown
      OnAfterTrackingLayerDraw = LocalmapAfterTrackingLayerDraw
      ControlData = {
        00000200D9100000810F0000E1000000FFFFFF00010001000000102700000100
        00000000000000000000000000000100FFFFFF0000020000000000}
    end
    object tfcMaptreeview1: tfcMaptreeview
      Left = 1
      Top = 1
      Width = 163
      Height = 266
      Align = alClient
      Indent = 19
      Options = [tvoHideSelection, tvoShowButtons, tvoShowRoot, tvoToolTips]
      Items.StreamVersion = 1
      Items.Data = {00000000}
      TabOrder = 1
      SourceMap = Mainmap
    end
  end
  object Edit1: TEdit
    Left = 296
    Top = 80
    Width = 129
    Height = 21
    BorderStyle = bsNone
    TabOrder = 4
    Text = 'Edit1'
    Visible = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 765
    Height = 25
    Align = alTop
    BevelOuter = bvLowered
    Caption = 'Panel2'
    TabOrder = 5
    Visible = False
    object Label1: TLabel
      Left = 204
      Top = 8
      Width = 42
      Height = 13
      Caption = '图层：  '
    end
    object Label2: TLabel
      Left = 353
      Top = 8
      Width = 42
      Height = 13
      Caption = '使用：  '
    end
    object SbRec: TSpeedButton
      Left = 81
      Top = 0
      Width = 40
      Height = 25
      GroupIndex = 1
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000