📄 main.dfm
字号:
object FrmMain: TFrmMain
Left = 440
Top = 225
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
ClientHeight = 140
ClientWidth = 230
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '??'
Font.Style = []
Menu = MainMenu
OldCreateOrder = False
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 15
object MemoLog: TMemo
Left = 0
Top = 1
Width = 230
Height = 118
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssHorizontal
TabOrder = 0
OnChange = MemoLogChange
end
object StatusBar: TStatusBar
Left = 0
Top = 119
Width = 230
Height = 21
Panels = <
item
Alignment = taCenter
Text = '????'
Width = 45
end
item
Alignment = taCenter
Text = '---] [---'
Width = 60
end
item
Alignment = taCenter
Text = '????'
Width = 70
end
item
Alignment = taCenter
Text = '????'
Width = 50
end>
end
object Panel: TPanel
Left = 0
Top = 0
Width = 230
Height = 1
Align = alTop
BevelOuter = bvNone
Caption = ' '
TabOrder = 2
object LbLack: TLabel
Left = 293
Top = 71
Width = 17
Height = 15
Caption = '0/0'
end
object GroupBox1: TGroupBox
Left = 1
Top = 16
Width = 272
Height = 65
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object LabelReviceMsgSize: TLabel
Left = 15
Top = 18
Width = 30
Height = 12
Caption = #25509#25910':'
end
object LabelSendBlockSize: TLabel
Left = 15
Top = 38
Width = 30
Height = 12
Caption = #21457#36865':'
end
object LabelLogonMsgSize: TLabel
Left = 91
Top = 18
Width = 30
Height = 12
Caption = #30331#24405':'
end
object LabelPlayMsgSize: TLabel
Left = 91
Top = 38
Width = 30
Height = 12
Caption = #26222#36890':'
end
object LabelDeCodeMsgSize: TLabel
Left = 183
Top = 18
Width = 30
Height = 12
Caption = #35299#30721':'
end
object LabelProcessMsgSize: TLabel
Left = 183
Top = 38
Width = 30
Height = 12
Caption = #32534#30721':'
end
object LabelBufferOfM2Size: TLabel
Left = 15
Top = 58
Width = 66
Height = 12
Caption = #26381#21153#22120#36890#35759':'
end
object LabelSelfCheck: TLabel
Left = 141
Top = 58
Width = 54
Height = 12
Caption = #36890#35759#33258#26816':'
end
end
object GroupBoxProcessTime: TGroupBox
Left = 1
Top = 86
Width = 272
Height = 67
Caption = #22788#29702#26102#38388
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object LabelSendTime: TLabel
Left = 15
Top = 40
Width = 30
Height = 12
Caption = #21457#36865':'
end
object LabelReceTime: TLabel
Left = 15
Top = 20
Width = 30
Height = 12
Caption = #25509#25910':'
end
object LabelLoop: TLabel
Left = 211
Top = 20
Width = 48
Height = 12
Caption = #25968#25454#22788#29702
end
object LabelReviceLimitTime: TLabel
Left = 87
Top = 20
Width = 78
Height = 12
Caption = #25509#25910#22788#29702#38480#21046':'
end
object LabelSendLimitTime: TLabel
Left = 87
Top = 40
Width = 78
Height = 12
Caption = #21457#36865#22788#29702#38480#21046':'
end
object LabelLoopTime: TLabel
Left = 203
Top = 40
Width = 60
Height = 15
Alignment = taCenter
AutoSize = False
Caption = '--------'
end
end
end
object ServerSocket: TServerSocket
Active = False
Port = 0
ServerType = stNonBlocking
OnClientConnect = ServerSocketClientConnect
OnClientDisconnect = ServerSocketClientDisconnect
OnClientRead = ServerSocketClientRead
OnClientError = ServerSocketClientError
Left = 290
Top = 24
end
object SendTimer: TTimer
Enabled = False
Interval = 5000
OnTimer = SendTimerTimer
Left = 293
Top = 32
end
object ClientSocket: TClientSocket
Active = False
Address = '127.0.0.1'
ClientType = ctNonBlocking
Port = 50000
OnConnect = ClientSocketConnect
OnDisconnect = ClientSocketDisconnect
OnRead = ClientSocketRead
OnError = ClientSocketError
Left = 290
end
object Timer: TTimer
OnTimer = TimerTimer
Left = 292
Top = 8
end
object DecodeTimer: TTimer
Interval = 1
OnTimer = DecodeTimerTimer
Left = 290
Top = 16
end
object MainMenu: TMainMenu
Left = 291
Top = 16
object MENU_CONTROL: TMenuItem
Caption = #25511#21046'(&C)'
object MENU_CONTROL_START: TMenuItem
Caption = #21551#21160#26381#21153'(&S)'
OnClick = MENU_CONTROL_STARTClick
end
object MENU_CONTROL_STOP: TMenuItem
Caption = #20572#27490#26381#21153'(&T)'
OnClick = MENU_CONTROL_STOPClick
end
object MENU_CONTROL_RECONNECT: TMenuItem
Caption = #21047#26032#36830#25509'(&R)'
OnClick = MENU_CONTROL_RECONNECTClick
end
object MENU_CONTROL_RELOADCONFIG: TMenuItem
Caption = #37325#21152#36733#37197#32622'(&R)'
OnClick = MENU_CONTROL_RELOADCONFIGClick
end
object MENU_CONTROL_CLEAELOG: TMenuItem
Caption = #28165#38500#26085#24535'(&C)'
OnClick = MENU_CONTROL_CLEAELOGClick
end
object MENU_CONTROL_EXIT: TMenuItem
Caption = #36864#20986'(&E)'
OnClick = MENU_CONTROL_EXITClick
end
end
object MENU_OPTION: TMenuItem
Caption = #36873#39033'(&O)'
object MENU_OPTION_GENERAL: TMenuItem
Caption = #22522#26412#35774#32622'(&G)'
OnClick = MENU_OPTION_GENERALClick
end
object MENU_OPTION_PERFORM: TMenuItem
Caption = #24615#33021#35774#32622'(&P)'
OnClick = MENU_OPTION_PERFORMClick
end
object MENU_OPTION_IPFILTER: TMenuItem
Caption = #23433#20840#36807#28388'(&S)'
OnClick = MENU_OPTION_IPFILTERClick
end
object MENU_OPTION_FILTERMSG: TMenuItem
Caption = #28040#24687#36807#28388'(&C)'
OnClick = MENU_OPTION_FILTERMSGClick
end
end
end
object StartTimer: TTimer
Interval = 200
OnTimer = StartTimerTimer
Left = 284
Top = 16
end
object PopupMenu: TPopupMenu
Left = 288
Top = 32
object POPMENU_PORT: TMenuItem
AutoHotkeys = maManual
Caption = '??'
end
object POPMENU_CONNSTAT: TMenuItem
AutoHotkeys = maManual
Caption = '????'
end
object POPMENU_CONNCOUNT: TMenuItem
AutoHotkeys = maManual
Caption = '???'
end
object POPMENU_CHECKTICK: TMenuItem
AutoHotkeys = maManual
Caption = '????'
end
object N1: TMenuItem
Caption = '--------------------'
end
object POPMENU_OPEN: TMenuItem
Caption = '????(&O)'
end
object POPMENU_START: TMenuItem
Caption = '????(&S)'
OnClick = MENU_CONTROL_STARTClick
end
object POPMENU_CONNSTOP: TMenuItem
Caption = '????(&T)'
OnClick = MENU_CONTROL_STOPClick
end
object POPMENU_RECONN: TMenuItem
Caption = '????(&R)'
OnClick = MENU_CONTROL_RECONNECTClick
end
object POPMENU_EXIT: TMenuItem
Caption = '??(&X)'
OnClick = MENU_CONTROL_EXITClick
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -