unit1.dfm

ADS-B接收机DIY全套资料

object Form1: TForm1
  Left = 343
  Top = 112
  AutoScroll = False
  Caption = 'adsbSCOPE 1.6 by sprut'
  ClientHeight = 754
  ClientWidth = 1272
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 8
    Top = 32
    Width = 633
    Height = 631
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Label2: TLabel
    Left = 280
    Top = 672
    Width = 32
    Height = 13
    Hint = 'East-West span of display'
    Caption = 'Label2'
    ParentShowHint = False
    ShowHint = True
  end
  object Label4: TLabel
    Left = 168
    Top = 672
    Width = 32
    Height = 13
    Caption = 'ZOOM'
    OnClick = Airports1Click
  end
  object TrackBar1: TTrackBar
    Left = 8
    Top = 664
    Width = 145
    Height = 25
    Hint = 'zoom scale'
    Max = 110
    Min = 16
    Orientation = trHorizontal
    ParentShowHint = False
    Frequency = 1
    Position = 16
    SelEnd = 0
    SelStart = 0
    ShowHint = True
    TabOrder = 0
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBar1Change
  end
  object Panel1: TPanel
    Left = 656
    Top = 32
    Width = 609
    Height = 641
    Caption = 'Panel1'
    TabOrder = 1
    object Label5: TLabel
      Left = 432
      Top = 600
      Width = 50
      Height = 13
      Caption = 'Framerate:'
    end
    object Label1: TLabel
      Left = 432
      Top = 616
      Width = 55
      Height = 13
      Caption = 'CRC-Errors:'
    end
    object Label3: TLabel
      Left = 40
      Top = 600
      Width = 47
      Height = 13
      Hint = 'click to update'
      Caption = 'U-signal ='
      ParentShowHint = False
      ShowHint = True
      OnClick = Label3Click
    end
    object Label6: TLabel
      Left = 40
      Top = 616
      Width = 32
      Height = 13
      Hint = 'click to update'
      Caption = 'U-ref ='
      ParentShowHint = False
      ShowHint = True
      OnClick = Label6Click
    end
    object StringGrid1: TStringGrid
      Left = 0
      Top = 136
      Width = 609
      Height = 305
      Hint = 'list of tracked planes'
      ColCount = 12
      DefaultColWidth = 50
      RowCount = 1
      FixedRows = 0
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnSelectCell = StringGrid1SelectCell
    end
    object Memo2: TMemo
      Left = 0
      Top = 456
      Width = 609
      Height = 129
      Hint = 'decoded information'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      Lines.Strings = (
        'Memo2')
      ParentFont = False
      ParentShowHint = False
      ScrollBars = ssBoth
      ShowHint = True
      TabOrder = 1
    end
    object Memo1: TMemo
      Left = 0
      Top = 0
      Width = 241
      Height = 121
      Hint = 'low level data from PIC'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      Lines.Strings = (
        'Memo1')
      ParentFont = False
      ParentShowHint = False
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 2
    end
    object RadioGroup1: TRadioGroup
      Left = 376
      Top = 16
      Width = 161
      Height = 105
      Hint = 'data delivered by decoder'
      Caption = 'Decoder-Mode'
      ItemIndex = 0
      Items.Strings = (
        '0 - OFF'
        '1 - reserved'
        '2 - all received data'
        '3 - only DF17'
        '4 - only DF17 + CRC-ok')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = RadioGroup1Click
    end
    object Button1: TButton
      Left = 256
      Top = 16
      Width = 105
      Height = 25
      Hint = 'select decoder-COM-port'
      Caption = 'select COM-Port'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 256
      Top = 56
      Width = 105
      Height = 25
      Hint = 'connect to decoder'
      Caption = 'Connect'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = Button2Click
    end
    object ButtonStart: TButton
      Left = 256
      Top = 96
      Width = 49
      Height = 25
      Caption = 'Start'
      TabOrder = 6
      OnClick = ButtonStartClick
    end
    object ButtonStop: TButton
      Left = 312
      Top = 96
      Width = 49
      Height = 25
      Caption = 'Stop'
      TabOrder = 7
      OnClick = ButtonStopClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 737
    Width = 1272
    Height = 17
    Panels = <
      item
        Text = 'Center:'
        Width = 250
      end
      item
        Text = 'Range:'
        Width = 150
      end
      item
        Text = 'Koord:'
        Width = 50
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1272
    Height = 29
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 3
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = 'move world down'
      Caption = 'ToolButton1'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 2
      Hint = 'move world up'
      Caption = 'ToolButton2'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 2
      Hint = 'move world to the left'
      Caption = 'ToolButton3'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 2
      Hint = 'move world to the right'
      Caption = 'ToolButton4'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton4Click
    end