?? unit1.~dfm
字號:
object Form1: TForm1
Left = 278
Top = 222
Width = 808
Height = 580
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 504
Top = 408
Width = 281
Height = 141
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 8
Width = 47
Height = 13
Caption = 'Serial port'
end
object Label2: TLabel
Left = 17
Top = 32
Width = 54
Height = 13
Caption = 'Baud_Rate'
end
object Label3: TLabel
Left = 30
Top = 64
Width = 41
Height = 13
Caption = 'Data_Bit'
end
object Label4: TLabel
Left = 45
Top = 88
Width = 26
Height = 13
Caption = 'Parity'
end
object Label5: TLabel
Left = 31
Top = 112
Width = 40
Height = 13
Caption = 'Stop_Bit'
end
object BaudRateIndex: TComboBox
Left = 80
Top = 33
Width = 73
Height = 21
Style = csDropDownList
BiDiMode = bdLeftToRight
ItemHeight = 13
ParentBiDiMode = False
TabOrder = 0
OnChange = BaudRateIndexChange
Items.Strings = (
'br110'
'300'
'600'
'1200'
'2400'
'4800'
'9600'
'14400'
'19200'
'38400'
'56000'
'57600'
'115200'
'128000'
'256000')
end
object DataBitIndex: TComboBox
Left = 80
Top = 58
Width = 73
Height = 21
Style = csDropDownList
BiDiMode = bdLeftToRight
ItemHeight = 13
ParentBiDiMode = False
TabOrder = 1
OnChange = BaudRateIndexChange
Items.Strings = (
'4'
'5'
'6'
'7'
'8')
end
object ParityIndex: TComboBox
Left = 80
Top = 83
Width = 73
Height = 21
Style = csDropDownList
BiDiMode = bdLeftToRight
ItemHeight = 13
ParentBiDiMode = False
TabOrder = 2
OnChange = BaudRateIndexChange
Items.Strings = (
'None'
'Odd'
'Even'
'Mark'
'Space')
end
object StopBitIndex: TComboBox
Left = 80
Top = 108
Width = 73
Height = 21
Style = csDropDownList
BiDiMode = bdLeftToRight
ItemHeight = 13
ParentBiDiMode = False
TabOrder = 3
OnChange = BaudRateIndexChange
Items.Strings = (
'1'
'1.5'
'2')
end
object PortIndex: TComboBox
Left = 80
Top = 8
Width = 73
Height = 21
Style = csDropDownList
BiDiMode = bdLeftToRight
ItemHeight = 13
ParentBiDiMode = False
TabOrder = 4
Items.Strings = (
'Com1'
'Com2'
'Com3'
'Com4')
end
object OpenPort: TButton
Left = 184
Top = 8
Width = 89
Height = 57
Caption = 'OpenPort'
TabOrder = 5
OnClick = OpenPortClick
end
object ClosePort: TButton
Left = 182
Top = 72
Width = 91
Height = 57
Caption = 'ClosePort'
Enabled = False
TabOrder = 6
OnClick = ClosePortClick
end
end
object Panel3: TPanel
Left = 8
Top = 408
Width = 489
Height = 141
Caption = 'Panel3'
TabOrder = 1
object rbRecieveASCII: TRadioButton
Left = 8
Top = 16
Width = 49
Height = 17
Caption = 'ASCII'
TabOrder = 2
end
object rbRecieveHEX: TRadioButton
Left = 8
Top = 48
Width = 49
Height = 17
Caption = 'HEX'
Checked = True
TabOrder = 1
TabStop = True
end
object Memo1: TMemo
Left = 56
Top = 8
Width = 209
Height = 129
TabOrder = 0
end
object Memo2: TMemo
Left = 264
Top = 8
Width = 105
Height = 129
TabOrder = 3
end
object Edit1: TEdit
Left = 384
Top = 12
Width = 97
Height = 21
TabOrder = 4
Text = 'FF'
end
object Edit2: TEdit
Left = 384
Top = 116
Width = 97
Height = 21
TabOrder = 5
end
object Button1: TButton
Left = 384
Top = 48
Width = 97
Height = 57
Caption = 'HEX to INT'
TabOrder = 6
OnClick = Button1Click
end
end
object Sonar: TGroupBox
Left = 8
Top = 4
Width = 240
Height = 296
BiDiMode = bdLeftToRight
Caption = 'Sonar'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentBiDiMode = False
ParentColor = False
ParentFont = False
TabOrder = 2
object Label6: TLabel
Left = 7
Top = 20
Width = 19
Height = 16
Caption = 'S0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 7
Top = 39
Width = 19
Height = 16
Caption = 'S1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 7
Top = 59
Width = 19
Height = 16
Caption = 'S2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 7
Top = 78
Width = 19
Height = 16
Caption = 'S3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 7
Top = 111
Width = 19
Height = 16
Caption = 'S4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 7
Top = 130
Width = 19
Height = 16
Caption = 'S5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 7
Top = 150
Width = 19
Height = 16
Caption = 'S6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 7
Top = 169
Width = 19
Height = 16
Caption = 'S7'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 7
Top = 202
Width = 19
Height = 16
Caption = 'S8'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 7
Top = 221
Width = 19
Height = 16
Caption = 'S9'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 7
Top = 241
Width = 27
Height = 16
Caption = 'S10'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 7
Top = 260
Width = 27
Height = 16
Caption = 'S11'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Edt_Sonar_2a: TEdit
Left = 33
Top = 59
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Edt_Sonar_3a: TEdit
Left = 33
Top = 78
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Edt_Sonar_0a: TEdit
Left = 33
Top = 20
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object Edt_Sonar_1a: TEdit
Left = 33
Top = 39
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Edt_Sonar_2b: TEdit
Left = 130
Top = 59
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Edt_Sonar_3b: TEdit
Left = 130
Top = 78
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object Edt_Sonar_0b: TEdit
Left = 130
Top = 20
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object Edt_Sonar_1b: TEdit
Left = 130
Top = 39
Width = 41
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object Edt_Distance_1a: TEdit
Left = 72
Top = 39
Width = 56
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object Edt_Distance_1b: TEdit
Left = 169
Top = 39
Width = 57
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object Edt_Distance_2a: TEdit
Left = 72
Top = 59
Width = 56
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object Edt_Distance_2b: TEdit
Left = 169
Top = 59
Width = 57
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object Edt_Distance_0a: TEdit
Left = 72
Top = 20
Width = 56
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
end
object Edt_Distance_0b: TEdit
Left = 169
Top = 20
Width = 57
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
end
object Edt_Distance_3a: TEdit
Left = 72
Top = 78
Width = 56
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 14
end
object Edt_Distance_3b: TEdit
Left = 169
Top = 78
Width = 57
Height = 21
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 15
end
object Edt_Sonar_7a: TEdit
Left = 33
Top = 169
Width = 40
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 16
end
object Edt_Sonar_6a: TEdit
Left = 33
Top = 150
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -