unit1.dfm

LMS软件是用来进行自适应滤波的最小均方误差算法

object F1: TF1
  Left = 227
  Top = 126
  Width = 494
  Height = 318
  Caption = '端口调试助手'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 248
    Width = 486
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object RG1: TRadioGroup
      Left = 0
      Top = 0
      Width = 64
      Height = 43
      Align = alLeft
      Caption = '发送方式'
      ItemIndex = 0
      Items.Strings = (
        ' HEX'
        'ASCII')
      TabOrder = 0
      OnClick = RG1Click
    end
    object Panel6: TPanel
      Left = 64
      Top = 0
      Width = 80
      Height = 43
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
      object BB3: TBitBtn
        Left = 7
        Top = 8
        Width = 58
        Height = 25
        Caption = '发 送'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = BB3Click
      end
    end
    object Panel7: TPanel
      Left = 144
      Top = 0
      Width = 342
      Height = 43
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 2
      object E2: TEdit
        Left = 0
        Top = 0
        Width = 337
        Height = 22
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyPress = E2KeyPress
      end
      object Panel8: TPanel
        Left = 0
        Top = 24
        Width = 342
        Height = 19
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object Panel11: TPanel
          Left = 0
          Top = 0
          Width = 153
          Height = 19
          Align = alLeft
          BevelOuter = bvLowered
          Caption = 'Panel11'
          TabOrder = 0
          object Panel12: TPanel
            Left = 1
            Top = 1
            Width = 158
            Height = 17
            Align = alLeft
            BevelOuter = bvLowered
            TabOrder = 0
            object ChB1: TCheckBox
              Left = 8
              Top = 1
              Width = 153
              Height = 15
              Caption = '以        ms自动发送'
              Font.Charset = GB2312_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = '宋体'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              OnClick = ChB1Click
            end
            object E3: TEdit
              Left = 40
              Top = -1
              Width = 41
              Height = 18
              AutoSize = False
              TabOrder = 1
              Text = '1000'
              OnChange = E3Change
              OnKeyPress = E3KeyPress
            end
          end
        end
        object Panel13: TPanel
          Left = 307
          Top = 0
          Width = 35
          Height = 19
          Align = alRight
          BevelOuter = bvLowered
          BevelWidth = 2
          TabOrder = 1
          object L6: TLabel
            Left = 5
            Top = 2
            Width = 28
            Height = 15
            Cursor = crHandPoint
            Hint = '单击获得帮助'
            Align = alRight
            Caption = '关于'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = '隶书'
            Font.Style = [fsUnderline]
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = L6Click
          end
        end
        object Panel14: TPanel
          Left = 253
          Top = 0
          Width = 54
          Height = 19
          Align = alRight
          AutoSize = True
          BevelInner = bvLowered
          BevelOuter = bvNone
          BevelWidth = 2
          TabOrder = 2
          object Label7: TLabel
            Left = 2
            Top = 2
            Width = 18
            Height = 15
            Hint = '双击清零'
            Align = alRight
            Caption = 'RX:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnDblClick = Label7DblClick
          end
          object L7: TLabel
            Left = 20
            Top = 2
            Width = 6
            Height = 15
            Align = alRight
            Caption = '0'
            OnDblClick = Label7DblClick
          end
          object Label8: TLabel
            Left = 26
            Top = 2
            Width = 20
            Height = 15
            Hint = '双击清零'
            Align = alRight
            Caption = ',TX:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = [fsBold]
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnDblClick = Label8DblClick
          end
          object L8: TLabel
            Left = 46
            Top = 2
            Width = 6
            Height = 15
            Align = alRight
            Caption = '0'
            OnDblClick = Label8DblClick
          end
        end
        object Panel15: TPanel
          Left = 153
          Top = 0
          Width = 100
          Height = 19
          Align = alClient
          BevelInner = bvLowered
          BevelOuter = bvNone
          BevelWidth = 2
          TabOrder = 3
          object L9: TLabel
            Left = 2
            Top = 2
            Width = 3
            Height = 15
            Align = alLeft
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object CBSUM: TCheckBox
            Left = 4
            Top = 2
            Width = 61
            Height = 15
            Caption = 'SUM'
            TabOrder = 0
          end
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 129
    Top = 0
    Width = 357
    Height = 248
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 89
      Width = 357
      Height = 3
      Cursor = crVSplit
      Align = alTop
      AutoSnap = False
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 357
      Height = 89
      Align = alTop
      Caption = 'HEX接收区'
      TabOrder = 0
      object M1: TMemo
        Left = 2
        Top = 15
        Width = 353
        Height = 72
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        HideSelection = False
        ParentFont = False
        PopupMenu = PM1
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
        OnKeyPress = M1KeyPress
      end
    end
    object GroupBox2: TGroupBox
      Left = 0
      Top = 92
      Width = 357
      Height = 156
      Align = alClient
      Caption = '文本发送区'
      TabOrder = 1
      object I1: TImage
        Left = 2
        Top = 15
        Width = 353
        Height = 139
        Align = alClient
        Visible = False
      end
      object RE1: TRichEdit
        Left = 2
        Top = 15
        Width = 353
        Height = 139
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        HideScrollBars = False
        ParentFont = False
        PopupMenu = PM2
        ScrollBars = ssVertical
        TabOrder = 0
        WantTabs = True
        OnKeyPress = RE1KeyPress
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 129
    Height = 248
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel3'
    TabOrder = 2
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 129
      Height = 89
      Align = alTop
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 48
        Height = 16
        Caption = '端    口：'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 16
        Top = 44