BSOne.SFC/eCrmHE/Utils/EXE_BS1Agents/DBs1AgentsMain.dfm

197 lines
5.3 KiB
Plaintext

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