object DlgReqPrintList: TDlgReqPrintList Left = 0 Top = 0 Caption = #52636#47141' '#50836#52397' '#47785#47197 ClientHeight = 338 ClientWidth = 590 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] Position = poScreenCenter OnClose = FormClose TextHeight = 15 object vtList: TVirtualStringTree Left = 0 Top = 0 Width = 590 Height = 338 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] OnFreeNode = vtListFreeNode OnGetText = vtListGetText OnGetNodeDataSize = vtListGetNodeDataSize Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] Columns = < item Position = 0 Text = #48264#54840 end item Position = 1 Text = #50836#52397#51068#49884 Width = 150 end item Position = 2 Text = #47928#49436#51060#47492 Width = 200 end item Position = 3 Text = #54168#51060#51648' '#49688 Width = 70 end item Position = 4 Text = #54028#51068#44221#47196 Width = 150 end> end object popFun: TPopupMenu AutoHotkeys = maManual Left = 200 Top = 64 object miDoPrint: TMenuItem Caption = #52636#47141 OnClick = miDoPrintClick end object miDel: TMenuItem Caption = #49325#51228 OnClick = miDelClick end end end