object DlgSelPerInfo: TDlgSelPerInfo Left = 0 Top = 0 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = #44060#51064#51221#48372' '#44160#49324' '#44208#44284 ClientHeight = 202 ClientWidth = 465 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] Position = poOwnerFormCenter TextHeight = 15 object pnClient: TPanel Left = 0 Top = 0 Width = 465 Height = 161 Align = alClient BevelOuter = bvNone TabOrder = 0 ExplicitLeft = 96 ExplicitTop = 24 ExplicitWidth = 185 ExplicitHeight = 41 object vtList: TVirtualStringTree Left = 0 Top = 0 Width = 465 Height = 161 Align = alClient Header.AutoSizeIndex = 0 Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible] TabOrder = 0 TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages] TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect] OnDblClick = btnOkClick OnFreeNode = vtListFreeNode OnGetText = vtListGetText OnGetNodeDataSize = vtListGetNodeDataSize Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] ExplicitWidth = 539 Columns = < item Position = 0 Text = #48264#54840 end item Position = 1 Text = #44160#49324' '#51068#49884 Width = 150 end item Position = 2 Text = #44160#49324' '#49884#44036 Width = 80 end item Position = 3 Text = #44160#52636#46108' '#54028#51068' '#49688 Width = 150 end> end end object pnBottom: TPanel Left = 0 Top = 161 Width = 465 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 1 ExplicitLeft = 56 ExplicitTop = 144 ExplicitWidth = 185 object btnOk: TButton Left = 115 Top = 9 Width = 75 Height = 25 Caption = #54869#51064 TabOrder = 0 OnClick = btnOkClick end object btnCancel: TButton Left = 275 Top = 9 Width = 75 Height = 25 Cancel = True Caption = #52712#49548 ModalResult = 2 TabOrder = 1 end end end