isafer_fwrule.dfm

PSM firewall code(DELPHI)

object Form_FWRule: TForm_FWRule
  Left = 366
  Top = 127
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'iSafer - FireWall Rule Editor'
  ClientHeight = 535
  ClientWidth = 523
  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 = 15
  object FWRule: TPageControl
    Left = 6
    Top = 8
    Width = 510
    Height = 481
    ActivePage = IpRulePage
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    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 = 502
        Height = 43
        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 = 6
        Top = 50
        Width = 488
        Height = 161
        TabOrder = 1
        object Label_sIP: TLabel
          Left = 28
          Top = 100
          Width = 60
          Height = 17
          Caption = 'From IP: '
        end
        object Label_eIP: TLabel
          Left = 228
          Top = 100
          Width = 42
          Height = 17
          Caption = 'To IP: '
        end
        object Label_To1: TLabel
          Left = 190
          Top = 126
          Width = 9
          Height = 17
          Caption = '~'
        end
        object IPAddressFrom: TBevel
          Left = 24
          Top = 120
          Width = 145
          Height = 28
        end
        object IPAddressTo: TBevel
          Left = 208
          Top = 120
          Width = 145
          Height = 28
        end
        object Radio_IP_Single: TRadioButton
          Left = 18
          Top = 19
          Width = 361
          Height = 24
          Caption = 'Rule for single IP Address'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = Radio_IP_SingleClick
        end
        object Radio_IP_Range: TRadioButton
          Left = 18
          Top = 40
          Width = 361
          Height = 21
          Caption = 'Rule for a range of IP Addresses'
          TabOrder = 1
          OnClick = Radio_IP_RangeClick
        end
        object MaskEdit_sIP: TMaskEdit
          Left = 333
          Top = 33
          Width = 125
          Height = 25
          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 = 324
          Top = 80
          Width = 142
          Height = 25
          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 = 18
          Top = 60
          Width = 361
          Height = 21
          Caption = 'Rule applied to all IP Addresses'
          TabOrder = 4
          OnClick = Radio_IP_AllClick
        end
      end
      object Radio_Access_Allow: TRadioButton
        Left = 218
        Top = 394
        Width = 271
        Height = 19
        Caption = 'Allow Access'
        Checked = True
        TabOrder = 2
        TabStop = True
      end
      object Radio_Access_Deny: TRadioButton
        Left = 219
        Top = 414
        Width = 271
        Height = 19
        Caption = 'Deny Access'
        TabOrder = 3
      end
      object GroupBox_Port: TGroupBox
        Left = 6
        Top = 220
        Width = 488
        Height = 161
        TabOrder = 4
        object Label_sPort: TLabel
          Left = 20
          Top = 100
          Width = 70
          Height = 17
          Caption = 'From Port:'
        end
        object Label_ePort: TLabel
          Left = 160
          Top = 100
          Width = 52
          Height = 17
          Caption = 'To Port:'
        end
        object Label_To2: TLabel
          Left = 140
          Top = 126
          Width = 9
          Height = 17
          Caption = '~'
        end
        object Radio_Port_Single: TRadioButton
          Left = 16
          Top = 20
          Width = 362
          Height = 21
          Caption = 'Rule for a single Port'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = Radio_Port_SingleClick
        end
        object Radio_Port_Range: TRadioButton
          Left = 16
          Top = 40
          Width = 362
          Height = 21
          Caption = 'Rule for a range of ports'
          TabOrder = 1
          OnClick = Radio_Port_RangeClick
        end
        object MaskEdit_sPort: TMaskEdit
          Left = 20
          Top = 120
          Width = 99
          Height = 25
          EditMask = '99999;1; '
          ImeName = 'Microsoft Korean IME 2002'
          MaxLength = 5
          TabOrder = 2
          Text = '00001'
        end
        object MaskEdit_ePort: TMaskEdit
          Left = 160
          Top = 120
          Width = 100
          Height = 25
          EditMask = '99999;1; '