object DlgBs1AgentsMain: TDlgBs1AgentsMain Left = 0 Top = 0 Caption = 'BS1Agents for 2.7-8' ClientHeight = 363 ClientWidth = 655 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] Menu = MainMenu Position = poScreenCenter TextHeight = 15 object pnBottom: TPanel Left = 0 Top = 344 Width = 655 Height = 19 Align = alBottom BevelOuter = bvNone TabOrder = 0 ExplicitTop = 343 ExplicitWidth = 649 object lbTime: TLabel Left = 4 Top = 2 Width = 123 Height = 15 Caption = #50640#51060#51204#53944' '#50672#44208' '#45824#44592#51473'...' end object lbSvrInfo: TLabel Left = 646 Top = 2 Width = 3 Height = 15 Alignment = taRightJustify end end object vtList: TVirtualStringTree Left = 0 Top = 0 Width = 655 Height = 344 AccessibleName = #52572#44540' '#51221#52293#49688#49888' '#51068#49884' (LocTime)' 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 = 1 TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages] TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect] OnCompareNodes = vtListCompareNodes OnFreeNode = vtListFreeNode OnGetText = vtListGetText OnPaintText = vtListPaintText OnGetHint = vtListGetHint OnGetNodeDataSize = vtListGetNodeDataSize OnHeaderClick = vtListHeaderClick Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] ExplicitWidth = 653 Columns = < item Position = 0 Text = #48264#54840 end item Position = 1 Text = #49345#53468 Width = 120 end item Position = 2 Text = #47784#46300 Width = 80 end item Position = 3 Text = #49324#48264 Width = 100 end item Position = 4 Text = #51221#52293#44536#47353 Width = 100 end item Position = 5 Text = #52572#44540' '#51221#52293#49688#49888' '#51068#49884' (LocTime)' Width = 180 end item Position = 6 Text = #52572#44540' '#51221#52293#49688#49888' '#51068#49884' (SvrTime)' Width = 180 end> DefaultText = '' end object MainMenu: TMainMenu AutoHotkeys = maManual Left = 184 Top = 80 object miConnection: TMenuItem Caption = #50672#44208'(&C)' OnClick = miConnectionClick object miAgentsConn: TMenuItem Caption = #50640#51060#51204#53944' '#50672#44208' '#49373#49457'(&C)' OnClick = miAgentsConnClick end object miAgentsDisconn: TMenuItem Caption = #50640#51060#51204#53944' '#50672#44208' '#49325#51228'(&R)' OnClick = miAgentsDisconnClick end object N2: TMenuItem Caption = '-' end object miExit: TMenuItem Caption = #51333#47308'(&X)' OnClick = miExitClick end end object miConfig: TMenuItem Caption = #49444#51221'(&C)' object miConnSetting: TMenuItem Caption = #51217#49549' '#49444#51221'(&S)' OnClick = miConnSettingClick end end end object tInit: TTimer Enabled = False Interval = 10 OnTimer = tInitTimer Left = 184 Top = 144 end object popFun: TPopupMenu AutoHotkeys = maManual Left = 344 Top = 96 object miChangeMode: TMenuItem Caption = #47784#46300' '#48320#44221 object miSleepMode: TMenuItem Caption = #49688#47732#47784#46300 OnClick = miSleepModeClick end object miSecuMode: TMenuItem Caption = #48372#50504#47784#46300 OnClick = miSecuModeClick end object miVulMode: TMenuItem Caption = #52712#50557#47784#46300 OnClick = miVulModeClick end end object miGetPol: TMenuItem Caption = #51593#49884' '#51221#52293' '#44032#51256#50724#44592 OnClick = miGetPolClick end object N6: TMenuItem Caption = '-' end object miSendBlockLog: TMenuItem Caption = #51221#52293#50948#48152' '#47196#44536' '#51204#49569 Enabled = False end end object tProg: TTimer Enabled = False OnTimer = tProgTimer Left = 184 Top = 200 end end