BSOne.SFC/Tocsg.Module/OutlookMon/DOutMonMain.dfm

313 lines
7.7 KiB
Plaintext

object DlgOutMonMain: TDlgOutMonMain
Left = 0
Top = 0
Caption = 'OutlookMon'
ClientHeight = 588
ClientWidth = 700
Color = clBtnFace
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Menu = MainMenu
Position = poScreenCenter
TextHeight = 15
object Splitter1: TSplitter
Left = 0
Top = 412
Width = 700
Height = 4
Cursor = crVSplit
Align = alBottom
ExplicitTop = 411
ExplicitWidth = 665
end
object pnTop: TPanel
Left = 0
Top = 0
Width = 700
Height = 163
Align = alTop
TabOrder = 0
ExplicitWidth = 696
DesignSize = (
700
163)
object btnSetPatterns: TSpeedButton
Left = 162
Top = 46
Width = 39
Height = 23
Caption = #54056#53556
OnClick = btnSetPatternsClick
end
object Label1: TLabel
Left = 479
Top = 76
Width = 72
Height = 15
Caption = 'MB '#51060#49345' '#52264#45800
end
object lbState: TLabel
Left = 600
Top = 0
Width = 95
Height = 20
Alignment = taRightJustify
Anchors = [akTop, akRight]
Caption = #49345#53468' '#54869#51064#51473' ....'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitLeft = 649
end
object chCollectSendMail: TCheckBox
Left = 16
Top = 16
Width = 257
Height = 17
Caption = #48372#45236#45716' '#54200#51648' '#49688#51665
Checked = True
State = cbChecked
TabOrder = 0
end
object chMailCttSch: TCheckBox
Left = 40
Top = 48
Width = 105
Height = 17
Caption = #44060#51064#51221#48372' '#54869#51064
Checked = True
State = cbChecked
TabOrder = 1
end
object chCollectAttach: TCheckBox
Left = 292
Top = 47
Width = 113
Height = 17
Caption = #52392#48512#54028#51068' '#49688#51665' :'
TabOrder = 2
end
object edCollectAttachPath: TEdit
Left = 401
Top = 44
Width = 279
Height = 23
TabOrder = 3
TextHint = #52392#48512#54028#51068#51060' '#51200#51109' '#46112' '#54260#45908#47484' '#51077#47141' '#54644#51452#49464#50836'.'
end
object chAttachLimit: TCheckBox
Left = 292
Top = 75
Width = 113
Height = 17
Caption = #52392#48512' '#53356#44592#51228#54620' :'
TabOrder = 4
end
object edAttachLimit: TEdit
Left = 401
Top = 73
Width = 72
Height = 23
Alignment = taRightJustify
NumbersOnly = True
TabOrder = 5
Text = '0'
end
object CheckBox6: TCheckBox
Left = 292
Top = 102
Width = 177
Height = 17
Caption = #44060#51064#51221#48372' '#44160#52636' '#49884' '#52264#45800
Enabled = False
TabOrder = 6
end
object chCollectRcvMail: TCheckBox
Left = 16
Top = 136
Width = 97
Height = 17
Caption = #48155#51008' '#54200#51648' '#49688#51665
Checked = True
State = cbChecked
TabOrder = 7
end
object cbCttSchProc: TComboBox
Left = 56
Top = 75
Width = 201
Height = 23
Style = csDropDownList
ItemIndex = 0
TabOrder = 8
Text = #44060#51064#51221#48372' '#48156#44204' '#49884' '#47560#49828#53433
Items.Strings = (
#44060#51064#51221#48372' '#48156#44204' '#49884' '#47560#49828#53433
#44060#51064#51221#48372' '#48156#44204' '#49884' '#45236#50857' '#51204#52404' '#52264#45800)
end
end
object vtList: TVirtualStringTree
Left = 0
Top = 163
Width = 700
Height = 249
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]
OnFocusChanged = vtListFocusChanged
OnFreeNode = vtListFreeNode
OnGetText = vtListGetText
OnGetHint = vtListGetHint
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 = #51333#47448
Width = 70
end
item
Position = 2
Text = #48372#45240' '#49324#46988
Width = 80
end
item
Position = 3
Text = #48155#45716' '#49324#46988
Width = 80
end
item
Position = 4
Text = #52280#51312
Width = 80
end
item
Position = 5
Text = #49704#51008' '#52280#51312
Width = 80
end
item
Position = 6
Text = #51228#47785
Width = 250
end
item
Position = 7
Text = #52392#48512' '#54028#51068
Width = 120
end
item
Position = 8
Text = #52392#48512' '#53356#44592
Width = 70
end
item
Position = 9
Text = #49688#49888' '#49884#44036
Width = 150
end>
end
object mmInfo: TMemo
Left = 0
Top = 416
Width = 700
Height = 172
Align = alBottom
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 2
ExplicitTop = 415
ExplicitWidth = 696
end
object MainMenu: TMainMenu
AutoHotkeys = maManual
Left = 496
Top = 136
object miSecu: TMenuItem
Caption = #48372#50504'(&S)'
OnClick = miSecuClick
object miAddIn: TMenuItem
Caption = 'Outlook '#54540#47084#44536#51064
object miAddInReg: TMenuItem
Caption = #49444#52824
OnClick = miAddInRegClick
end
object miAddInUnreg: TMenuItem
Caption = #51228#44144
OnClick = miAddInUnregClick
end
end
object N5: TMenuItem
Caption = '-'
end
object miActive: TMenuItem
Caption = 'Outlook '#48372#50504' '#49892#54665
OnClick = miActiveClick
end
object miDeactivce: TMenuItem
Caption = 'Outlook '#48372#50504' '#54644#51228
OnClick = miDeactivceClick
end
object N6: TMenuItem
Caption = '-'
end
object miExit: TMenuItem
Caption = #51333#47308'(&X)'
OnClick = miExitClick
end
end
end
object popFun: TPopupMenu
AutoHotkeys = maManual
Left = 360
Top = 272
object N1: TMenuItem
Caption = #47785#47197' '#52488#44592#54868
OnClick = N1Click
end
end
object tState: TTimer
Enabled = False
Interval = 500
OnTimer = tStateTimer
Left = 664
Top = 120
end
end