BSOne.SFC/Tocsg.Module/NetMon/DNetMonMain.dfm

418 lines
12 KiB
Plaintext

object DlgNetMonMain: TDlgNetMonMain
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'NetMon'
ClientHeight = 434
ClientWidth = 584
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object pcMain: TPageControl
Left = 0
Top = 0
Width = 584
Height = 434
ActivePage = tabNetList
Align = alClient
TabOrder = 0
ExplicitWidth = 580
ExplicitHeight = 433
object tabNetList: TTabSheet
Caption = #45348#53944#50892#53356' '#47785#47197' '#51221#48372
object pnClient: TPanel
Left = 0
Top = 25
Width = 576
Height = 379
Align = alClient
TabOrder = 0
ExplicitWidth = 572
ExplicitHeight = 378
object SP1: TSplitter
Left = 1
Top = 273
Width = 574
Height = 5
Cursor = crVSplit
Align = alBottom
ExplicitTop = 1
ExplicitWidth = 174
end
object vtList: TVirtualStringTree
Left = 1
Top = 1
Width = 574
Height = 272
Align = alClient
Colors.BorderColor = 15987699
Colors.DisabledColor = clGray
Colors.DropMarkColor = 15385233
Colors.DropTargetColor = 15385233
Colors.DropTargetBorderColor = 15385233
Colors.FocusedSelectionColor = 15385233
Colors.FocusedSelectionBorderColor = 15385233
Colors.GridLineColor = 15987699
Colors.HeaderHotColor = clBlack
Colors.HotColor = clBlack
Colors.SelectionRectangleBlendColor = 15385233
Colors.SelectionRectangleBorderColor = 15385233
Colors.SelectionTextColor = clBlack
Colors.TreeLineColor = 9471874
Colors.UnfocusedColor = clGray
Colors.UnfocusedSelectionColor = clWhite
Colors.UnfocusedSelectionBorderColor = clWhite
Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
ParentShowHint = False
PopupMenu = popFun
ShowHint = True
TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnCompareNodes = vtListCompareNodes
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetHint = vtListGetHint
OnGetNodeDataSize = vtListGetNodeDataSize
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = 'Index'
end
item
Position = 1
Text = #49345#53468
Width = 70
end
item
Position = 2
Text = #49444#47749
Width = 140
end
item
Position = 3
Text = 'IP '#51452#49548
Width = 100
end
item
Position = 4
Text = 'MAC '#51452#49548
Width = 100
end
item
Position = 5
Text = #51060#47492
Width = 120
end
item
Position = 6
Text = 'Type'
Width = 80
end
item
Position = 7
Text = 'DHCP'
end>
end
object vtWlan: TVirtualStringTree
Left = 1
Top = 278
Width = 574
Height = 100
Align = alBottom
Colors.BorderColor = 15987699
Colors.DisabledColor = clGray
Colors.DropMarkColor = 15385233
Colors.DropTargetColor = 15385233
Colors.DropTargetBorderColor = 15385233
Colors.FocusedSelectionColor = 15385233
Colors.FocusedSelectionBorderColor = 15385233
Colors.GridLineColor = 15987699
Colors.HeaderHotColor = clBlack
Colors.HotColor = clBlack
Colors.SelectionRectangleBlendColor = 15385233
Colors.SelectionRectangleBorderColor = 15385233
Colors.SelectionTextColor = clBlack
Colors.TreeLineColor = 9471874
Colors.UnfocusedColor = clGray
Colors.UnfocusedSelectionColor = clWhite
Colors.UnfocusedSelectionBorderColor = clWhite
Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
ParentShowHint = False
PopupMenu = popFun2
ShowHint = True
TabOrder = 1
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnContextPopup = vtWlanContextPopup
OnFreeNode = vtWlanFreeNode
OnGetText = vtWlanGetText
OnGetHint = vtWlanGetHint
OnGetNodeDataSize = vtWlanGetNodeDataSize
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #47924#49440' '#45348#53944#50892#53356' '#51060#47492
Width = 150
end
item
Position = 2
Text = #51109#52824' '#51060#47492
Width = 150
end
item
Position = 3
Text = #54408#51656
Width = 70
end
item
Position = 4
Text = #48372#50504#49324#50857
Width = 70
end
item
Position = 5
Text = #50508#44256#47532#51608'1'
Width = 70
end
item
Position = 6
Text = #50508#44256#47532#51608'2'
Width = 70
end
item
Position = 7
Text = 'BSSID'
Width = 80
end>
end
end
object pnTop: TPanel
Left = 0
Top = 0
Width = 576
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 572
object btnRefresh: TSpeedButton
Left = 1
Top = 2
Width = 70
Height = 22
Caption = #49352#47196#44256#52840
OnClick = btnRefreshClick
end
end
end
object tabNetMon: TTabSheet
Caption = #45348#53944#50892#53356' '#44048#49884'/'#52264#45800
ImageIndex = 1
object mmLog: TMemo
Left = 0
Top = 273
Width = 576
Height = 131
Align = alClient
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
object pnMon: TPanel
Left = 0
Top = 0
Width = 576
Height = 273
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object btnNetMon: TSpeedButton
Left = 1
Top = 1
Width = 94
Height = 22
Caption = #44048#49884'/'#52264#45800' '#49884#51089
OnClick = btnNetMonClick
end
object Label1: TLabel
Left = 119
Top = 205
Width = 12
Height = 15
Caption = #52488
end
object Label2: TLabel
Left = 456
Top = 172
Width = 37
Height = 15
Caption = '% '#51060#54616
end
object chPreventDescInfo: TCheckBox
Left = 16
Top = 40
Width = 281
Height = 17
Caption = #45348#53944#50892#53356' '#52852#46300' '#51221#48372#50640' '#45796#51020' '#47928#44396#44032' '#51080#51012#46412' '#52264#45800
TabOrder = 0
end
object chReviveSec: TCheckBox
Left = 16
Top = 179
Width = 193
Height = 17
Caption = #52264#45800#54616#44256' '#51068#51221' '#49884#44036' '#54980' '#46104#49332#47548
Checked = True
State = cbChecked
TabOrder = 4
end
object edReviveSec: TEdit
Left = 32
Top = 202
Width = 81
Height = 23
Alignment = taRightJustify
NumbersOnly = True
TabOrder = 5
Text = '3'
end
object chPreventWireless: TCheckBox
Left = 336
Top = 40
Width = 153
Height = 17
Caption = #47924#49440' '#45348#53944#50892#53356' '#52264#45800
TabOrder = 6
end
object chPW_Public: TCheckBox
Left = 352
Top = 65
Width = 201
Height = 17
Caption = #44277#44060' '#45348#53944#50892#53356#47564' '#52264#45800' ('#48372#50504#53412' X)'
TabOrder = 7
end
object chPW_Algo: TCheckBox
Left = 352
Top = 90
Width = 193
Height = 17
Caption = #51648#51221#46108' '#48372#50504' '#50508#44256#47532#51608#47564' '#54728#50857
TabOrder = 8
end
object edPW_Algo: TEdit
Left = 368
Top = 115
Width = 185
Height = 23
TabOrder = 9
Text = 'WPA|WPA_PSK|RSNA|RSNA_PSK'
end
object edPreventDescInfo: TMemo
Left = 32
Top = 63
Width = 249
Height = 58
Lines.Strings = (
'BLUETOOTH|VPN|VIRTUAL|ANDROID|'
'APPLE|MOBILE|VM')
ScrollBars = ssVertical
TabOrder = 1
end
object chPW_Quality: TCheckBox
Left = 352
Top = 146
Width = 97
Height = 17
Caption = #51217#49549' '#54408#51656' '#52264#45800
TabOrder = 10
end
object edPW_Quality: TEdit
Left = 368
Top = 169
Width = 81
Height = 23
Alignment = taRightJustify
NumbersOnly = True
TabOrder = 11
Text = '50'
end
object chPreventNew: TCheckBox
Left = 16
Top = 129
Width = 265
Height = 17
Caption = 'IP '#48320#44221', '#49352#47196#50868' '#45348#53944#50892#53356' '#48212#44204' '#49884' '#52264#45800
TabOrder = 2
end
object chPreventDHCP: TCheckBox
Left = 16
Top = 153
Width = 209
Height = 17
Caption = 'DHCP '#52264#45800
TabOrder = 3
end
object chPW_WifiName: TCheckBox
Left = 352
Top = 202
Width = 201
Height = 17
Caption = #47924#49440' '#45348#53944#50892#53356' '#51060#47492' '#52264#45800
TabOrder = 12
end
object edPW_WifiNames: TEdit
Left = 368
Top = 225
Width = 185
Height = 23
TabOrder = 13
Text = 'TOCSG_B_5G|starbucks'
end
end
end
end
object popFun: TPopupMenu
AutoHotkeys = maManual
Left = 516
Top = 178
object miPreventNic: TMenuItem
Caption = #49324#50857' '#50504#54632
OnClick = miPreventNicClick
end
end
object tInit: TTimer
Enabled = False
Interval = 500
OnTimer = tInitTimer
Left = 260
Top = 178
end
object popFun2: TPopupMenu
Left = 332
Top = 363
object miDisconnect: TMenuItem
Caption = #50672#44208' '#52264#45800
OnClick = miDisconnectClick
end
end
end