BSOne.SFC/Tocsg.Module/BlueMon/DBlueMonMain.dfm

357 lines
9.2 KiB
Plaintext

object DlgBlueMon: TDlgBlueMon
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'BlueMon'
ClientHeight = 315
ClientWidth = 541
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 = 541
Height = 315
ActivePage = tabBlueList
Align = alClient
TabOrder = 0
ExplicitWidth = 537
ExplicitHeight = 314
object tabBlueList: TTabSheet
Caption = #48660#47336#53804#49828' '#47785#47197' '#51221#48372
object pnTop: TPanel
Left = 0
Top = 0
Width = 533
Height = 29
Align = alTop
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 529
object btnRefresh: TButton
Left = 0
Top = 1
Width = 75
Height = 25
Caption = #49352#47196#44256#52840
TabOrder = 0
OnClick = btnRefreshClick
end
end
object vtList: TVirtualStringTree
Left = 0
Top = 29
Width = 533
Height = 256
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]
PopupMenu = popFun
TabOrder = 1
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnContextPopup = vtListContextPopup
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetNodeDataSize = vtListGetNodeDataSize
OnHeaderClick = vtListHeaderClick
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #49345#53468
Width = 70
end
item
Position = 2
Text = #51060#47492
Width = 120
end
item
Position = 3
Text = 'CoD'
Width = 80
end
item
Position = 4
Text = #51333#47448' (Major)'
Width = 90
end
item
Position = 5
Text = #51333#47448' (Minor)'
Width = 90
end
item
Position = 6
Text = #51064#51613
end
item
Position = 7
Text = #51109#52824' '#51452#49548
Width = 110
end
item
Position = 8
Text = #52572#44540' '#49324#50857' '#51068#49884
Width = 150
end
item
Position = 9
Text = #52572#44540' '#48156#44204' '#51068#49884
Width = 150
end>
DefaultText = ''
end
end
object tabBlueMon: TTabSheet
Caption = #48660#47336#53804#49828' '#44048#49884'/'#52264#45800
ImageIndex = 1
object Label1: TLabel
Left = 29
Top = 64
Width = 146
Height = 15
Caption = #50672#44208' '#52264#45800' '#50696#50808' (; '#51004#47196' '#44396#48516')'
end
object btnPB_MJAdd: TSpeedButton
Left = 428
Top = 55
Width = 23
Height = 23
Caption = '+'
OnClick = btnPB_MJAddClick
end
object btnPB_MNAdd: TSpeedButton
Left = 428
Top = 178
Width = 23
Height = 23
Caption = '+'
OnClick = btnPB_MNAddClick
end
object btnPB_MJDel: TSpeedButton
Left = 454
Top = 55
Width = 23
Height = 23
Caption = '-'
OnClick = btnPB_MJDelClick
end
object btnPB_MNDel: TSpeedButton
Left = 454
Top = 178
Width = 23
Height = 23
Caption = '-'
OnClick = btnPB_MNDelClick
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 533
Height = 29
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object btnBlueMon: TButton
Left = 0
Top = 1
Width = 97
Height = 25
Caption = #44048#49884'/'#52264#45800' '#49884#51089
TabOrder = 0
OnClick = btnBlueMonClick
end
end
object chPreventBtAll: TCheckBox
Left = 16
Top = 36
Width = 183
Height = 17
Caption = #47784#46304' '#48660#47336#53804#49828' '#51109#52824' '#50672#44208' '#52264#45800
TabOrder = 1
end
object mmExcept: TMemo
Left = 29
Top = 85
Width = 228
Height = 97
Lines.Strings = (
'04:52:C7:1A:12:2F')
ScrollBars = ssVertical
TabOrder = 2
end
object chPB_Name: TCheckBox
Left = 16
Top = 214
Width = 273
Height = 17
Caption = #48660#47336#53804#49828' '#51109#52824' '#51060#47492#50640' '#45796#51020' '#47928#44396#44032' '#51080#51004#47732' '#52264#45800
TabOrder = 3
end
object edPB_Name: TEdit
Left = 16
Top = 237
Width = 257
Height = 23
TabOrder = 4
Text = 'LG'
end
object cbPB_MJ: TComboBox
Left = 320
Top = 55
Width = 105
Height = 23
Style = csDropDownList
ItemIndex = 0
TabOrder = 6
Text = 'Misc'
Items.Strings = (
'Misc'
'Computer'
'Phone'
'LanAccessPoint'
'Audio/Video'
'Peripheral'
'Imaging'
'Unclassified')
end
object chPB_MJ: TCheckBox
Left = 304
Top = 32
Width = 233
Height = 17
Caption = #48660#47336#53804#49828' '#51109#52824' Major '#51333#47448#47196' '#52264#45800
TabOrder = 5
end
object cbPB_MN: TComboBox
Left = 320
Top = 178
Width = 105
Height = 23
Style = csDropDownList
ItemIndex = 0
TabOrder = 9
Text = 'Uncategorised'
Items.Strings = (
'Uncategorised'
'Desktop'
'Server'
'Laptop'
'Handheld'
'Palm'
'Wearable'
'Mobile'
'Cordless'
'Smart phone'
'Wired modem or voice gateway'
'Common ISDN access'
'Sim card reader'
'Device conforms to the Headset profile'
'Hands-free'
'Reserved'
'Microphone'
'Loudspeaker'
'Headphones'
'Portable audio'
'Car audio'
'Set-top box'
'HiFi audio device'
'VCR'
'Video camera'
'Camcorder'
'Video monitor'
'Video display and loudspeaker'
'Video conferencing'
'Gaming/toy'
'Keyboard'
'Pointing device'
'Display'
'Camera'
'Scanner'
'Printer'
'Wrist watch'
'Pager'
'Jacket'
'Helmet'
'Glasses'
'Robot'
'Vehicle'
'Doll/action figure'
'Controller'
'Game')
end
object chPB_MN: TCheckBox
Left = 304
Top = 155
Width = 233
Height = 17
Caption = #48660#47336#53804#49828' '#51109#52824' Minor '#51333#47448#47196' '#52264#45800
TabOrder = 8
end
object lxPB_MJ: TListBox
Left = 320
Top = 83
Width = 157
Height = 61
ItemHeight = 15
TabOrder = 7
end
object lxPB_MN: TListBox
Left = 320
Top = 207
Width = 157
Height = 61
ItemHeight = 15
TabOrder = 10
end
end
end
object popFun: TPopupMenu
AutoHotkeys = maManual
Left = 260
Top = 98
object miPreventBlue: TMenuItem
Caption = #50672#44208' '#54644#51228
OnClick = miPreventBlueClick
end
object N1: TMenuItem
Caption = '-'
end
object miCopyCB: TMenuItem
Caption = #53364#47549#48372#46300#47196' '#48373#49324
ShortCut = 16451
OnClick = miCopyCBClick
end
end
end