CnRS232Dialog.dfm 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569
  1. object CnRS232Dlg: TCnRS232Dlg
  2. Left = 238
  3. Top = 123
  4. BorderStyle = bsDialog
  5. Caption = 'Comm Settings'
  6. ClientHeight = 316
  7. ClientWidth = 311
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -12
  12. Font.Name = 'MS Sans Serif'
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poDesktopCenter
  16. Scaled = False
  17. OnCreate = FormCreate
  18. OnDestroy = FormDestroy
  19. OnShow = FormShow
  20. PixelsPerInch = 96
  21. TextHeight = 13
  22. object pcCommConfig: TPageControl
  23. Left = 8
  24. Top = 8
  25. Width = 297
  26. Height = 273
  27. ActivePage = tsNormal
  28. TabOrder = 0
  29. object tsNormal: TTabSheet
  30. Caption = 'General'
  31. object lblBaudRate: TLabel
  32. Left = 16
  33. Top = 12
  34. Width = 54
  35. Height = 13
  36. Caption = '&Baud Rate:'
  37. end
  38. object lblByteSize: TLabel
  39. Left = 16
  40. Top = 41
  41. Width = 47
  42. Height = 13
  43. Caption = 'B&yte Size:'
  44. end
  45. object lblParity: TLabel
  46. Left = 16
  47. Top = 70
  48. Width = 29
  49. Height = 13
  50. Caption = '&Parity:'
  51. end
  52. object lblStopBits: TLabel
  53. Left = 16
  54. Top = 98
  55. Width = 45
  56. Height = 13
  57. Caption = '&Stop Bits:'
  58. end
  59. object cbbBaudRate: TComboBox
  60. Left = 120
  61. Top = 8
  62. Width = 145
  63. Height = 21
  64. Hint = 'Max Speed of Serial Comm(bps).'
  65. ItemHeight = 13
  66. TabOrder = 0
  67. OnExit = cbbBaudRateExit
  68. Items.Strings = (
  69. '110'
  70. '300'
  71. '600'
  72. '1200'
  73. '2400'
  74. '4800'
  75. '9600'
  76. '14400'
  77. '19200'
  78. '38400'
  79. '56000'
  80. '57600'
  81. '115200'
  82. '128000'
  83. '256000')
  84. end
  85. object cbbByteSize: TComboBox
  86. Left = 120
  87. Top = 37
  88. Width = 145
  89. Height = 21
  90. Hint = 'Byte Size'
  91. Style = csDropDownList
  92. ItemHeight = 13
  93. TabOrder = 1
  94. Items.Strings = (
  95. '5'
  96. '6'
  97. '7'
  98. '8')
  99. end
  100. object cbbParity: TComboBox
  101. Left = 120
  102. Top = 66
  103. Width = 145
  104. Height = 21
  105. Hint = 'Parity Check Mode'
  106. Style = csDropDownList
  107. ItemHeight = 13
  108. TabOrder = 2
  109. OnChange = ControlChanged
  110. Items.Strings = (
  111. 'No Parity'
  112. 'Odd Parity'
  113. 'Even Parity'
  114. 'Mark Parity'
  115. 'Space Parity')
  116. end
  117. object cbbStopBits: TComboBox
  118. Left = 120
  119. Top = 94
  120. Width = 145
  121. Height = 21
  122. Hint = 'Stop Bits'
  123. Style = csDropDownList
  124. ItemHeight = 13
  125. TabOrder = 3
  126. Items.Strings = (
  127. '1'
  128. '1.5'
  129. '2 ')
  130. end
  131. object cbReplaceWhenParityError: TCheckBox
  132. Left = 16
  133. Top = 128
  134. Width = 200
  135. Height = 17
  136. Hint = 'when Parity Error, Replace to ASCII Char'
  137. Caption = 'On Parity Error, Replace to ASCII Char:'
  138. TabOrder = 4
  139. OnClick = ControlChanged
  140. end
  141. object cbIgnoreNullChar: TCheckBox
  142. Left = 16
  143. Top = 152
  144. Width = 200
  145. Height = 17
  146. Hint = 'Whether Ignore received NULL Char(ASCII 0)'
  147. Caption = 'Ignore &NULL Chars'
  148. TabOrder = 6
  149. end
  150. object seReplacedChar: TCnSpinEdit
  151. Left = 216
  152. Top = 126
  153. Width = 49
  154. Height = 22
  155. Hint = 'When Parity Error Occured, Replace with this Char(ASCII).'
  156. MaxLength = 3
  157. MaxValue = 255
  158. MinValue = 0
  159. TabOrder = 5
  160. Value = 0
  161. OnExit = seReplacedCharExit
  162. end
  163. end
  164. object tsXonXoff: TTabSheet
  165. Caption = 'SW Flow Ctrl'
  166. ImageIndex = 1
  167. object lblXonLimit: TLabel
  168. Left = 16
  169. Top = 87
  170. Width = 72
  171. Height = 13
  172. Caption = '&Xon Threshold:'
  173. end
  174. object lblXoffLimit: TLabel
  175. Left = 16
  176. Top = 117
  177. Width = 72
  178. Height = 13
  179. Caption = 'X&off Threshold:'
  180. end
  181. object lblXonChar: TLabel
  182. Left = 16
  183. Top = 146
  184. Width = 80
  185. Height = 13
  186. Caption = 'Xon C&har(ASCII):'
  187. end
  188. object lblXoffChar: TLabel
  189. Left = 16
  190. Top = 176
  191. Width = 80
  192. Height = 13
  193. Caption = 'Xo&ff Char(ASCII):'
  194. end
  195. object cbTxContinueOnXoff: TCheckBox
  196. Left = 16
  197. Top = 56
  198. Width = 200
  199. Height = 17
  200. Hint =
  201. 'To decide whether to stop the sending after sending the Xoff cha' +
  202. 'racter during receive buffer was already full.'#13#10'If checked, the ' +
  203. 'sending will be continued when the quantity of bytes in the full' +
  204. ' filled receive buffer doesn'#39't reach the Xon threshold and the d' +
  205. 'river will stop to receive bytes after its sending Xoff characte' +
  206. 'r; If not, the sending will be continued when the quantity of by' +
  207. 'tes in the cleared buffer is less than the Xon threshold and the' +
  208. ' driver resume the receiving after sending the Xon character.'
  209. Caption = 'Con&tinue sending data after Xoff'
  210. TabOrder = 2
  211. end
  212. object cbOutx_XonXoffFlow: TCheckBox
  213. Left = 16
  214. Top = 32
  215. Width = 200
  216. Height = 17
  217. Hint =
  218. 'To decide whether to use Xon/Xoff flow control during sending da' +
  219. 'ta.'#13#10'If checked, sending will be paused when receive Xoff charac' +
  220. 'ters, and resume it after Xoff characters.'
  221. Caption = 'E&nable Xon/Xoff Output'
  222. TabOrder = 1
  223. end
  224. object cbInx_XonXoffFlow: TCheckBox
  225. Left = 16
  226. Top = 8
  227. Width = 200
  228. Height = 17
  229. Hint =
  230. 'Whether use Xon/Xoff flow control during receiving data.'#13#10'If che' +
  231. 'cked, a Xoff character will be sent when the receive buffer is a' +
  232. 'lmost full and only some characters remain, which quantity equal' +
  233. 's Xoff threshold; If not, a Xon character will be sent when ther' +
  234. 'e are only few characters in the receive buffer, which amount eq' +
  235. 'uals Xon threshold.'
  236. Caption = '&Enable Xon/Xoff input'
  237. TabOrder = 0
  238. end
  239. object seXonLimit: TCnSpinEdit
  240. Left = 136
  241. Top = 83
  242. Width = 65
  243. Height = 22
  244. Hint =
  245. 'The minimum count of chars in buffer before sending Xon.'
  246. MaxLength = 5
  247. MaxValue = 65535
  248. MinValue = 0
  249. TabOrder = 3
  250. Value = 0
  251. OnExit = seXonLimitExit
  252. end
  253. object seXonChar: TCnSpinEdit
  254. Left = 136
  255. Top = 144
  256. Width = 65
  257. Height = 22
  258. Hint =
  259. 'ASCII Code of Xon in Sending or Receiving, which means resume an' +
  260. 'd continue.'
  261. MaxLength = 3
  262. MaxValue = 255
  263. MinValue = 0
  264. TabOrder = 5
  265. Value = 0
  266. OnExit = seReplacedCharExit
  267. end
  268. object seXoffChar: TCnSpinEdit
  269. Left = 136
  270. Top = 174
  271. Width = 65
  272. Height = 22
  273. Hint = 'ASCII Code of Xoff in Sending or Receiving, which means Pause.'
  274. MaxLength = 3
  275. MaxValue = 255
  276. MinValue = 0
  277. TabOrder = 6
  278. Value = 0
  279. OnExit = seReplacedCharExit
  280. end
  281. object seXoffLimit: TCnSpinEdit
  282. Left = 136
  283. Top = 113
  284. Width = 65
  285. Height = 22
  286. Hint =
  287. 'The maximum count of chars in buffer before sending Xoff.'#13#10'Buffe' +
  288. 'rn length - this maximum count = maximun chars in receive.'
  289. MaxLength = 5
  290. MaxValue = 65535
  291. MinValue = 0
  292. TabOrder = 4
  293. Value = 0
  294. OnExit = seXonLimitExit
  295. end
  296. end
  297. object tsHardware: TTabSheet
  298. Caption = 'HW Flow Ctrl'
  299. ImageIndex = 2
  300. object lblDtrControl: TLabel
  301. Left = 16
  302. Top = 39
  303. Width = 87
  304. Height = 13
  305. Caption = '&DTR Flow Control:'
  306. end
  307. object lblRtsControl: TLabel
  308. Left = 16
  309. Top = 68
  310. Width = 86
  311. Height = 13
  312. Caption = '&RTS Flow Control:'
  313. end
  314. object lblInCtrl: TLabel
  315. Left = 16
  316. Top = 16
  317. Width = 63
  318. Height = 13
  319. Caption = '&Input Control:'
  320. end
  321. object lblOutCtrl: TLabel
  322. Left = 16
  323. Top = 108
  324. Width = 71
  325. Height = 13
  326. Caption = '&Output Control:'
  327. end
  328. object cbOutx_CtsFlow: TCheckBox
  329. Left = 16
  330. Top = 152
  331. Width = 225
  332. Height = 17
  333. Hint = 'CTS (Clear To Send)'
  334. Caption = 'U&se CTS Signal to Control Output Flow'
  335. TabOrder = 3
  336. end
  337. object cbOutx_DsrFlow: TCheckBox
  338. Left = 16
  339. Top = 128
  340. Width = 225
  341. Height = 17
  342. Hint = 'DSR (Data Set Ready)'
  343. Caption = '&Use DSR Signal to Control Output Flow'
  344. TabOrder = 2
  345. end
  346. object cbDsrSensitivity: TCheckBox
  347. Left = 16
  348. Top = 176
  349. Width = 225
  350. Height = 17
  351. Hint =
  352. 'Whether the transmission driver is sensitive to DSR signals.'#13#10'If' +
  353. ' checked, when the Modem DSR input pin is low, the driver will i' +
  354. 'gnore any receiving bytes.'
  355. Caption = 'DSR S&ensibility'
  356. TabOrder = 4
  357. end
  358. object cbbDtrControl: TComboBox
  359. Left = 120
  360. Top = 35
  361. Width = 145
  362. Height = 21
  363. Hint = 'Use DTR (Data Terminal Ready) Signal to Control the Flow'
  364. Style = csDropDownList
  365. ItemHeight = 13
  366. TabOrder = 0
  367. Items.Strings = (
  368. 'Enable DTR Line and Hold'
  369. 'Disable DTR Line and Hold'
  370. 'Enable DTR Handshake')
  371. end
  372. object cbbRtsControl: TComboBox
  373. Left = 120
  374. Top = 64
  375. Width = 145
  376. Height = 21
  377. Hint = 'Use RTS (Request to Send) Signal to Control the Flow'
  378. Style = csDropDownList
  379. ItemHeight = 13
  380. TabOrder = 1
  381. Items.Strings = (
  382. 'Enable RTS and Hold'
  383. 'Disable RTS and Hold'
  384. 'Enable RTS Handshake'
  385. 'Use Burst Mode')
  386. end
  387. end
  388. object tsTimeouts: TTabSheet
  389. Caption = 'Timeout'
  390. ImageIndex = 3
  391. object lblReadIntervalTimeout: TLabel
  392. Left = 16
  393. Top = 15
  394. Width = 122
  395. Height = 13
  396. Caption = '&Reading Timeout Interval:'
  397. end
  398. object lblReadTotalTimeoutMultiplier: TLabel
  399. Left = 16
  400. Top = 45
  401. Width = 155
  402. Height = 13
  403. Caption = 'Total Reading &Timeout Multiplier:'
  404. end
  405. object lblMSec1: TLabel
  406. Left = 240
  407. Top = 16
  408. Width = 27
  409. Height = 13
  410. Caption = 'mSec'
  411. end
  412. object lblMSec2: TLabel
  413. Left = 240
  414. Top = 46
  415. Width = 27
  416. Height = 13
  417. Caption = 'mSec'
  418. end
  419. object lblReadTotalTimeoutConstant: TLabel
  420. Left = 16
  421. Top = 75
  422. Width = 156
  423. Height = 13
  424. Caption = 'Total Re&ading Timeout Constant:'
  425. end
  426. object lblMSec3: TLabel
  427. Left = 240
  428. Top = 76
  429. Width = 27
  430. Height = 13
  431. Caption = 'mSec'
  432. end
  433. object lblWriteTotalTimeoutMultiplier: TLabel
  434. Left = 16
  435. Top = 105
  436. Width = 151
  437. Height = 13
  438. Caption = 'Total &Writing Timeout Multiplier:'
  439. end
  440. object lblMSec4: TLabel
  441. Left = 240
  442. Top = 106
  443. Width = 27
  444. Height = 13
  445. Caption = 'mSec'
  446. end
  447. object lblWriteTotalTimeoutConstant: TLabel
  448. Left = 16
  449. Top = 135
  450. Width = 149
  451. Height = 13
  452. Caption = 'Total Wr&iting Timeout Constant:'
  453. end
  454. object lblMSec5: TLabel
  455. Left = 240
  456. Top = 136
  457. Width = 27
  458. Height = 13
  459. Caption = 'mSec'
  460. end
  461. object seReadIntervalTimeout: TCnSpinEdit
  462. Left = 176
  463. Top = 11
  464. Width = 57
  465. Height = 22
  466. Hint =
  467. 'The maximum time between 2 consecutive chars in serial line.'#13#10'If' +
  468. ' the recieving interval of 2 consecutive chars exceeds this valu' +
  469. 'e, '#13#10'reading operation will finish and the buffer data will be r' +
  470. 'eturn.'#13#10'0 means no timeout.'#13#10
  471. MaxLength = 5
  472. MaxValue = 65535
  473. MinValue = 0
  474. TabOrder = 0
  475. Value = 0
  476. end
  477. object seReadTotalTimeoutMultiplier: TCnSpinEdit
  478. Left = 176
  479. Top = 41
  480. Width = 57
  481. Height = 22
  482. Hint =
  483. 'Used to calculate the Total reading timeout value.'#13#10#13#10'Total read' +
  484. 'ing timeout value = (Total Reading Timeout Multiplier * chars co' +
  485. 'unt) + Total reading timeout constant'#13#10'Both 0 means disabled.'
  486. MaxLength = 5
  487. MaxValue = 65535
  488. MinValue = 0
  489. TabOrder = 1
  490. Value = 0
  491. end
  492. object seReadTotalTimeoutConstant: TCnSpinEdit
  493. Left = 176
  494. Top = 71
  495. Width = 57
  496. Height = 22
  497. Hint =
  498. 'Used to calculate the Total reading timeout value.'#13#10#13#10'Total read' +
  499. 'ing timeout value = (Total Reading Timeout Multiplier * chars co' +
  500. 'unt) + Total reading timeout constant'#13#10'Both 0 means disabled.'
  501. MaxLength = 5
  502. MaxValue = 65535
  503. MinValue = 0
  504. TabOrder = 2
  505. Value = 0
  506. end
  507. object seWriteTotalTimeoutMultiplier: TCnSpinEdit
  508. Left = 176
  509. Top = 101
  510. Width = 57
  511. Height = 22
  512. Hint =
  513. 'Used to calculate the Total Writing Timeout value.'#13#10#13#10'Total writ' +
  514. 'ing timeout value = (Total writing Timeout Multiplier * chars co' +
  515. 'unt) + Total writing timeout constant'#13#10'Both 0 means disabled.'
  516. MaxLength = 5
  517. MaxValue = 65535
  518. MinValue = 0
  519. TabOrder = 3
  520. Value = 0
  521. end
  522. object seWriteTotalTimeoutConstant: TCnSpinEdit
  523. Left = 176
  524. Top = 131
  525. Width = 57
  526. Height = 22
  527. Hint =
  528. 'Used to calculate the Total Writing Timeout value.'#13#10#13#10'Total writ' +
  529. 'ing timeout value = (Total writing Timeout Multiplier * chars co' +
  530. 'unt) + Total writing timeout constant'#13#10'Both 0 means disabled.'
  531. MaxLength = 5
  532. MaxValue = 65535
  533. MinValue = 0
  534. TabOrder = 4
  535. Value = 0
  536. end
  537. end
  538. end
  539. object bbtnOk: TBitBtn
  540. Left = 144
  541. Top = 288
  542. Width = 75
  543. Height = 21
  544. Caption = '&OK'
  545. Default = True
  546. TabOrder = 2
  547. OnClick = bbtnOkClick
  548. end
  549. object bbtnCancel: TBitBtn
  550. Left = 224
  551. Top = 288
  552. Width = 75
  553. Height = 21
  554. Cancel = True
  555. Caption = '&Cancel'
  556. ModalResult = 2
  557. TabOrder = 3
  558. end
  559. object cbShowHint: TCheckBox
  560. Left = 8
  561. Top = 290
  562. Width = 105
  563. Height = 17
  564. Caption = 'Show Hint'
  565. TabOrder = 1
  566. OnClick = cbShowHintClick
  567. end
  568. end