BSOne.SFC/Tocsg.Module/MgWinFW/DMgWinFwMain.dfm

443 lines
12 KiB
Plaintext

object DlgMgWinFwMain: TDlgMgWinFwMain
Left = 0
Top = 0
Caption = 'MgWinFW'
ClientHeight = 476
ClientWidth = 713
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
TextHeight = 15
object pnTop: TPanel
Left = 0
Top = 0
Width = 713
Height = 53
Align = alTop
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 711
object btnFwRules: TSpeedButton
Left = 2
Top = 6
Width = 143
Height = 22
Caption = #48169#54868#48317' '#44508#52825' '#44032#51256#50724#44592
OnClick = btnFwRulesClick
end
object btnAddRule: TSpeedButton
Left = 168
Top = 5
Width = 89
Height = 22
Caption = #44508#52825#52628#44032'1'
OnClick = btnAddRuleClick
end
object SpeedButton1: TSpeedButton
Left = 263
Top = 5
Width = 89
Height = 22
Caption = #44508#52825#52628#44032'2'
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 390
Top = 5
Width = 89
Height = 22
Caption = #48169#54868#48317' '#51333#47308
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 485
Top = 5
Width = 89
Height = 22
Caption = #48169#54868#48317' '#54876#49457
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 580
Top = 5
Width = 89
Height = 22
Caption = #48169#54868#48317' '#49345#53468
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 168
Top = 33
Width = 89
Height = 22
Caption = #44508#52825#49325#51228'1'
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 263
Top = 33
Width = 89
Height = 22
Caption = #44508#52825#49325#51228'2'
OnClick = SpeedButton6Click
end
end
object pcMain: TPageControl
Left = 0
Top = 53
Width = 713
Height = 423
ActivePage = tabTheme
Align = alClient
TabOrder = 1
object tabInbound: TTabSheet
Caption = #51064#48148#50868#46300' '#44508#52825
object vtIn: TVirtualStringTree
Left = 0
Top = 0
Width = 705
Height = 393
Align = alClient
Colors.BorderColor = 4076331
Colors.DisabledColor = 9671571
Colors.DropMarkColor = 10592512
Colors.DropTargetColor = 10592512
Colors.DropTargetBorderColor = 10592512
Colors.FocusedSelectionColor = 10592512
Colors.FocusedSelectionBorderColor = 10592512
Colors.GridLineColor = 4076331
Colors.HeaderHotColor = clWhite
Colors.HotColor = clWhite
Colors.SelectionRectangleBlendColor = 10592512
Colors.SelectionRectangleBorderColor = 10592512
Colors.SelectionTextColor = clWhite
Colors.TreeLineColor = 9471874
Colors.UnfocusedColor = clSilver
Colors.UnfocusedSelectionColor = 4734003
Colors.UnfocusedSelectionBorderColor = 4734003
Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
ParentShowHint = False
ShowHint = True
TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnCompareNodes = vtInCompareNodes
OnFreeNode = vtInFreeNode
OnGetText = vtInGetText
OnGetHint = vtInGetHint
OnGetNodeDataSize = vtInGetNodeDataSize
OnHeaderClick = vtInHeaderClick
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 = 150
end
item
Position = 2
Text = #44536#47353
Width = 70
end
item
Position = 3
Text = #49444#47749
Width = 100
end
item
Position = 4
Text = #54532#47196#44536#47016' '#51060#47492
end
item
Position = 5
Text = #49436#48708#49828' '#51060#47492
Width = 100
end
item
Position = 6
Text = #47196#52972' '#51452#49548
end
item
Position = 7
Text = #50896#44201' '#51452#49548
end
item
Position = 8
Text = #47196#52972' '#54252#53944
Width = 70
end
item
Position = 9
Text = #50896#44201' '#54252#53944
Width = 70
end
item
Position = 10
Text = #51064#53552#54168#51060#49828' '#53440#51077
Width = 100
end
item
Position = 11
Text = 'IcmpTypesAndCodes'
end
item
Position = 12
Text = #49345#53468
Width = 60
end
item
Position = 13
Text = #54532#47196#54596
Width = 60
end
item
Position = 14
Text = #54532#47196#53664#53084
Width = 60
end>
DefaultText = ''
end
end
object tabOutbound: TTabSheet
Caption = #50500#50883#48148#50868#46300' '#44508#52825
ImageIndex = 1
object vtOut: TVirtualStringTree
Left = 0
Top = 0
Width = 705
Height = 393
Align = alClient
Colors.BorderColor = 4076331
Colors.DisabledColor = 9671571
Colors.DropMarkColor = 10592512
Colors.DropTargetColor = 10592512
Colors.DropTargetBorderColor = 10592512
Colors.FocusedSelectionColor = 10592512
Colors.FocusedSelectionBorderColor = 10592512
Colors.GridLineColor = 4076331
Colors.HeaderHotColor = clWhite
Colors.HotColor = clWhite
Colors.SelectionRectangleBlendColor = 10592512
Colors.SelectionRectangleBorderColor = 10592512
Colors.SelectionTextColor = clWhite
Colors.TreeLineColor = 9471874
Colors.UnfocusedColor = clSilver
Colors.UnfocusedSelectionColor = 4734003
Colors.UnfocusedSelectionBorderColor = 4734003
Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
HintMode = hmTooltip
ParentShowHint = False
ShowHint = True
TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnCompareNodes = vtInCompareNodes
OnFreeNode = vtInFreeNode
OnGetText = vtInGetText
OnGetHint = vtInGetHint
OnGetNodeDataSize = vtInGetNodeDataSize
OnHeaderClick = vtInHeaderClick
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 = 150
end
item
Position = 2
Text = #44536#47353
Width = 70
end
item
Position = 3
Text = #49444#47749
Width = 100
end
item
Position = 4
Text = #54532#47196#44536#47016' '#51060#47492
end
item
Position = 5
Text = #49436#48708#49828' '#51060#47492
Width = 100
end
item
Position = 6
Text = #47196#52972' '#51452#49548
end
item
Position = 7
Text = #50896#44201' '#51452#49548
end
item
Position = 8
Text = #47196#52972' '#54252#53944
Width = 70
end
item
Position = 9
Text = #50896#44201' '#54252#53944
Width = 70
end
item
Position = 10
Text = #51064#53552#54168#51060#49828' '#53440#51077
Width = 100
end
item
Position = 11
Text = 'IcmpTypesAndCodes'
end
item
Position = 12
Text = #49345#53468
Width = 60
end
item
Position = 13
Text = #54532#47196#54596
Width = 60
end
item
Position = 14
Text = #54532#47196#53664#53084
Width = 60
end>
DefaultText = ''
end
end
object tabTheme: TTabSheet
Caption = #53580#47560' '#50672#49845
ImageIndex = 2
object RadioButton1: TRadioButton
Left = 28
Top = 64
Width = 113
Height = 17
Caption = 'RadioButton1'
Checked = True
TabOrder = 0
TabStop = True
end
object cbStyles: TComboBox
Left = 16
Top = 16
Width = 177
Height = 23
Style = csDropDownList
TabOrder = 1
OnChange = cbStylesChange
end
object Memo1: TMemo
Left = 28
Top = 112
Width = 185
Height = 89
Lines.Strings = (
'Memo1')
ScrollBars = ssVertical
TabOrder = 2
end
object Edit1: TEdit
Left = 176
Top = 72
Width = 121
Height = 23
TabOrder = 3
Text = 'Edit1'
end
object GroupBox1: TGroupBox
Left = 303
Top = 16
Width = 185
Height = 137
Caption = 'GroupBox1'
TabOrder = 4
object CheckBox1: TCheckBox
Left = 32
Top = 32
Width = 97
Height = 17
Caption = 'CheckBox1'
Checked = True
State = cbChecked
TabOrder = 0
StyleName = 'Emerald'
end
object CheckBox2: TCheckBox
Left = 32
Top = 64
Width = 97
Height = 17
Caption = 'CheckBox2'
TabOrder = 1
end
object CheckBox3: TCheckBox
Left = 32
Top = 96
Width = 97
Height = 17
Caption = 'CheckBox3'
Checked = True
State = cbChecked
TabOrder = 2
end
end
object ProgressBar1: TProgressBar
Left = 296
Top = 200
Width = 265
Height = 17
Position = 50
TabOrder = 5
end
object RadioButton2: TRadioButton
Left = 32
Top = 88
Width = 113
Height = 17
Caption = 'RadioButton2'
TabOrder = 6
end
object ComboBox1: TComboBox
Left = 520
Top = 11
Width = 145
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 7
Text = #51204#52404' '#49345#53468
Items.Strings = (
#51204#52404' '#49345#53468
#51060#49345#54620' '#49345#53468
#44536#47088' '#49345#53468)
end
end
end
end