BSOne.SFC/Tocsg.Module/AppMon/FProcessList.dfm

170 lines
4.4 KiB
Plaintext

object FrmProcessList: TFrmProcessList
Left = 0
Top = 0
Width = 866
Height = 480
TabOrder = 0
object vtList: TVirtualStringTree
Left = 0
Top = 0
Width = 866
Height = 480
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 = 10
Header.MainColumn = 1
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
IncrementalSearch = isVisibleOnly
ParentShowHint = False
PopupMenu = popFun
ShowHint = True
TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnCompareNodes = vtListCompareNodes
OnContextPopup = vtListContextPopup
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetImageIndex = vtListGetImageIndex
OnGetHint = vtListGetHint
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 = #51060#47492
Width = 120
end
item
Position = 2
Text = 'PID'
Width = 60
end
item
Position = 3
Text = 'CPU'
end
item
Position = 4
Text = #47700#47784#47532
Width = 70
end
item
Position = 5
Text = #49324#50857' '#49884#44036
Width = 100
end
item
Position = 6
Text = #49892#54665' '#49884#44036
Width = 150
end
item
Position = 7
Text = #49324#50857#51088
Width = 80
end
item
Position = 8
Text = #50864#49440' '#49692#50948
Width = 110
end
item
Position = 9
Text = #49444#47749
Width = 200
end
item
Position = 10
Text = #51228#51089#49324
Width = 100
end
item
Position = 11
Text = #48260#51204
Width = 100
end
item
Position = 12
Text = #51200#51089#44428
Width = 80
end
item
Position = 13
Text = #44221#47196
Width = 250
end>
DefaultText = ''
end
object tUpdate: TTimer
Enabled = False
OnTimer = tUpdateTimer
Left = 104
Top = 104
end
object popFun: TPopupMenu
AutoHotkeys = maManual
OnPopup = popFunPopup
Left = 304
Top = 120
object miCopyCB: TMenuItem
Caption = #49440#53469#54620' '#54637#47785#51012' '#53364#47549#48372#46300#50640' '#48373#49324
ShortCut = 16451
OnClick = miCopyCBClick
end
object miExportJson: TMenuItem
Caption = #54532#47196#49464#49828' '#47785#47197' '#51221#48372' '#45236#48372#45236#44592' (ToJson for HE)'
OnClick = miExportJsonClick
end
object N2: TMenuItem
Caption = '-'
end
object miTerminate: TMenuItem
Caption = #54532#47196#49464#49828' '#51333#47308
ShortCut = 46
OnClick = miTerminateClick
end
object miTerminateName: TMenuItem
Caption = #44057#51008' '#51060#47492#51032' '#54532#47196#49464#49828' '#47784#46160' '#51333#47308
OnClick = miTerminateNameClick
end
object N3: TMenuItem
Caption = '-'
end
object miFilter: TMenuItem
Caption = #44160#49353' '#54596#53552
ShortCut = 16454
OnClick = miFilterClick
end
end
object SaveDialog: TSaveDialog
DefaultExt = 'json'
Filter = 'Json file|*.json'
Left = 264
Top = 216
end
end