object DlgUrlIpMon: TDlgUrlIpMon Left = 0 Top = 0 Caption = 'UrlIpMon' ClientHeight = 420 ClientWidth = 703 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 Splitter1: TSplitter Left = 0 Top = 284 Width = 703 Height = 4 Cursor = crVSplit Align = alBottom ExplicitTop = 287 ExplicitWidth = 579 end object vtList: TVirtualStringTree Left = 0 Top = 0 Width = 703 Height = 284 Align = alClient Header.AutoSizeIndex = 3 Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible] HintMode = hmTooltip ParentShowHint = False ShowHint = True TabOrder = 0 TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages] TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect] OnCompareNodes = vtListCompareNodes OnFreeNode = vtListFreeNode OnGetText = vtListGetText OnGetHint = vtListGetHint OnGetNodeDataSize = vtListGetNodeDataSize OnHeaderClick = vtListHeaderClick Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] ExplicitTop = -2 Columns = < item Position = 0 Text = #48264#54840 end item Position = 1 Text = #45824#49345' URL' Width = 200 end item Position = 2 Text = 'IP Count' Width = 80 end item Position = 3 Text = #49688#51665#46108' IP' Width = 369 end> end object mmLog: TMemo Left = 0 Top = 288 Width = 703 Height = 132 Align = alBottom ReadOnly = True ScrollBars = ssBoth TabOrder = 1 end object MainMenu: TMainMenu AutoHotkeys = maManual Left = 160 Top = 136 object miCollectIP: TMenuItem Caption = 'IP '#49688#51665 OnClick = miCollectIPClick object miStart: TMenuItem Caption = #49884#51089 OnClick = miStartClick end object miStop: TMenuItem Caption = #51473#51648 Enabled = False OnClick = miStopClick end object N3: TMenuItem Caption = '-' end object miExit: TMenuItem Caption = #51333#47308'(&X)' OnClick = miExitClick end end end end