BSOne.SFC/Tocsg.Module/MonSecu/DMonSecuMain.dfm

299 lines
8.4 KiB
Plaintext

object DlgMonSecuMain: TDlgMonSecuMain
Left = 0
Top = 0
Caption = 'MonSecu'
ClientHeight = 422
ClientWidth = 820
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 pcMain: TPageControl
Left = 0
Top = 0
Width = 820
Height = 422
ActivePage = tabDoc
Align = alClient
TabOrder = 0
object tabMonInfo: TTabSheet
Caption = #49688#51665' '#51221#48372
object SP1: TSplitter
Left = 200
Top = 0
Width = 4
Height = 392
end
object vtLog: TVirtualStringTree
Left = 0
Top = 0
Width = 200
Height = 392
Align = alLeft
Header.AutoSizeIndex = 1
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, toRightClickSelect]
OnFocusChanged = vtLogFocusChanged
OnFreeNode = vtLogFreeNode
OnGetText = vtLogGetText
OnGetHint = vtLogGetHint
OnGetNodeDataSize = vtLogGetNodeDataSize
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #47196#44536' '#51068#49884
Width = 146
end>
DefaultText = ''
end
object pnColClient: TPanel
Left = 204
Top = 0
Width = 608
Height = 392
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object SP2: TSplitter
Left = 0
Top = 161
Width = 608
Height = 4
Cursor = crVSplit
Align = alTop
ExplicitWidth = 231
end
object Splitter1: TSplitter
Left = 444
Top = 165
Width = 4
Height = 227
Align = alRight
ExplicitLeft = 0
end
object mmMonTxt: TMemo
Left = 0
Top = 0
Width = 608
Height = 161
Align = alTop
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
object vtWin: TVirtualStringTree
Left = 0
Top = 165
Width = 444
Height = 227
Align = alClient
Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
ParentShowHint = False
ShowHint = True
TabOrder = 1
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnFocusChanged = vtWinFocusChanged
OnFreeNode = vtWinFreeNode
OnGetText = vtWinGetText
OnPaintText = vtWinPaintText
OnGetHint = vtWinGetHint
OnGetNodeDataSize = vtWinGetNodeDataSize
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = #48264#54840
end
item
Position = 1
Text = #49892#54665' '#51068#49884
Width = 150
end
item
Position = 2
Text = #54532#47196#49464#49828' '#51060#47492
Width = 120
end
item
Position = 3
Text = #54876#49457
end
item
Position = 4
Text = #50952#46020#50864' '#53440#51060#53952
Width = 250
end
item
Position = 5
Text = #54532#47196#49464#49828' '#44221#47196
Width = 200
end>
DefaultText = ''
end
object mmWInfo: TMemo
Left = 448
Top = 165
Width = 160
Height = 227
Align = alRight
ScrollBars = ssVertical
TabOrder = 2
end
end
end
object tabDoc: TTabSheet
Caption = #52572#44540' '#47928#49436
ImageIndex = 1
object SP4: TSplitter
Left = 200
Top = 0
Width = 4
Height = 392
ExplicitLeft = 208
end
object vtDoc: TVirtualStringTree
Left = 0
Top = 0
Width = 200
Height = 392
Align = alLeft
Header.AutoSizeIndex = 1
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, toRightClickSelect]
OnFocusChanged = vtDocFocusChanged
OnFreeNode = vtDocFreeNode
OnGetText = vtDocGetText
OnGetHint = vtDocGetHint
OnGetNodeDataSize = vtDocGetNodeDataSize
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 = 146
end>
DefaultText = ''
end
object mmTxt: TMemo
Left = 204
Top = 0
Width = 608
Height = 392
Align = alClient
ScrollBars = ssVertical
TabOrder = 1
end
end
end
object MainMenu: TMainMenu
AutoHotkeys = maManual
Left = 80
Top = 32
object miCollect: TMenuItem
Caption = #49688#51665'(&C)'
OnClick = miCollectClick
object miCollectStart: TMenuItem
Caption = #49688#51665' '#49884#51089'(&S)'
OnClick = miCollectStartClick
end
object miCollectStop: TMenuItem
Caption = #49688#51665' '#51333#47308'(&T)'
OnClick = miCollectStopClick
end
object N3: TMenuItem
Caption = '-'
end
object miCollectRecentDoc: TMenuItem
Caption = #52572#44540' '#50676#47536' '#47928#49436' '#49688#51665
OnClick = miCollectRecentDocClick
end
object N1: TMenuItem
Caption = '-'
end
object miExit: TMenuItem
Caption = #51333#47308'(&X)'
OnClick = miExitClick
end
end
object miView: TMenuItem
Caption = #48372#44592'(&V)'
OnClick = miViewClick
object miLoadData: TMenuItem
Caption = #49688#51665' '#51221#48372' '#54869#51064'(&C)'
OnClick = miLoadDataClick
end
object N2: TMenuItem
Caption = '-'
end
object miTrackingInfo: TMenuItem
Caption = #54868#47732#51221#48372' '#50976#52636' '#54869#51064
OnClick = miTrackingInfoClick
end
end
end
object TrayIcon: TTrayIcon
PopupMenu = popTray
Visible = True
OnDblClick = miOpenClick
Left = 80
Top = 88
end
object popTray: TPopupMenu
OnPopup = popTrayPopup
Left = 144
Top = 88
object miOpen: TMenuItem
Caption = #50676#44592'(&O)'
OnClick = miOpenClick
end
object N4: TMenuItem
Caption = '-'
end
object miCollectStart2: TMenuItem
Caption = #49688#51665' '#49884#51089'(&S)'
OnClick = miCollectStartClick
end
object miCollectStop2: TMenuItem
Caption = #49688#51665' '#51333#47308'(&T)'
OnClick = miCollectStopClick
end
object N5: TMenuItem
Caption = '-'
end
object miExit2: TMenuItem
Caption = #51333#47308'(&X)'
OnClick = miExitClick
end
end
end