isafer_fwrule.~dfm

一款防火墙源码

object Form_FWRule: TForm_FWRule
  Left = 380
  Top = 147
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'iSafer - FireWall Rule Editor'
  ClientHeight = 428
  ClientWidth = 418
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '??'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object FWRule: TPageControl
    Left = 5
    Top = 6
    Width = 408
    Height = 385
    ActivePage = IpRulePage
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tab'
    Font.Style = []
    Images = RuleEditorImageList
    ParentFont = False
    TabOrder = 0
    object IpRulePage: TTabSheet
      Caption = 'IP Rule'
      object Panel_Top: TPanel
        Left = 0
        Top = 0
        Width = 400
        Height = 34
        Align = alTop
        Caption = 
          'Input IP Address/Port Range and permission to create a firewall ' +
          'rule'
        Color = clWhite
        TabOrder = 0
      end
      object GroupBox_IP: TGroupBox
        Left = 5
        Top = 40
        Width = 390
        Height = 129
        TabOrder = 1
        object Label_sIP: TLabel
          Left = 22
          Top = 80
          Width = 52
          Height = 12
          Caption = 'From IP: '
        end
        object Label_eIP: TLabel
          Left = 182
          Top = 80
          Width = 38
          Height = 12
          Caption = 'To IP: '
        end
        object Label_To1: TLabel
          Left = 152
          Top = 101
          Width = 9
          Height = 12
          Caption = '~'
        end
        object IPAddressFrom: TBevel
          Left = 19
          Top = 96
          Width = 116
          Height = 22
        end
        object IPAddressTo: TBevel
          Left = 166
          Top = 96
          Width = 116
          Height = 22
        end
        object Radio_IP_Single: TRadioButton
          Left = 14
          Top = 15
          Width = 289
          Height = 19
          Caption = 'Rule for single IP Address'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = Radio_IP_SingleClick
        end
        object Radio_IP_Range: TRadioButton
          Left = 14
          Top = 32
          Width = 289
          Height = 17
          Caption = 'Rule for a range of IP Addresses'
          TabOrder = 1
          OnClick = Radio_IP_RangeClick
        end
        object MaskEdit_sIP: TMaskEdit
          Left = 266
          Top = 26
          Width = 100
          Height = 20
          EditMask = '999.999.999.999;1; '
          ImeName = 'Microsoft Korean IME 2002'
          MaxLength = 15
          TabOrder = 2
          Text = '000.000.000.001'
          Visible = False
        end
        object MaskEdit_eIP: TMaskEdit
          Left = 259
          Top = 64
          Width = 114
          Height = 20
          EditMask = '999.999.999.999;1; '
          ImeName = 'Microsoft Korean IME 2002'
          MaxLength = 15
          TabOrder = 3
          Text = '255.255.255.255'
          Visible = False
        end
        object Radio_IP_All: TRadioButton
          Left = 14
          Top = 48
          Width = 289
          Height = 17
          Caption = 'Rule applied to all IP Addresses'
          TabOrder = 4
          OnClick = Radio_IP_AllClick
        end
      end
      object Radio_Access_Allow: TRadioButton
        Left = 174
        Top = 315
        Width = 217
        Height = 15
        Caption = 'Allow Access'
        Checked = True
        TabOrder = 2
        TabStop = True
      end
      object Radio_Access_Deny: TRadioButton
        Left = 175
        Top = 331
        Width = 217
        Height = 15
        Caption = 'Deny Access'
        TabOrder = 3
      end
      object GroupBox_Port: TGroupBox
        Left = 5
        Top = 176
        Width = 390
        Height = 129
        TabOrder = 4
        object Label_sPort: TLabel
          Left = 16
          Top = 80
          Width = 59
          Height = 12
          Caption = 'From Port:'
        end
        object Label_ePort: TLabel
          Left = 128
          Top = 80
          Width = 45
          Height = 12
          Caption = 'To Port:'
        end
        object Label_To2: TLabel
          Left = 112
          Top = 101
          Width = 9
          Height = 12
          Caption = '~'
        end
        object Radio_Port_Single: TRadioButton
          Left = 13
          Top = 16
          Width = 289
          Height = 17
          Caption = 'Rule for a single Port'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = Radio_Port_SingleClick
        end
        object Radio_Port_Range: TRadioButton
          Left = 13
          Top = 32
          Width = 289
          Height = 17
          Caption = 'Rule for a range of ports'
          TabOrder = 1
          OnClick = Radio_Port_RangeClick
        end
        object MaskEdit_sPort: TMaskEdit
          Left = 16
          Top = 96
          Width = 79
          Height = 20
          EditMask = '99999;1; '
          ImeName = 'Microsoft Korean IME 2002'
          MaxLength = 5
          TabOrder = 2
          Text = '00001'
        end
        object MaskEdit_ePort: TMaskEdit
          Left = 128
          Top = 96
          Width = 80
          Height = 20
          EditMask = '99999;1; '