ipaddrfilter.dfm

传奇服务端全部源程序Delphi7版 2009新来的!!!!!!!!!

object frmIPaddrFilter: TfrmIPaddrFilter
  Left = 208
  Top = 240
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'IP Filtering'
  ClientHeight = 388
  ClientWidth = 774
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '??'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Label7: TLabel
    Left = 528
    Top = 350
    Width = 96
    Height = 17
    Caption = 'NickAKAVexus'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = '??'
    Font.Style = []
    ParentFont = False
  end
  object GroupBoxActive: TGroupBox
    Left = 10
    Top = 10
    Width = 171
    Height = 361
    Caption = 'Active'
    TabOrder = 0
    object Label4: TLabel
      Left = 10
      Top = 30
      Width = 57
      Height = 15
      Caption = 'Active IP'#39's:'
    end
    object ListBoxActiveList: TListBox
      Left = 10
      Top = 50
      Width = 151
      Height = 301
      Hint = '?????IP????'
      ItemHeight = 15
      Items.Strings = (
        '888.888.888.888')
      ParentShowHint = False
      PopupMenu = ActiveListPopupMenu
      ShowHint = True
      Sorted = True
      TabOrder = 0
    end
  end
  object GroupBox1: TGroupBox
    Left = 190
    Top = 10
    Width = 331
    Height = 361
    TabOrder = 1
    object LabelTempList: TLabel
      Left = 10
      Top = 30
      Width = 143
      Height = 15
      Caption = 'Temp Ban (This session):'
    end
    object Label1: TLabel
      Left = 170
      Top = 30
      Width = 89
      Height = 15
      Caption = 'Permanent Ban:'
    end
    object ListBoxTempList: TListBox
      Left = 10
      Top = 50
      Width = 151
      Height = 301
      Hint = '??????,??????IP???????,???????????????????'
      ItemHeight = 15
      Items.Strings = (
        '888.888.888.888')
      ParentShowHint = False
      PopupMenu = TempBlockListPopupMenu
      ShowHint = True
      Sorted = True
      TabOrder = 0
    end
    object ListBoxBlockList: TListBox
      Left = 170
      Top = 50
      Width = 151
      Height = 301
      Hint = '??????,??????IP???????,????????????,????????????????'
      ItemHeight = 15
      Items.Strings = (
        '888.888.888.888')
      ParentShowHint = False
      PopupMenu = BlockListPopupMenu
      ShowHint = True
      Sorted = True
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 530
    Top = 10
    Width = 231
    Height = 331
    Caption = 'IP Setting'
    TabOrder = 2
    object Label2: TLabel
      Left = 10
      Top = 25
      Width = 77
      Height = 15
      Caption = 'MaxConnects:'
    end
    object Label9: TLabel
      Left = 10
      Top = 55
      Width = 82
      Height = 15
      Caption = 'Client time out:'
    end
    object EditMaxConnect: TSpinEdit
      Left = 88
      Top = 20
      Width = 81
      Height = 24
      Hint = 'Max amount of times the ip can connect'
      EditorEnabled = False
      MaxValue = 1000
      MinValue = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Value = 50
      OnChange = EditMaxConnectChange
    end
    object GroupBox3: TGroupBox
      Left = 10
      Top = 230
      Width = 211
      Height = 91
      Caption = '????'
      TabOrder = 1
      object RadioAddBlockList: TRadioButton
        Left = 20
        Top = 60
        Width = 161
        Height = 21
        Hint = '?????IP????????,???IP?????????'
        Caption = 'Add Permanent Ban'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = RadioAddBlockListClick
      end
      object RadioAddTempList: TRadioButton
        Left = 20
        Top = 40
        Width = 161
        Height = 21
        Hint = '?????IP????????,???IP?????????'
        Caption = 'Add Temp list'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = RadioAddTempListClick
      end
      object RadioDisConnect: TRadioButton
        Left = 20
        Top = 20
        Width = 161
        Height = 21
        Caption = 'Disconnect?'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = RadioDisConnectClick
      end
    end
    object GroupBox4: TGroupBox
      Left = 10
      Top = 80
      Width = 211
      Height = 141
      TabOrder = 2
      object Label6: TLabel
        Left = 10
        Top = 55
        Width = 47
        Height = 15
        Caption = 'MaxSize:'
      end
      object Label8: TLabel
        Left = 10
        Top = 85
        Width = 59
        Height = 15
        Caption = 'MsgCount:'
      end
      object Label5: TLabel
        Left = 10
        Top = 25
        Width = 53
        Height = 15
        Caption = 'NomSize:'
      end
      object EditMaxSize: TSpinEdit
        Left = 80
        Top = 50
        Width = 81
        Height = 24
        EditorEnabled = False
        Increment = 10
        MaxValue = 10000
        MinValue = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Value = 6000
        OnChange = EditMaxSizeChange
      end
      object EditMaxClientMsgCount: TSpinEdit
        Left = 80
        Top = 80
        Width = 81
        Height = 24
        Hint = 'Number of messages the ip can send'
        EditorEnabled = False
        MaxValue = 100
        MinValue = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Value = 5
        OnChange = EditMaxClientMsgCountChange
      end
      object CheckBoxLostLine: TCheckBox
        Left = 80
        Top = 110
        Width = 121
        Height = 21
        Hint = '??????,?????????????????????????'
        BiDiMode = bdLeftToRight
        Caption = 'Lost line?'
        ParentBiDiMode = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = CheckBoxLostLineClick
      end
      object EditNomSize: TSpinEdit
        Left = 80
        Top = 20
        Width = 81
        Height = 24
        EditorEnabled = False
        Increment = 10
        MaxValue = 1000
        MinValue = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        Value = 100
        OnChange = EditNomSizeChange
      end
    end
    object EditClientTimeOutTime: TSpinEdit
      Left = 96
      Top = 50
      Width = 81
      Height = 24
      Hint = 'Client will time out after # of minutes'
      EditorEnabled = False
      MaxValue = 10
      MinValue = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Value = 5
      OnChange = EditClientTimeOutTimeChange
    end
  end
  object ButtonOK: TButton
    Left = 650
    Top = 350
    Width = 111
    Height = 31
    Caption = 'Ok(&O)'
    Default = True
    TabOrder = 3
    OnClick = ButtonOKClick
  end
  object BlockListPopupMenu: TPopupMenu
    OnPopup = BlockListPopupMenuPopup
    Left = 376
    Top = 160
    object BPOPMENU_REFLIST: TMenuItem
      Caption = 'Refresh(&R)'
      OnClick = BPOPMENU_REFLISTClick
    end
    object BPOPMENU_SORT: TMenuItem
      Caption = 'Sort(&S)'
      OnClick = BPOPMENU_SORTClick
    end
    object BPOPMENU_ADD: TMenuItem
      Caption = 'Add(&A)'
      OnClick = BPOPMENU_ADDClick
    end
    object BPOPMENU_ADDTEMPLIST: TMenuItem
      Caption = 'Add Temp(&A)'
      OnClick = BPOPMENU_ADDTEMPLISTClick
    end
    object BPOPMENU_DELETE: TMenuItem
      Caption = 'Delete(&D)'
      OnClick = BPOPMENU_DELETEClick
    end
  end
  object TempBlockListPopupMenu: TPopupMenu
    OnPopup = TempBlockListPopupMenuPopup
    Left = 216
    Top = 160
    object TPOPMENU_REFLIST: TMenuItem
      Caption = 'Refresh(&R)'
      OnClick = TPOPMENU_REFLISTClick
    end
    object TPOPMENU_SORT: TMenuItem
      Caption = 'Sort(&S)'
      OnClick = TPOPMENU_SORTClick
    end
    object TPOPMENU_ADD: TMenuItem
      Caption = 'Add(&A)'
      OnClick = TPOPMENU_ADDClick
    end
    object TPOPMENU_BLOCKLIST: TMenuItem
      Caption = 'Block(&D)'
      OnClick = TPOPMENU_BLOCKLISTClick
    end
    object TPOPMENU_DELETE: TMenuItem
      Caption = 'Delete(&D)'
      OnClick = TPOPMENU_DELETEClick
    end
  end
  object ActiveListPopupMenu: TPopupMenu
    OnPopup = ActiveListPopupMenuPopup
    Left = 32
    Top = 160
    object APOPMENU_REFLIST: TMenuItem
      Caption = 'Refresh(&R)'
      OnClick = APOPMENU_REFLISTClick
    end
    object APOPMENU_SORT: TMenuItem
      Caption = 'Sort(&S)'
      OnClick = APOPMENU_SORTClick
    end
    object APOPMENU_ADDTEMPLIST: TMenuItem
      Caption = 'Add Temp(&A)'
      OnClick = APOPMENU_ADDTEMPLISTClick
    end
    object APOPMENU_BLOCKLIST: TMenuItem
      Caption = 'Block(&D)'
      OnClick = APOPMENU_BLOCKLISTClick
    end
    object APOPMENU_KICK: TMenuItem
      Caption = 'Kick(&K)'
      OnClick = APOPMENU_KICKClick
    end
  end
end