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