📄 unit1.dfm
字号:
Width = 48
Height = 16
Caption = '波特律:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 64
Width = 48
Height = 16
Caption = '数据位:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object topimg: TImage
Left = 8
Top = 8
Width = 25
Height = 25
OnClick = topimgClick
end
object CB1: TComboBox
Left = 64
Top = 16
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = CB1Change
end
object CB2: TComboBox
Left = 64
Top = 40
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
OnChange = CB1Change
end
object CB3: TComboBox
Left = 64
Top = 64
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
OnChange = CB1Change
end
end
object Panel5: TPanel
Left = 0
Top = 89
Width = 129
Height = 159
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object L3: TLabel
Left = 8
Top = 32
Width = 27
Height = 16
Caption = '命令:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object L4: TLabel
Left = 8
Top = 56
Width = 27
Height = 16
Caption = '参数:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 129
Height = 24
AutoSize = True
ButtonWidth = 25
Caption = 'ToolBar1'
EdgeInner = esNone
EdgeOuter = esNone
TabOrder = 0
object SB1: TSpeedButton
Left = 0
Top = 2
Width = 23
Height = 22
ParentShowHint = False
ShowHint = True
OnClick = SB1Click
end
object SB2: TSpeedButton
Left = 23
Top = 2
Width = 23
Height = 22
ParentShowHint = False
ShowHint = True
OnClick = SB1Click
end
object SB3: TSpeedButton
Left = 46
Top = 2
Width = 23
Height = 22
ParentShowHint = False
ShowHint = True
OnClick = SB1Click
end
object SB4: TSpeedButton
Left = 69
Top = 2
Width = 23
Height = 22
ParentShowHint = False
ShowHint = True
OnClick = SB1Click
end
object Panel10: TPanel
Left = 92
Top = 2
Width = 9
Height = 22
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
end
object SB5: TSpeedButton
Left = 101
Top = 2
Width = 23
Height = 22
Hint = '发送文本'
Caption = 'Send'
ParentShowHint = False
ShowHint = True
OnClick = SB5Click
end
end
object CB4: TComboBox
Left = 40
Top = 32
Width = 81
Height = 24
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ItemHeight = 16
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = CB4Change
end
object E1: TEdit
Left = 40
Top = 56
Width = 81
Height = 23
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnKeyPress = E1KeyPress
OnMouseMove = E1MouseMove
end
object B2: TButton
Left = 48
Top = 91
Width = 75
Height = 25
Hint = '插入命令文本发送区'
Caption = '插入命令到文本'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = B2Click
end
object B1: TButton
Left = 8
Top = 91
Width = 33
Height = 25
Hint = '直接发送命令'
Caption = '发送'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = B2Click
end
object GroupBox3: TGroupBox
Left = 8
Top = 128
Width = 113
Height = 249
Caption = '发送方式'
TabOrder = 5
Visible = False
object L1: TLabel
Left = 32
Top = 64
Width = 12
Height = 12
Caption = '开'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object L2: TLabel
Left = 32
Top = 80
Width = 12
Height = 12
Caption = '关'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 32
Top = 192
Width = 78
Height = 12
Caption = '注:打印机端口'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 32
Top = 208
Width = 72
Height = 12
Caption = '被本程序占用'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 32
Top = 224
Width = 78
Height = 12
Caption = '请改“端口”.'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object RB1: TRadioButton
Left = 8
Top = 16
Width = 81
Height = 17
Caption = '以文本发送'
Checked = True
TabOrder = 0
TabStop = True
OnClick = RB1Click
end
object RB2: TRadioButton
Left = 8
Top = 104
Width = 97
Height = 17
Caption = '以打印驱动程序发送'
TabOrder = 1
OnClick = RB1Click
end
object CB5: TCheckBox
Left = 24
Top = 32
Width = 73
Height = 17
Caption = '自动汉字识别'
TabOrder = 2
OnClick = CB5Click
end
object E4: TEdit
Left = 48
Top = 56
Width = 57
Height = 21
Enabled = False
TabOrder = 3
OnKeyPress = E2KeyPress
end
object E5: TEdit
Left = 48
Top = 80
Width = 57
Height = 21
Enabled = False
TabOrder = 4
OnKeyPress = E2KeyPress
end
object B3: TButton
Left = 24
Top = 160
Width = 75
Height = 25
Caption = '打印机设置'
Enabled = False
TabOrder = 5
OnClick = B3Click
end
object Panel16: TPanel
Left = 16
Top = 120
Width = 89
Height = 33
BevelOuter = bvNone
Caption = 'Panel16'
TabOrder = 6
object RB3: TRadioButton
Left = 8
Top = 0
Width = 113
Height = 17
Caption = '格式文本'
Checked = True
Enabled = False
TabOrder = 0
TabStop = True
OnClick = RB3Click
end
object RB4: TRadioButton
Left = 8
Top = 16
Width = 113
Height = 17
Caption = '位图数据'
Enabled = False
TabOrder = 1
OnClick = RB3Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -