unitset.dfm

uart串口通信的控件和demo,用API 编写

      ParentCtl3D = False
      TabOrder = 0
      Text = '-1'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
    object LabeledEditReadTotalConstant: TLabeledEdit
      Left = 109
      Top = 44
      Width = 80
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 92
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'ReadTotalConstant'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 1
      Text = '0'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
    object LabeledEditReadTotalMultiplier: TLabeledEdit
      Left = 109
      Top = 72
      Width = 80
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 91
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'ReadTotalMultiplier'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 2
      Text = '0'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
    object LabeledEditWriteTotalConstant: TLabeledEdit
      Left = 109
      Top = 100
      Width = 80
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 91
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'WriteTotalConstant'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 3
      Text = '1000'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
    object LabeledEditWriteTotalMultiplier: TLabeledEdit
      Left = 109
      Top = 128
      Width = 80
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 90
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'WriteTotalMultiplier'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 4
      Text = '100'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
  end
  object GroupBoxParity: TGroupBox
    Left = 8
    Top = 225
    Width = 145
    Height = 105
    Caption = 'Parity'
    TabOrder = 2
    object LabelReplaceChar: TLabel
      Left = 16
      Top = 80
      Width = 62
      Height = 13
      Caption = 'ReplaceChar'
      Enabled = False
    end
    object CheckBoxParityCheck: TCheckBox
      Left = 16
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Check'
      TabOrder = 0
    end
    object CheckBoxParityReplace: TCheckBox
      Left = 16
      Top = 52
      Width = 97
      Height = 17
      Caption = 'Replace'
      TabOrder = 1
    end
    object EditReplaceChar: TEdit
      Left = 88
      Top = 75
      Width = 46
      Height = 21
      AutoSize = False
      Ctl3D = False
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentCtl3D = False
      TabOrder = 2
      Text = '0'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
  end
  object GroupBoxOther: TGroupBox
    Left = 160
    Top = 225
    Width = 145
    Height = 105
    Caption = 'Other'
    TabOrder = 3
    object LabelSyncMethod: TLabel
      Left = 16
      Top = 16
      Width = 60
      Height = 13
      Caption = 'SyncMethod'
    end
    object ComboBoxSync: TComboBox
      Left = 15
      Top = 32
      Width = 113
      Height = 21
      Style = csDropDownList
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ItemIndex = 0
      ParentCtl3D = False
      TabOrder = 0
      Text = 'smNone'
      Items.Strings = (
        'smNone'
        'smThreadSync'
        'SmWindowSync')
    end
    object LabeledEditEvenChar: TLabeledEdit
      Left = 65
      Top = 58
      Width = 62
      Height = 21
      AutoSize = False
      BevelInner = bvNone
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = False
      EditLabel.Width = 47
      EditLabel.Height = 13
      EditLabel.BiDiMode = bdRightToLeftNoAlign
      EditLabel.Caption = 'EvenChar'
      EditLabel.ParentBiDiMode = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpLeft
      LabelSpacing = 3
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 1
      Text = '0'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
    object CheckBoxDiscardNull: TCheckBox
      Left = 16
      Top = 80
      Width = 97
      Height = 17
      Caption = 'DiscardNull'
      TabOrder = 2
    end
  end
  object GroupBoxBuffer: TGroupBox
    Left = 312
    Top = 225
    Width = 113
    Height = 105
    Caption = 'Buffer'
    TabOrder = 4
    object LabeledEditInBuffer: TLabeledEdit
      Left = 8
      Top = 30
      Width = 90
      Height = 19
      Ctl3D = False
      EditLabel.Width = 37
      EditLabel.Height = 13
      EditLabel.Caption = 'InBuffer'
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpAbove
      LabelSpacing = 3
      ParentCtl3D = False
      TabOrder = 0
      Text = '4096'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
    object LabeledEditOutBuffer: TLabeledEdit
      Left = 8
      Top = 72
      Width = 90
      Height = 19
      Ctl3D = False
      EditLabel.Width = 45
      EditLabel.Height = 13
      EditLabel.Caption = 'OutBuffer'
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      LabelPosition = lpAbove
      LabelSpacing = 3
      ParentCtl3D = False
      TabOrder = 1
      Text = '4096'
      OnKeyPress = LabeledEditXoffcharKeyPress
    end
  end
  object BitBtnReset: TBitBtn
    Left = 263
    Top = 189
    Width = 75
    Height = 25
    Caption = #22797#20301
    TabOrder = 5
  end
  object BitBtnSure: TBitBtn
    Left = 349
    Top = 189
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 6
    OnClick = BitBtnSureClick
  end
end