www.pudn.com > comm.rar > main.dfm
object Form1: TForm1
Left = 523
Top = 127
Width = 584
Height = 447
Caption = '串口调试工具'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 12
object Bevel1: TBevel
Left = 184
Top = 8
Width = 9
Height = 401
Shape = bsLeftLine
end
object Bevel2: TBevel
Left = 192
Top = 196
Width = 369
Height = 10
Shape = bsBottomLine
end
object Label9: TLabel
Left = 200
Top = 16
Width = 60
Height = 12
Caption = '发送字符：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 200
Top = 214
Width = 60
Height = 12
Caption = '接收字符：'
end
object Label11: TLabel
Left = 424
Top = 16
Width = 60
Height = 12
Caption = '发送周期：'
end
object SpeedButton2: TSpeedButton
Left = 8
Top = 376
Width = 73
Height = 25
Caption = '关于'
Flat = True
end
object SpeedButton3: TSpeedButton
Left = 104
Top = 376
Width = 73
Height = 25
Caption = '退出'
Flat = True
OnClick = SpeedButton3Click
end
object Label12: TLabel
Left = 536
Top = 16
Width = 24
Height = 12
Caption = '毫秒'
end
object SpeedButton5: TSpeedButton
Left = 384
Top = 178
Width = 73
Height = 22
Caption = '清空数据'
Flat = True
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 480
Top = 178
Width = 73
Height = 22
Caption = '手动发送'
Flat = True
OnClick = SpeedButton6Click
end
object SpeedButton7: TSpeedButton
Left = 384
Top = 378
Width = 73
Height = 22
Caption = '清空数据'
Flat = True
OnClick = SpeedButton7Click
end
object SpeedButton8: TSpeedButton
Left = 480
Top = 378
Width = 73
Height = 22
Caption = '保存数据'
Flat = True
end
object SpeedButton9: TSpeedButton
Left = 288
Top = 178
Width = 73
Height = 22
Caption = '异或校验'
Flat = True
end
object GroupBox2: TGroupBox
Left = 8
Top = 224
Width = 169
Height = 137
Caption = '通信状态'
TabOrder = 1
object Label6: TLabel
Left = 16
Top = 26
Width = 48
Height = 12
Caption = '串口状态'
end
object Label7: TLabel
Left = 16
Top = 50
Width = 48
Height = 12
Caption = '发送字节'
end
object Label8: TLabel
Left = 16
Top = 74
Width = 48
Height = 12
Caption = '接收字节'
end
object SpeedButton4: TSpeedButton
Left = 72
Top = 100
Width = 81
Height = 25
Caption = '清除计数'
Flat = True
OnClick = SpeedButton4Click
end
object StaticText1: TStaticText
Left = 80
Top = 24
Width = 65
Height = 16
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = '关闭'
TabOrder = 0
end
object StaticText2: TStaticText
Left = 80
Top = 48
Width = 65
Height = 16
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = '0'
TabOrder = 1
end
object StaticText3: TStaticText
Left = 80
Top = 72
Width = 65
Height = 16
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = '0'
TabOrder = 2
end
end
object Memo1: TMemo
Left = 200
Top = 36
Width = 361
Height = 137
Color = clBtnFace
TabOrder = 2
end
object GroupBox1: TGroupBox
Left = 8
Top = 16
Width = 169
Height = 193
Caption = '串口设置'
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 36
Width = 50
Height = 13
AutoSize = False
Caption = '串行口：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 60
Width = 50
Height = 13
AutoSize = False
Caption = '波特率：'
end
object Label3: TLabel
Left = 16
Top = 84
Width = 50
Height = 13
AutoSize = False
Caption = '数据位：'
end
object Label4: TLabel
Left = 16
Top = 108
Width = 50
Height = 13
AutoSize = False
Caption = '校验位：'
end
object Label5: TLabel
Left = 16
Top = 132
Width = 50
Height = 13
AutoSize = False
Caption = '停止位：'
end
object SpeedButton1: TSpeedButton
Left = 72
Top = 160
Width = 81
Height = 25
Caption = '打开串口'
Flat = True
OnClick = SpeedButton1Click
end
object AbDBLED1: TAbDBLED
Left = 24
Top = 160
Width = 25
Height = 25
LED.Width = 20
LED_Position = lpLeft
Spacing = 5
Checked = False
Flashing = False
Frequency = ff1Hz
StatusInt = 0
StatusBit = 0
GroupIndex = 0
Mode = mIndicator
DataReadOnly = False
end
object ComboBox1: TComboBox
Left = 72
Top = 32
Width = 81
Height = 20
Color = clBtnFace
ItemHeight = 12
TabOrder = 0
Text = 'COM1'
OnChange = ComboBox1Change
Items.Strings = (
'COM1'
'COM2'
'COM3'
'COM4')
end
object ComboBox2: TComboBox
Left = 72
Top = 56
Width = 81
Height = 20
Color = clBtnFace
ItemHeight = 12
TabOrder = 1
Text = '9600'
OnChange = ComboBox2Change
Items.Strings = (
'4800'
'9600'
'115200')
end
object ComboBox3: TComboBox
Left = 72
Top = 80
Width = 81
Height = 20
Color = clBtnFace
ItemHeight = 12
TabOrder = 2
Text = '_8'
OnChange = ComboBox3Change
Items.Strings = (
'_5'
'_6'
'_7'
'_8')
end
object ComboBox4: TComboBox
Left = 72
Top = 104
Width = 81
Height = 20
Color = clBtnFace
ItemHeight = 12
TabOrder = 3
Text = 'NONE'
OnChange = ComboBox4Change
Items.Strings = (
'EVEN'
'MARK'
'NONE'
'ODD'
'SPACE')
end
object ComboBox5: TComboBox
Left = 72
Top = 128
Width = 81
Height = 20
Color = clBtnFace
ItemHeight = 12
TabOrder = 4
Text = '_1'
OnChange = ComboBox5Change
Items.Strings = (
'_1'
'_1_5'
'_2')
end
end
object Memo2: TMemo
Left = 200
Top = 236
Width = 361
Height = 137
Color = clBtnFace
TabOrder = 3
end
object CheckBox1: TCheckBox
Left = 200
Top = 182
Width = 73
Height = 17
Caption = '十六进制'
TabOrder = 4
end
object CheckBox2: TCheckBox
Left = 200
Top = 382
Width = 73
Height = 17
Caption = '十六进制'
TabOrder = 5
end
object CheckBox3: TCheckBox
Left = 328
Top = 14
Width = 73
Height = 17
Caption = '自动发送'
TabOrder = 6
end
object Edit1: TEdit
Left = 488
Top = 12
Width = 41
Height = 20
TabOrder = 7
Text = '1000'
end
object CheckBox4: TCheckBox
Left = 288
Top = 382
Width = 73
Height = 17
Caption = '自动换行'
TabOrder = 8
end
object Comm1: TComm
CommName = 'COM1'
BaudRate = 9600
ParityCheck = False
Outx_CtsFlow = False
Outx_DsrFlow = False
DtrControl = DtrEnable
DsrSensitivity = False
TxContinueOnXoff = True
Outx_XonXoffFlow = True
Inx_XonXoffFlow = True
ReplaceWhenParityError = False
IgnoreNullChar = False
RtsControl = RtsEnable
XonLimit = 500
XoffLimit = 500
ByteSize = _8
Parity = None
StopBits = _1
XonChar = #17
XoffChar = #19
ReplacedChar = #0
ReadDataSize = 1024
ReadIntervalTimeout = 100
ReadTotalTimeoutMultiplier = 0
ReadTotalTimeoutConstant = 0
WriteTotalTimeoutMultiplier = 0
WriteTotalTimeoutConstant = 0
Left = 264
Top = 8
end
object Timer1: TTimer
Left = 296
Top = 8
end
end