?? unit1.dfm
字號:
end
end
end
end
object TabSheet2: TTabSheet
Caption = '聊天服務'
ImageIndex = 1
object Splitter2: TSplitter
Left = 0
Top = 282
Width = 510
Height = 4
Cursor = crVSplit
Align = alBottom
end
object GServer1: GServer
Left = 0
Top = 286
Width = 510
Height = 155
Align = alBottom
TabOrder = 0
ClientList = ListView1
OnConnecting = GServer1Connecting
OnLeave = GServer1Leave
OnDisConnect = GServer1DisConnect
end
object ListView1: TListView
Left = 0
Top = 73
Width = 510
Height = 209
Align = alClient
Columns = <
item
Caption = 'ID'
Width = 80
end
item
Alignment = taCenter
Caption = '呢稱'
Width = 80
end
item
Alignment = taCenter
Caption = 'IP地址'
Width = 120
end
item
Alignment = taCenter
Caption = '狀態'
Width = 100
end
item
Alignment = taCenter
Caption = '接收量'
Width = 60
end
item
Alignment = taCenter
Caption = '發送量'
Width = 60
end>
SortType = stText
TabOrder = 1
ViewStyle = vsReport
OnChange = ListView1Change
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 510
Height = 73
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object sbLocalInfo: TSpeedButton
Left = 256
Top = 8
Width = 81
Height = 22
Caption = '本機信息'
Flat = True
OnClick = sbLocalInfoClick
end
object Label9: TLabel
Left = 8
Top = 8
Width = 40
Height = 16
Caption = '端口:'
end
object Label10: TLabel
Left = 120
Top = 8
Width = 40
Height = 16
Caption = '密碼:'
end
object sbSBegin: TSpeedButton
Left = 344
Top = 8
Width = 49
Height = 22
Caption = '啟動'
Flat = True
OnClick = sbSBeginClick
end
object sbSEnd: TSpeedButton
Left = 400
Top = 8
Width = 49
Height = 22
Caption = '終止'
Enabled = False
Flat = True
OnClick = sbSEndClick
end
object sbCloseDoor: TSpeedButton
Left = 344
Top = 40
Width = 49
Height = 22
AllowAllUp = True
GroupIndex = 2
Caption = '關門'
Enabled = False
Flat = True
OnClick = sbCloseDoorClick
end
object sbSystem: TSpeedButton
Left = 456
Top = 8
Width = 49
Height = 22
Caption = '系統'
Enabled = False
Flat = True
OnClick = sbSystemClick
end
object sbSSave: TSpeedButton
Left = 456
Top = 40
Width = 49
Height = 22
Caption = '保存'
Flat = True
OnClick = sbSSaveClick
end
object Label34: TLabel
Left = 8
Top = 40
Width = 56
Height = 16
Caption = '歡迎詞:'
end
object sbKick: TSpeedButton
Left = 400
Top = 40
Width = 49
Height = 22
Caption = '踢人'
Enabled = False
Flat = True
OnClick = sbKickClick
end
object Bevel1: TBevel
Left = 0
Top = 0
Width = 510
Height = 2
Align = alTop
Shape = bsTopLine
end
object edSPort: TEdit
Left = 48
Top = 8
Width = 65
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
MaxLength = 5
ParentFont = False
TabOrder = 0
Text = '80'
end
object edSPassword: TEdit
Left = 160
Top = 8
Width = 89
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
MaxLength = 14
ParentFont = False
TabOrder = 1
Text = 'NetTime'
end
object edWelcome: TEdit
Left = 64
Top = 40
Width = 273
Height = 24
MaxLength = 50
TabOrder = 2
Text = '歡迎來到我的聊天室!'
end
end
end
object TabSheet3: TTabSheet
Caption = '聊天客戶'
ImageIndex = 2
object Panel3: TPanel
Left = 0
Top = 400
Width = 510
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
OnResize = Panel3Resize
object lbColor: TLabel
Left = 3
Top = 14
Width = 16
Height = 16
Caption = ' '
Color = clNavy
ParentColor = False
OnClick = lbColorClick
end
object edCText: TEdit
Left = 24
Top = 11
Width = 433
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
MaxLength = 80
ParentFont = False
TabOrder = 0
end
object btCSend: TButton
Left = 464
Top = 8
Width = 41
Height = 25
Caption = '發送'
Default = True
Enabled = False
TabOrder = 1
OnClick = btCSendClick
end
end
object GClient1: GClient
Left = 0
Top = 49
Width = 510
Height = 351
Align = alClient
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 1
ClientList = ToolBarClient
SendColor = clNavy
OnSay = GClient1Say
OnConnected = GClient1Connected
OnClosed = GClient1Closed
OnConnectFailed = GClient1ConnectFailed
OnButtonClick = GClient1ButtonClick
end
object PToolBar: TPanel
Left = 0
Top = 0
Width = 510
Height = 49
Align = alTop
BevelOuter = bvNone
TabOrder = 2
OnResize = PToolBarResize
object ToolBarClient: TToolBar
Left = -2
Top = 0
Width = 51
Height = 49
Align = alNone
AutoSize = True
BorderWidth = 2
ButtonHeight = 41
ButtonWidth = 43
Color = clBtnFace
EdgeBorders = []
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Images = ImageList1
List = True
ParentColor = False
TabOrder = 0
Transparent = True
Wrapable = False
OnResize = ToolBarClientResize
object TBConnect: TToolButton
Left = 0
Top = 0
Hint = '單擊進行連接設置'
AutoSize = True
ImageIndex = 65
ParentShowHint = False
ShowHint = True
OnClick = TBConnectClick
end
end
object BLeftSide: TBitBtn
Left = 3
Top = 32
Width = 20
Height = 17
Caption = '←'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
OnClick = BLeftSideClick
end
object BRightSide: TBitBtn
Left = 488
Top = 32
Width = 20
Height = 17
Caption = '→'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 2
Visible = False
OnClick = BRightSideClick
end
end
end
object TabSheet5: TTabSheet
Caption = '端口掃描'
ImageIndex = 4
object Bevel3: TBevel
Left = 0
Top = 0
Width = 510
Height = 2
Align = alTop
Shape = bsTopLine
end
object stbScan: TStatusBar
Left = 0
Top = 422
Width = 510
Height = 19
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋體'
Font.Pitch = fpVariable
Font.Style = []
Panels = <
item
Text = 'localhost'
Width = 300
end
item
Width = 50
end>
SimplePanel = False
UseSystemFont = False
end
object Panel5: TPanel
Left = 0
Top = 2
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -