untmain.dfm

利用SuperMap object控件实现GPS导航功能

object frmMain: TfrmMain
  Left = 234
  Top = 173
  BorderStyle = bsDialog
  Caption = #20027#31383#20307
  ClientHeight = 398
  ClientWidth = 486
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object SuperMap1: TSuperMap
    Left = 3
    Top = 32
    Width = 480
    Height = 361
    TabOrder = 0
    ControlData = {020005009C3100004F250000A0000000000000000000000000}
  end
  object btnZoomin: TButton
    Left = 3
    Top = 3
    Width = 75
    Height = 25
    Caption = #25918#22823
    TabOrder = 1
    OnClick = btnZoominClick
  end
  object btnZoomout: TButton
    Left = 80
    Top = 3
    Width = 75
    Height = 25
    Caption = #32553' '#23567
    TabOrder = 2
    OnClick = btnZoomoutClick
  end
  object btnViewentire: TButton
    Left = 160
    Top = 3
    Width = 75
    Height = 25
    Caption = #20840#24133#26174#31034
    TabOrder = 3
    OnClick = btnViewentireClick
  end
  object btnPan: TButton
    Left = 240
    Top = 3
    Width = 75
    Height = 25
    Caption = #24179#31227
    TabOrder = 4
    OnClick = btnPanClick
  end
  object btnSelect: TButton
    Left = 320
    Top = 3
    Width = 75
    Height = 25
    Caption = #36873#25321
    TabOrder = 5
    OnClick = btnSelectClick
  end
  object btnGPS: TButton
    Left = 400
    Top = 3
    Width = 75
    Height = 25
    Caption = 'GPS'#36319#36394
    TabOrder = 6
    OnClick = btnGPSClick
  end
  object SuperWorkspace1: TSuperWorkspace
    Left = 240
    Top = 144
    Width = 32
    Height = 32
    ControlData = {020005004F0300004F03000000000000}
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 176
    Top = 64
  end
end