untgetrailwaydata.dfm

提取铁路的GPS数据通过串口

object frmGetRailData: TfrmGetRailData
  Left = 365
  Top = 135
  Width = 474
  Height = 303
  Caption = 'frmGetRailData'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 466
    Height = 81
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 16
      Top = 32
      Width = 56
      Height = 16
      Caption = #31471#21475#21495':'
    end
    object cbPort: TComboBox
      Left = 96
      Top = 28
      Width = 145
      Height = 24
      ItemHeight = 16
      TabOrder = 0
      Text = 'COMM1'
      OnChange = cbPortChange
      Items.Strings = (
        'COMM1'
        'COMM2'
        'COMM3'
        'COMM4'
        'COMM5'
        'COMM6')
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 466
    Height = 136
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object ledtLong: TLabeledEdit
      Left = 72
      Top = 24
      Width = 121
      Height = 24
      EditLabel.Width = 40
      EditLabel.Height = 16
      EditLabel.Caption = #19996#32463':'
      LabelPosition = lpLeft
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 0
      Text = '0'
    end
    object ledtLat: TLabeledEdit
      Left = 272
      Top = 24
      Width = 121
      Height = 24
      EditLabel.Width = 40
      EditLabel.Height = 16
      EditLabel.Caption = #21271#32428':'
      LabelPosition = lpLeft
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 1
      Text = '0'
    end
    object cbTube: TCheckBox
      Left = 40
      Top = 88
      Width = 97
      Height = 17
      Caption = #38567#36947
      TabOrder = 2
    end
    object cbStandard: TCheckBox
      Left = 208
      Top = 88
      Width = 73
      Height = 17
      Caption = #26631#31216#28857
      TabOrder = 3
    end
    object Edit1: TEdit
      Left = 288
      Top = 88
      Width = 121
      Height = 24
      TabOrder = 4
      Text = '0'
    end
  end
  object Button1: TButton
    Left = 240
    Top = 232
    Width = 90
    Height = 30
    Caption = #37319#25968
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 344
    Top = 232
    Width = 90
    Height = 30
    Caption = #36864#20986
    TabOrder = 3
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 88
    Top = 232
    Width = 121
    Height = 24
    TabOrder = 4
    Text = '0'
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 280
    Top = 40
  end
  object Comm1: TComm
    CommName = 'com1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 24
    Top = 232
  end
end