object ViewMap: TViewMap
  Left = 285
  Top = 105
  Width = 561
  Height = 458
  Caption = 'ViewMap'
  Color = clWhite
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  Visible = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BI: TBevel
    Left = 24
    Top = 48
    Width = 25
    Height = 26
    Shape = bsFrame
    Style = bsRaised
    Visible = False
  end
  object SBTools: TSpeedButton
    Left = 0
    Top = 0
    Width = 17
    Height = 17
    Caption = '�'
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
    OnClick = SBToolsClick
  end
  object GeoLabel: TPanel
    Left = 232
    Top = 32
    Width = 185
    Height = 17
    BevelOuter = bvLowered
    Enabled = False
    Caption = 'GeoLabel'
    Color = clSilver
    TabOrder = 0
    Visible = False
  end
  object SH: TStretchHandle
    Left = 24
    Top = 24
    Width = 24
    Height = 24
    Enabled = False
    Visible = False
    OnDblClick = SHDblClick
  end
  object PButtons: TPanel
    Left = 0
    Top = 17
    Width = 18
    Height = 244
    BevelOuter = bvNone
    Color = clNone
    TabOrder = 2
    object SBPlus: TSpeedButton
      Left = 0
      Top = 1
      Width = 19
      Height = 17
      Hint = 'Zoom In'
      Caption = '+'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Symbol'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBPlusClick
    end
    object SBminus: TSpeedButton
      Left = 0
      Top = 17
      Width = 19
      Height = 17
      Hint = 'Zoom Out'
      Caption = '-'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Symbol'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBminusClick
    end
    object SBReset: TSpeedButton
      Left = 0
      Top = 33
      Width = 19
      Height = 17
      Hint = 'Full Map'
      Caption = '�'
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBResetClick
    end
    object SBLSet: TSpeedButton
      Left = 0
      Top = 55
      Width = 19
      Height = 19
      Hint = 'Set layer'
      Caption = '@'
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBLSetClick
    end
    object SBSel: TSpeedButton
      Left = 0
      Top = 74
      Width = 19
      Height = 19
      Hint = 'Select layers,geoObjects'
      Caption = 'F'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBSelClick
    end
    object SBLbl: TSpeedButton
      Left = 0
      Top = 93
      Width = 19
      Height = 19
      Hint = 'Label info/draw/hide'
      Caption = '�'
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBLblClick
    end
    object SBProj: TSpeedButton
      Left = 0
      Top = 138
      Width = 19
      Height = 20
      Hint = 'Save GeoProject'
      Caption = 'C'
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBProjClick
    end
    object SBEvnt: TSpeedButton
      Left = 0
      Top = 158
      Width = 19
      Height = 20
      Hint = 'Save GeoProject Monitor'
      Caption = '`'
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBEvntClick
    end
    object SBApl: TSpeedButton
      Left = 0
      Top = 118
      Width = 19
      Height = 20
      Hint = 'Make applet cfg.File'
      Caption = '"'
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBAplClick
    end
    object SBAplS: TSpeedButton
      Left = 0
      Top = 184
      Width = 19
      Height = 20
      Hint = 'Make applet cfg.File'
      Caption = '"'
      Font.Color = clPurple
      Font.Height = -19
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBAplSClick
    end
    object SBProjS: TSpeedButton
      Left = 0
      Top = 204
      Width = 19
      Height = 20
      Hint = 'Save GeoProject'
      Caption = 'C'
      Font.Color = clPurple
      Font.Height = -19
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBProjSClick
    end
    object SBEventS: TSpeedButton
      Left = 0
      Top = 224
      Width = 19
      Height = 20
      Hint = 'Save GeoProject Monitor'
      Caption = '`'
      Font.Color = clPurple
      Font.Height = -19
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBEventSClick
    end
  end
  object PTools: TPanel
    Left = 18
    Top = 0
    Width = 61
    Height = 18
    BevelOuter = bvNone
    Color = clNone
    TabOrder = 3
    object SBImage: TSpeedButton
      Left = 1
      Top = 0
      Width = 20
      Height = 18
      Hint = 'Image resize, move  (FotoMap)'
      Caption = '�'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBImageClick
    end
    object SBDigi: TSpeedButton
      Left = 20
      Top = 0
      Width = 22
      Height = 18
      Hint = 'Digitize GeoObject'
      Caption = '8'
      Font.Color = clBlack
      Font.Height = -19
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBDigiClick
    end
    object SBProp: TSpeedButton
      Left = 41
      Top = 0
      Width = 20
      Height = 18
      Hint = 'Map Extent '
      Caption = '2'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Webdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBPropClick
    end
  end
end