| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569 |
- object CnRS232Dlg: TCnRS232Dlg
- Left = 238
- Top = 123
- BorderStyle = bsDialog
- Caption = 'Comm Settings'
- ClientHeight = 316
- ClientWidth = 311
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object pcCommConfig: TPageControl
- Left = 8
- Top = 8
- Width = 297
- Height = 273
- ActivePage = tsNormal
- TabOrder = 0
- object tsNormal: TTabSheet
- Caption = 'General'
- object lblBaudRate: TLabel
- Left = 16
- Top = 12
- Width = 54
- Height = 13
- Caption = '&Baud Rate:'
- end
- object lblByteSize: TLabel
- Left = 16
- Top = 41
- Width = 47
- Height = 13
- Caption = 'B&yte Size:'
- end
- object lblParity: TLabel
- Left = 16
- Top = 70
- Width = 29
- Height = 13
- Caption = '&Parity:'
- end
- object lblStopBits: TLabel
- Left = 16
- Top = 98
- Width = 45
- Height = 13
- Caption = '&Stop Bits:'
- end
- object cbbBaudRate: TComboBox
- Left = 120
- Top = 8
- Width = 145
- Height = 21
- Hint = 'Max Speed of Serial Comm(bps).'
- ItemHeight = 13
- TabOrder = 0
- OnExit = cbbBaudRateExit
- Items.Strings = (
- '110'
- '300'
- '600'
- '1200'
- '2400'
- '4800'
- '9600'
- '14400'
- '19200'
- '38400'
- '56000'
- '57600'
- '115200'
- '128000'
- '256000')
- end
- object cbbByteSize: TComboBox
- Left = 120
- Top = 37
- Width = 145
- Height = 21
- Hint = 'Byte Size'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- Items.Strings = (
- '5'
- '6'
- '7'
- '8')
- end
- object cbbParity: TComboBox
- Left = 120
- Top = 66
- Width = 145
- Height = 21
- Hint = 'Parity Check Mode'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnChange = ControlChanged
- Items.Strings = (
- 'No Parity'
- 'Odd Parity'
- 'Even Parity'
- 'Mark Parity'
- 'Space Parity')
- end
- object cbbStopBits: TComboBox
- Left = 120
- Top = 94
- Width = 145
- Height = 21
- Hint = 'Stop Bits'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 3
- Items.Strings = (
- '1'
- '1.5'
- '2 ')
- end
- object cbReplaceWhenParityError: TCheckBox
- Left = 16
- Top = 128
- Width = 200
- Height = 17
- Hint = 'when Parity Error, Replace to ASCII Char'
- Caption = 'On Parity Error, Replace to ASCII Char:'
- TabOrder = 4
- OnClick = ControlChanged
- end
- object cbIgnoreNullChar: TCheckBox
- Left = 16
- Top = 152
- Width = 200
- Height = 17
- Hint = 'Whether Ignore received NULL Char(ASCII 0)'
- Caption = 'Ignore &NULL Chars'
- TabOrder = 6
- end
- object seReplacedChar: TCnSpinEdit
- Left = 216
- Top = 126
- Width = 49
- Height = 22
- Hint = 'When Parity Error Occured, Replace with this Char(ASCII).'
- MaxLength = 3
- MaxValue = 255
- MinValue = 0
- TabOrder = 5
- Value = 0
- OnExit = seReplacedCharExit
- end
- end
- object tsXonXoff: TTabSheet
- Caption = 'SW Flow Ctrl'
- ImageIndex = 1
- object lblXonLimit: TLabel
- Left = 16
- Top = 87
- Width = 72
- Height = 13
- Caption = '&Xon Threshold:'
- end
- object lblXoffLimit: TLabel
- Left = 16
- Top = 117
- Width = 72
- Height = 13
- Caption = 'X&off Threshold:'
- end
- object lblXonChar: TLabel
- Left = 16
- Top = 146
- Width = 80
- Height = 13
- Caption = 'Xon C&har(ASCII):'
- end
- object lblXoffChar: TLabel
- Left = 16
- Top = 176
- Width = 80
- Height = 13
- Caption = 'Xo&ff Char(ASCII):'
- end
- object cbTxContinueOnXoff: TCheckBox
- Left = 16
- Top = 56
- Width = 200
- Height = 17
- Hint =
- 'To decide whether to stop the sending after sending the Xoff cha' +
- 'racter during receive buffer was already full.'#13#10'If checked, the ' +
- 'sending will be continued when the quantity of bytes in the full' +
- ' filled receive buffer doesn'#39't reach the Xon threshold and the d' +
- 'river will stop to receive bytes after its sending Xoff characte' +
- 'r; If not, the sending will be continued when the quantity of by' +
- 'tes in the cleared buffer is less than the Xon threshold and the' +
- ' driver resume the receiving after sending the Xon character.'
- Caption = 'Con&tinue sending data after Xoff'
- TabOrder = 2
- end
- object cbOutx_XonXoffFlow: TCheckBox
- Left = 16
- Top = 32
- Width = 200
- Height = 17
- Hint =
- 'To decide whether to use Xon/Xoff flow control during sending da' +
- 'ta.'#13#10'If checked, sending will be paused when receive Xoff charac' +
- 'ters, and resume it after Xoff characters.'
- Caption = 'E&nable Xon/Xoff Output'
- TabOrder = 1
- end
- object cbInx_XonXoffFlow: TCheckBox
- Left = 16
- Top = 8
- Width = 200
- Height = 17
- Hint =
- 'Whether use Xon/Xoff flow control during receiving data.'#13#10'If che' +
- 'cked, a Xoff character will be sent when the receive buffer is a' +
- 'lmost full and only some characters remain, which quantity equal' +
- 's Xoff threshold; If not, a Xon character will be sent when ther' +
- 'e are only few characters in the receive buffer, which amount eq' +
- 'uals Xon threshold.'
- Caption = '&Enable Xon/Xoff input'
- TabOrder = 0
- end
- object seXonLimit: TCnSpinEdit
- Left = 136
- Top = 83
- Width = 65
- Height = 22
- Hint =
- 'The minimum count of chars in buffer before sending Xon.'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 3
- Value = 0
- OnExit = seXonLimitExit
- end
- object seXonChar: TCnSpinEdit
- Left = 136
- Top = 144
- Width = 65
- Height = 22
- Hint =
- 'ASCII Code of Xon in Sending or Receiving, which means resume an' +
- 'd continue.'
- MaxLength = 3
- MaxValue = 255
- MinValue = 0
- TabOrder = 5
- Value = 0
- OnExit = seReplacedCharExit
- end
- object seXoffChar: TCnSpinEdit
- Left = 136
- Top = 174
- Width = 65
- Height = 22
- Hint = 'ASCII Code of Xoff in Sending or Receiving, which means Pause.'
- MaxLength = 3
- MaxValue = 255
- MinValue = 0
- TabOrder = 6
- Value = 0
- OnExit = seReplacedCharExit
- end
- object seXoffLimit: TCnSpinEdit
- Left = 136
- Top = 113
- Width = 65
- Height = 22
- Hint =
- 'The maximum count of chars in buffer before sending Xoff.'#13#10'Buffe' +
- 'rn length - this maximum count = maximun chars in receive.'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 4
- Value = 0
- OnExit = seXonLimitExit
- end
- end
- object tsHardware: TTabSheet
- Caption = 'HW Flow Ctrl'
- ImageIndex = 2
- object lblDtrControl: TLabel
- Left = 16
- Top = 39
- Width = 87
- Height = 13
- Caption = '&DTR Flow Control:'
- end
- object lblRtsControl: TLabel
- Left = 16
- Top = 68
- Width = 86
- Height = 13
- Caption = '&RTS Flow Control:'
- end
- object lblInCtrl: TLabel
- Left = 16
- Top = 16
- Width = 63
- Height = 13
- Caption = '&Input Control:'
- end
- object lblOutCtrl: TLabel
- Left = 16
- Top = 108
- Width = 71
- Height = 13
- Caption = '&Output Control:'
- end
- object cbOutx_CtsFlow: TCheckBox
- Left = 16
- Top = 152
- Width = 225
- Height = 17
- Hint = 'CTS (Clear To Send)'
- Caption = 'U&se CTS Signal to Control Output Flow'
- TabOrder = 3
- end
- object cbOutx_DsrFlow: TCheckBox
- Left = 16
- Top = 128
- Width = 225
- Height = 17
- Hint = 'DSR (Data Set Ready)'
- Caption = '&Use DSR Signal to Control Output Flow'
- TabOrder = 2
- end
- object cbDsrSensitivity: TCheckBox
- Left = 16
- Top = 176
- Width = 225
- Height = 17
- Hint =
- 'Whether the transmission driver is sensitive to DSR signals.'#13#10'If' +
- ' checked, when the Modem DSR input pin is low, the driver will i' +
- 'gnore any receiving bytes.'
- Caption = 'DSR S&ensibility'
- TabOrder = 4
- end
- object cbbDtrControl: TComboBox
- Left = 120
- Top = 35
- Width = 145
- Height = 21
- Hint = 'Use DTR (Data Terminal Ready) Signal to Control the Flow'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- Items.Strings = (
- 'Enable DTR Line and Hold'
- 'Disable DTR Line and Hold'
- 'Enable DTR Handshake')
- end
- object cbbRtsControl: TComboBox
- Left = 120
- Top = 64
- Width = 145
- Height = 21
- Hint = 'Use RTS (Request to Send) Signal to Control the Flow'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- Items.Strings = (
- 'Enable RTS and Hold'
- 'Disable RTS and Hold'
- 'Enable RTS Handshake'
- 'Use Burst Mode')
- end
- end
- object tsTimeouts: TTabSheet
- Caption = 'Timeout'
- ImageIndex = 3
- object lblReadIntervalTimeout: TLabel
- Left = 16
- Top = 15
- Width = 122
- Height = 13
- Caption = '&Reading Timeout Interval:'
- end
- object lblReadTotalTimeoutMultiplier: TLabel
- Left = 16
- Top = 45
- Width = 155
- Height = 13
- Caption = 'Total Reading &Timeout Multiplier:'
- end
- object lblMSec1: TLabel
- Left = 240
- Top = 16
- Width = 27
- Height = 13
- Caption = 'mSec'
- end
- object lblMSec2: TLabel
- Left = 240
- Top = 46
- Width = 27
- Height = 13
- Caption = 'mSec'
- end
- object lblReadTotalTimeoutConstant: TLabel
- Left = 16
- Top = 75
- Width = 156
- Height = 13
- Caption = 'Total Re&ading Timeout Constant:'
- end
- object lblMSec3: TLabel
- Left = 240
- Top = 76
- Width = 27
- Height = 13
- Caption = 'mSec'
- end
- object lblWriteTotalTimeoutMultiplier: TLabel
- Left = 16
- Top = 105
- Width = 151
- Height = 13
- Caption = 'Total &Writing Timeout Multiplier:'
- end
- object lblMSec4: TLabel
- Left = 240
- Top = 106
- Width = 27
- Height = 13
- Caption = 'mSec'
- end
- object lblWriteTotalTimeoutConstant: TLabel
- Left = 16
- Top = 135
- Width = 149
- Height = 13
- Caption = 'Total Wr&iting Timeout Constant:'
- end
- object lblMSec5: TLabel
- Left = 240
- Top = 136
- Width = 27
- Height = 13
- Caption = 'mSec'
- end
- object seReadIntervalTimeout: TCnSpinEdit
- Left = 176
- Top = 11
- Width = 57
- Height = 22
- Hint =
- 'The maximum time between 2 consecutive chars in serial line.'#13#10'If' +
- ' the recieving interval of 2 consecutive chars exceeds this valu' +
- 'e, '#13#10'reading operation will finish and the buffer data will be r' +
- 'eturn.'#13#10'0 means no timeout.'#13#10
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 0
- Value = 0
- end
- object seReadTotalTimeoutMultiplier: TCnSpinEdit
- Left = 176
- Top = 41
- Width = 57
- Height = 22
- Hint =
- 'Used to calculate the Total reading timeout value.'#13#10#13#10'Total read' +
- 'ing timeout value = (Total Reading Timeout Multiplier * chars co' +
- 'unt) + Total reading timeout constant'#13#10'Both 0 means disabled.'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 1
- Value = 0
- end
- object seReadTotalTimeoutConstant: TCnSpinEdit
- Left = 176
- Top = 71
- Width = 57
- Height = 22
- Hint =
- 'Used to calculate the Total reading timeout value.'#13#10#13#10'Total read' +
- 'ing timeout value = (Total Reading Timeout Multiplier * chars co' +
- 'unt) + Total reading timeout constant'#13#10'Both 0 means disabled.'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 2
- Value = 0
- end
- object seWriteTotalTimeoutMultiplier: TCnSpinEdit
- Left = 176
- Top = 101
- Width = 57
- Height = 22
- Hint =
- 'Used to calculate the Total Writing Timeout value.'#13#10#13#10'Total writ' +
- 'ing timeout value = (Total writing Timeout Multiplier * chars co' +
- 'unt) + Total writing timeout constant'#13#10'Both 0 means disabled.'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 3
- Value = 0
- end
- object seWriteTotalTimeoutConstant: TCnSpinEdit
- Left = 176
- Top = 131
- Width = 57
- Height = 22
- Hint =
- 'Used to calculate the Total Writing Timeout value.'#13#10#13#10'Total writ' +
- 'ing timeout value = (Total writing Timeout Multiplier * chars co' +
- 'unt) + Total writing timeout constant'#13#10'Both 0 means disabled.'
- MaxLength = 5
- MaxValue = 65535
- MinValue = 0
- TabOrder = 4
- Value = 0
- end
- end
- end
- object bbtnOk: TBitBtn
- Left = 144
- Top = 288
- Width = 75
- Height = 21
- Caption = '&OK'
- Default = True
- TabOrder = 2
- OnClick = bbtnOkClick
- end
- object bbtnCancel: TBitBtn
- Left = 224
- Top = 288
- Width = 75
- Height = 21
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object cbShowHint: TCheckBox
- Left = 8
- Top = 290
- Width = 105
- Height = 17
- Caption = 'Show Hint'
- TabOrder = 1
- OnClick = cbShowHintClick
- end
- end
|