object frmReceiver: TfrmReceiver
  Left = 100
  Top = 332
  Anchors = [akLeft, akTop, akRight, akBottom]
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '   R 7 0 0 0   Serial'
  ClientHeight = 262
  ClientWidth = 537
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnu
  OldCreateOrder = False
  Position = poDesigned
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 537
    Height = 110
    Align = alTop
    TabOrder = 0
    object lblroR7000SvrPort: TLabel
      Left = 435
      Top = 46
      Width = 64
      Height = 13
      Caption = 'RoServerPort'
    end
    object gbPort: TGroupBox
      Left = 1
      Top = 1
      Width = 431
      Height = 108
      Hint = 'Port|Setup and control port'
      Align = alLeft
      Caption = 'Comm Port'
      TabOrder = 0
      object lblPort: TLabel
        Left = 3
        Top = 28
        Width = 22
        Height = 13
        Caption = 'Port:'
      end
      object lblRate: TLabel
        Left = 3
        Top = 51
        Width = 26
        Height = 13
        Caption = 'Rate:'
      end
      object lblRadioAddr: TLabel
        Left = 3
        Top = 78
        Width = 22
        Height = 13
        Hint = 'RcvAddr|The address of this R7000 (default to 8)'
        Caption = 'Addr'
      end
      object rgParity: TRadioGroup
        Left = 102
        Top = 13
        Width = 65
        Height = 81
        Hint = 'None|Com port parity (usually None)'
        Caption = 'Parity'
        ItemIndex = 0
        Items.Strings = (
          'none'
          'odd'
          'even')
        TabOrder = 0
      end
      object rgDataBits: TRadioGroup
        Left = 178
        Top = 13
        Width = 43
        Height = 81
        Hint = 'Bits|Usually 8 bit'
        Caption = 'Data'
        ItemIndex = 1
        Items.Strings = (
          '7'
          '8')
        TabOrder = 1
      end
      object rgStopBits: TRadioGroup
        Left = 228
        Top = 13
        Width = 41
        Height = 81
        Hint = 'Bits|Usually 1 stop bit'
        Caption = 'Stop'
        ItemIndex = 0
        Items.Strings = (
          '1'
          '2')
        TabOrder = 2
      end
      object gbPortStatus: TGroupBox
        Left = 275
        Top = 13
        Width = 153
        Height = 81
        Hint = 'PortStat|Shows the current status of the port when open'
        Caption = ' Port Status'
        TabOrder = 3
        object ledDCD: TApdStatusLight
          Left = 12
          Top = 16
          Width = 13
          Height = 13
          Lit = False
          LitColor = clGreen
          NotLitColor = clGray
        end
        object ledDTR: TApdStatusLight
          Left = 40
          Top = 16
          Width = 13
          Height = 13
          Lit = False
          LitColor = clGreen
          NotLitColor = clGray
        end
        object ledDSR: TApdStatusLight
          Left = 68
          Top = 16
          Width = 13
          Height = 13
          Lit = False
          LitColor = clGreen
          NotLitColor = clGray
        end
        object ledRTS: TApdStatusLight
          Left = 96
          Top = 16
          Width = 13
          Height = 13
          Lit = False
          LitColor = clGreen
          NotLitColor = clGray
        end
        object ledCTS: TApdStatusLight
          Left = 124
          Top = 16
          Width = 13
          Height = 13
          Lit = False
          LitColor = clGreen
          NotLitColor = clGray
        end
        object lblCTS: TLabel
          Left = 120
          Top = 32
          Width = 21
          Height = 13
          Caption = 'CTS'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object lblRTS: TLabel
          Left = 91
          Top = 32
          Width = 22
          Height = 13
          Caption = 'RTS'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object lblDSR: TLabel
          Left = 63
          Top = 32
          Width = 23
          Height = 13
          Caption = 'DSR'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object lblDTR: TLabel
          Left = 35
          Top = 32
          Width = 23
          Height = 13
          Caption = 'DTR'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object lblDCD: TLabel
          Left = 10
          Top = 32
          Width = 23
          Height = 13
          Caption = 'DCD'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ledRx: TApdStatusLight
          Left = 36
          Top = 48
          Width = 13
          Height = 13
          Lit = False
          LitColor = clLime
          NotLitColor = clGray
        end
        object lblRX: TLabel
          Left = 35
          Top = 65
          Width = 15
          Height = 13
          Caption = 'RX'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object lblTX: TLabel
          Left = 11
          Top = 65
          Width = 14
          Height = 13
          Caption = 'TX'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ledTx: TApdStatusLight
          Left = 12
          Top = 48
          Width = 13
          Height = 13
          Lit = False
          LitColor = clLime
          NotLitColor = clGray
        end
        object ledBK: TApdStatusLight
          Left = 60
          Top = 48
          Width = 13
          Height = 13
          Lit = False
          NotLitColor = clGray
        end
        object lblBX: TLabel
          Left = 56
          Top = 65
          Width = 14
          Height = 13
          Caption = 'BX'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ledErr: TApdStatusLight
          Left = 84
          Top = 48
          Width = 13
          Height = 13
          Lit = False
          NotLitColor = clGray
        end
        object lblError: TLabel
          Left = 83
          Top = 65
          Width = 22
          Height = 13
          Caption = 'Error'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
      end
      object comboRate: TComboBox
        Left = 31
        Top = 47
        Width = 55
        Height = 21
        Hint = 'Speed|The com port baud rate (usually 9600)'
        ItemIndex = 1
        TabOrder = 4
        Text = '9600'
        Items.Strings = (
          '19200'
          '9600'
          '1200'
          '300')
      end
      object comboPort: TComboBox
        Left = 31
        Top = 20
        Width = 55
        Height = 21
        Hint = 'Port|Select Serial port for radio'
        TabOrder = 5
        OnChange = comboPortChange
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4'
          'COM5'
          'COM6')
      end
      object comboRadioAddr: TComboBox
        Left = 31
        Top = 74
        Width = 55
        Height = 21
        Hint = 'RcvPort|Receiver jumpers set this value'
        ItemIndex = 2
        TabOrder = 6
        Text = '8'
        Items.Strings = (
          '2'
          '4'
          '8'
          '16')
      end
    end
  end
  object pnlBottom: TPanel
    Left = 0
    Top = 117
    Width = 537
    Height = 145
    Align = alBottom
    Anchors = []
    TabOrder = 1
    object gbR7000: TGroupBox
      Left = 1
      Top = 1
      Width = 592
      Height = 124
      Align = alLeft
      TabOrder = 0
      DesignSize = (
        592
        124)
      object lbl1GHz: TLabel
        Left = 16
        Top = 64
        Width = 3
        Height = 13
        Visible = False
      end
      object rgMode: TRadioGroup
        Left = 87
        Top = 17
        Width = 57
        Height = 91
        Hint = 
          'OpMode|Select the operating mode.  AM for use with a spectrum an' +
          'alyzer  on the audio'
        Caption = 'Mode'
        Enabled = False
        ItemIndex = 0
        Items.Strings = (
          'AM'
          'FMW'
          'FMN'
          'SSB')
        TabOrder = 0
        OnClick = rgModeClick
      end
      object gbFreq: TGroupBox
        Left = 150
        Top = 3
        Width = 385
        Height = 102
        Anchors = []
        Caption = '  Frequency'
        Enabled = False
        TabOrder = 1
        DesignSize = (
          385
          102)
        object ledOpFreq: TRasterLab
          Left = 10
          Top = 23
          Width = 256
          Height = 40
          Hint = 'Freq|Should match the receiver display'
          Anchors = []
          AutoHeight = False
          AutoCenter = False
          ColorLabBakG = clBlack
          ColorDotOn = clLime
          ColorDotOff = clBlack
          ColorScheme = csSystem
          DotSpacing = 1
          DotSize = 2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clScrollBar
          Font.Height = -8
          Font.Name = 'default'
          Font.Style = [fsBold]
          FrameStyle = fsEmbossed
          ParentFont = False
          PosX = 1
          PosY = 1
          Proportional = False
          ScrollMode = rdsmOff
          ScrollInterval = 100
          ScrollIncrement = 1
          ScrollLoop = True
          CharBlockMode = rdbmOff
          Text = '1925,432.1'
          ExplicitLeft = 6
          ExplicitTop = 18
        end
        object knobFreq: TVrWheel
          Left = 272
          Top = 14
          Width = 85
          Height = 85
          MinValue = -100
          BackImage.Data = {
            [encoded data, 7680 characters]
            33333333333333333333333333333333333333333000}
          HandleImage.Data = {
            BE000000424DBE00000000000000760000002800000009000000090000000100
            0400000000004800000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333000
            0000333000333000000033099903300000003099999030000000309999903000
            0000307999903000000033077903300000003330003330000000333333333000
            0000}
          OnChange = knobFreqChange
        end
        object frequd100: TUpDown
          Left = 221
          Top = 64
          Width = 19
          Height = 24
          TabOrder = 0
          OnChangingEx = frequd100ChangingEx
        end
        object freqUD1K: TUpDown
          Left = 175
          Top = 64
          Width = 19
          Height = 24
          TabOrder = 1
          OnChangingEx = freqUD1KChangingEx
        end
        object frequd10K: TUpDown
          Left = 150
          Top = 64
          Width = 19
          Height = 24
          TabOrder = 2
          OnChangingEx = frequd10KChangingEx
        end
        object frequd1Meg: TUpDown
          Left = 80
          Top = 64
          Width = 19
          Height = 24
          TabOrder = 3
          OnChangingEx = frequd1MegChangingEx
        end
        object frequd10Meg: TUpDown
          Left = 56
          Top = 64
          Width = 19
          Height = 24
          TabOrder = 4
          OnChangingEx = frequd10MegChangingEx
        end
        object frequd100Meg: TUpDown
          Left = 32
          Top = 64
          Width = 19
          Height = 24
          TabOrder = 5
          OnChangingEx = frequd100MegChangingEx
        end
        object frequp100K: TUpDown
          Left = 125
          Top = 64
          Width = 19
          Height = 24
          TabOrder = 6
          OnChangingEx = frequp100KChangingEx
        end
        object fregGhzud: TUpDown
          Left = 8
          Top = 64
          Width = 19
          Height = 24
          Hint = 'Set to same as receiver GHz switch'
          TabOrder = 7
          OnChangingEx = fregGhzudChangingEx
        end
      end
      object gbOnOff: TGroupBox
        Left = 9
        Top = 5
        Width = 72
        Height = 116
        Caption = 'OnOff'
        TabOrder = 2
        object swOpen: TAbRockerSwitch
          Left = 3
          Top = 25
          Width = 25
          Height = 65
          Hint = 'Open|Start the receiver'
          BevelOuter.Style = bsLowered
          BevelOuter.Spacing = 1
          BevelOuter.BevelLine = blInner
          BevelOuter.Width = 1
          BevelOuter.Color = clBtnShadow
          BevelOuter.SurfaceGrad.Visible = False
          BevelOuter.SurfaceGrad.Style = gsHorizontal1
          BtnColorHighlight = clBtnHighlight
          BtnColorShadow = clBtnShadow
          BtnColorFace = clBtnFace
          BtnBevelWidth = 2
          Mode = mSwitch
          StatusInt = 0
          StatusBit = 0
          GroupIndex = 0
          Checked = False
          OnClick = swOpenClick
          Orientation = boVertical
          SwapGraphic = False
          Text = ''
          TextX = 0
          TextY = 0
          LEDHeight = 8
          BtnColorFaceHi = 14540253
          BtnColorFaceSh = clBtnFace
          BtnBevel2Width = 3
          LEDColorOn = clLime
          LEDColorOff = clGreen
        end
        object lblSim: TLabel
          Left = 34
          Top = 77
          Width = 17
          Height = 13
          Caption = 'Sim'
        end
        object ledOpen: TAbLED
          Left = 20
          Top = 11
          Width = 49
          Height = 17
          Caption = 'Open'
          Checked = False
          Flashing = False
          Frequency = ff1Hz
          StatusInt = 0
          StatusBit = 0
          GroupIndex = 0
          Mode = mIndicator
          LED_Position = lpRight
          Spacing = 5
        end
        object cbSim: TCheckBox
          Left = 34
          Top = 54
          Width = 19
          Height = 17
          Hint = 'Sim|Check for simulation'
          TabOrder = 0
          OnClick = cbSimClick
        end
        object btnSmall: TButton
          Left = 3
          Top = 96
          Width = 31
          Height = 25
          Caption = 'small'
          TabOrder = 1
          OnClick = btnSmallClick
        end
        object btnLarge: TButton
          Left = 34
          Top = 96
          Width = 38
          Height = 25
          Caption = 'large'
          TabOrder = 2
          OnClick = btnLargeClick
        end
      end
    end
    object sbReceiver: TStatusBar
      Left = 1
      Top = 125
      Width = 535
      Height = 19
      Panels = <
        item
          Text = 'Mode:'
          Width = 50
        end
        item
          Width = 150
        end
        item
          Text = 'Status:'
          Width = 50
        end
        item
          Width = 150
        end>
    end
  end
  object pdComPort: TApdComPort
    ComNumber = 4
    Baud = 9600
    AutoOpen = False
    TraceName = 'APRO.TRC'
    LogName = 'APRO.LOG'
    LogHex = False
    Left = 7
    Top = 95
  end
  object ledPort: TApdSLController
    ComPort = pdComPort
    Left = 440
    Top = 68
  end
  object mnu: TMainMenu
    Left = 441
    Top = 5
    object mnuSimulation: TMenuItem
      AutoCheck = True
      Caption = 'Simulation'
      object mnuSimOff: TMenuItem
        AutoCheck = True
        Caption = 'Off'
        Checked = True
        Default = True
        RadioItem = True
        OnClick = mnuSimOnClick
      end
      object mnuSimOn: TMenuItem
        AutoCheck = True
        Caption = 'On'
        RadioItem = True
        OnClick = mnuSimOnClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = 'Help'
      object Help1: TMenuItem
        Caption = 'Help'
        OnClick = Help1Click
      end
      object mnuHints: TMenuItem
        Caption = 'Hints'
        Default = True
        OnClick = mnuHintsClick
      end
      object mnuAbout: TMenuItem
        Caption = 'About'
        OnClick = mnuAboutClick
      end
    end
  end
  object tmrRefresh: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmrRefreshTimer
    Left = 363
    Top = 65531
  end
  object tmrTimeOut: TTimer
    Enabled = False
    Interval = 500
    OnTimer = tmrTimeOutTimer
    Left = 148
    Top = 65535
  end
  object pdGetMode: TApdDataPacket
    Enabled = False
    EndCond = [ecString]
    StartString = #254#254#1#8#4
    EndString = #253
    ComPort = pdComPort
    PacketSize = 12
    IncludeStrings = False
    OnPacket = pdGetModePacket
    OnStringPacket = pdGetModeStringPacket
    Left = 152
    Top = 80
  end
  object pdGetFreq: TApdDataPacket
    Enabled = True
    EndCond = [ecString]
    StartString = #254#254#1#8#3
    EndString = #253
    ComPort = pdComPort
    PacketSize = 12
    IncludeStrings = False
    OnPacket = pdGetFreqPacket
    OnStringPacket = pdGetFreqStringPacket
    Left = 200
    Top = 78
  end
  object pdGetModeTx: TApdDataPacket
    Enabled = True
    EndCond = [ecString]
    StartString = #254#254#224#8
    EndString = #253
    ComPort = pdComPort
    PacketSize = 12
    IncludeStrings = False
    TimeOut = 5
    OnTimeout = pdGetModeTXTimeout
    Left = 240
    Top = 78
  end
  object pdGetFreqTx: TApdDataPacket
    Enabled = True
    EndCond = [ecString]
    StartString = #254#254#224#8
    EndString = #253
    ComPort = pdComPort
    PacketSize = 12
    IncludeStrings = False
    TimeOut = 5
    OnPacket = pdGetFreqTXPacket
    Left = 288
    Top = 78
  end
end
