display.dfm

基于USB接口的GPS应用程序

object Form1: TForm1
  Left = 124
  Top = 105
  BorderStyle = bsDialog
  Caption = 'USB GPS Software receiver'
  ClientHeight = 549
  ClientWidth = 870
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel7: TBevel
    Left = 504
    Top = 20
    Width = 353
    Height = 2
    Style = bsRaised
  end
  object Bevel8: TBevel
    Left = 504
    Top = 16
    Width = 353
    Height = 2
    Style = bsRaised
  end
  object Bevel9: TBevel
    Left = 8
    Top = 16
    Width = 353
    Height = 2
    Style = bsRaised
  end
  object Bevel10: TBevel
    Left = 8
    Top = 20
    Width = 353
    Height = 2
    Style = bsRaised
  end
  object Label2: TLabel
    Left = 372
    Top = 10
    Width = 127
    Height = 17
    Caption = 'Raw Data Display'
    Font.Charset = ANSI_CHARSET
    Font.Color = clOlive
    Font.Height = -14
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object d: TPanel
    Left = 0
    Top = 0
    Width = 870
    Height = 549
    Align = alClient
    Alignment = taLeftJustify
    BevelInner = bvSpace
    BevelOuter = bvLowered
    TabOrder = 0
    object Bevel3: TBevel
      Left = 3
      Top = 17
      Width = 361
      Height = 2
      Style = bsRaised
    end
    object Bevel4: TBevel
      Left = 3
      Top = 20
      Width = 361
      Height = 2
      Style = bsRaised
    end
    object Label1: TLabel
      Left = 370
      Top = 10
      Width = 127
      Height = 17
      Caption = 'Raw Data Display'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Bevel5: TBevel
      Left = 506
      Top = 20
      Width = 361
      Height = 2
      Style = bsRaised
    end
    object Bevel6: TBevel
      Left = 506
      Top = 17
      Width = 361
      Height = 2
      Style = bsRaised
    end
    object Bevel11: TBevel
      Left = 544
      Top = 164
      Width = 322
      Height = 2
      Style = bsRaised
    end
    object Bevel12: TBevel
      Left = 544
      Top = 161
      Width = 322
      Height = 2
      Style = bsRaised
    end
    object Bevel13: TBevel
      Left = 3
      Top = 161
      Width = 318
      Height = 2
      Style = bsRaised
    end
    object Bevel14: TBevel
      Left = 3
      Top = 164
      Width = 318
      Height = 2
      Style = bsRaised
    end
    object Label3: TLabel
      Left = 324
      Top = 154
      Width = 213
      Height = 17
      Caption = 'Tracking Loop Status Display'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel15: TBevel
      Left = 3
      Top = 324
      Width = 322
      Height = 2
      Style = bsRaised
    end
    object Bevel16: TBevel
      Left = 3
      Top = 321
      Width = 322
      Height = 2
      Style = bsRaised
    end
    object Label4: TLabel
      Left = 332
      Top = 314
      Width = 194
      Height = 17
      Caption = 'Navigation Results Display'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -14
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel17: TBevel
      Left = 536
      Top = 324
      Width = 330
      Height = 2
      Style = bsRaised
    end
    object Bevel18: TBevel
      Left = 536
      Top = 321
      Width = 330
      Height = 2
      Style = bsRaised
    end
    object Bevel1: TBevel
      Left = 3
      Top = 457
      Width = 862
      Height = 2
      Style = bsRaised
    end
    object Bevel2: TBevel
      Left = 3
      Top = 460
      Width = 862
      Height = 2
      Style = bsRaised
    end
    object ListView1: TListView
      Left = 2
      Top = 29
      Width = 866
      Height = 119
      BiDiMode = bdRightToLeft
      Columns = <
        item
          Caption = 'CH'
          Width = 30
        end
        item
          Alignment = taCenter
          Caption = 'PRN'
        end
        item
          Alignment = taCenter
          Caption = 'CD_SL'
        end
        item
          Alignment = taCenter
          Caption = 'CD_PH'
        end
        item
          Alignment = taCenter
          Caption = 'CA_CY_HI'
          Width = 70
        end
        item
          Alignment = taCenter
          Caption = 'CA_CY_LO'
          Width = 70
        end
        item
          Alignment = taCenter
          Caption = 'CA_DCO_PH'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = 'CD_DCO_PH'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = 'Epoch'
        end
        item
          Alignment = taCenter
          Caption = 'I_Track'
          Width = 55
        end
        item
          Alignment = taCenter
          Caption = 'Q_Track'
          Width = 55
        end
        item
          Alignment = taCenter
          Caption = 'I_Prompt'
          Width = 60
        end
        item
          Alignment = taCenter
          Caption = 'Q_Prompt'
          Width = 60
        end
        item
          Alignment = taCenter
          Caption = 'freq_phs'
          Width = 80
        end>
      ParentBiDiMode = False
      TabOrder = 0
      ViewStyle = vsReport
    end
    object ResultListView: TListView
      Left = 2
      Top = 174
      Width = 866
      Height = 131
      BiDiMode = bdRightToLeft
      Columns = <
        item
          Caption = 'PRN'
          Width = 36
        end
        item
          Alignment = taCenter
          Caption = 'State'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = 'Freq_Offset'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = 'S/No'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = 'NVG MSG'
          Width = 100
        end
        item
          Alignment = taCenter
          Caption = 'TOW'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = 'TLM'
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = 'Pseudorange'
          Width = 120
        end
        item
          Alignment = taCenter
          Caption = 'Elevation'
          Width = 90
        end
        item
          Alignment = taCenter
          Caption = 'Azimuth'
          Width = 90
        end>
      ParentBiDiMode = False
      TabOrder = 1
      ViewStyle = vsReport
    end
    object QuitButton: TButton
      Left = 80
      Top = 488
      Width = 75
      Height = 25
      Caption = 'QUIT'
      DragCursor = crHandPoint
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = QuitButtonClick
    end
    object StatusBar: TStatusBar
      Left = 2
      Top = 528
      Width = 866
      Height = 19
      Panels = <
        item
          Alignment = taCenter
          Text = 'USB GPS Interface'
          Width = 150
        end
        item
          Alignment = taCenter