statmain.dfm

Magenta Systems Internet Packet Monitoring Components are a set of Delphi components designed to cap

object StatForm: TStatForm
  Left = 42
  Top = 100
  Width = 1008
  Height = 640
  Caption = 
    'Magenta Systems Internet Packet Monitoring Components - Traffic ' +
    'Monitor using Raw Sockets and WinPcap - v1.1 31st October 2005'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1000
    Height = 96
    Align = alTop
    TabOrder = 0
    object LabelTraffic: TLabel
      Left = 300
      Top = 62
      Width = 33
      Height = 13
      Caption = 'Traffic:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 630
      Top = 5
      Width = 121
      Height = 13
      Caption = 'Ignore Traffic to/from IPs:'
      WordWrap = True
    end
    object Label2: TLabel
      Left = 755
      Top = 60
      Width = 236
      Height = 52
      Caption = 
        'Note: raw aockets may not capture from some '#13#10'network adaptors, ' +
        'or may be one way ony'
      WordWrap = True
    end
    object Label3: TLabel
      Left = 5
      Top = 5
      Width = 101
      Height = 13
      Caption = 'IP Address to Monitor'
    end
    object Label4: TLabel
      Left = 115
      Top = 5
      Width = 87
      Height = 13
      Caption = 'Adapter to Monitor'
    end
    object MonIpList: TListBox
      Left = 5
      Top = 20
      Width = 101
      Height = 71
      ItemHeight = 13
      TabOrder = 0
    end
    object doMonitor: TButton
      Left = 310
      Top = 10
      Width = 91
      Height = 25
      Caption = 'Start Monitor'
      TabOrder = 2
      OnClick = doMonitorClick
    end
    object doExit: TButton
      Left = 918
      Top = 10
      Width = 75
      Height = 25
      Caption = 'Exit'
      TabOrder = 9
      OnClick = doExitClick
    end
    object IgnoreLAN: TCheckBox
      Left = 754
      Top = 10
      Width = 162
      Height = 17
      Caption = 'Ignore LAN Traffic with Mask: '
      TabOrder = 7
    end
    object IpMask: TEdit
      Left = 810
      Top = 30
      Width = 97
      Height = 21
      TabOrder = 8
      Text = '255.255.255.0'
    end
    object IgnoreIPs: TMemo
      Left = 635
      Top = 25
      Width = 111
      Height = 61
      Lines.Strings = (
        '192.168.1.4'
        '192.168.1.255')
      ScrollBars = ssVertical
      TabOrder = 6
    end
    object UseWinPCap: TCheckBox
      Left = 300
      Top = 40
      Width = 121
      Height = 17
      Caption = 'Use WinPCap Driver'
      Enabled = False
      TabOrder = 3
      OnClick = UseWinPCapClick
    end
    object AdapterList: TListBox
      Left = 115
      Top = 20
      Width = 181
      Height = 71
      ItemHeight = 13
      TabOrder = 1
      OnClick = AdapterListClick
    end
    object IgnoreNonIp: TCheckBox
      Left = 510
      Top = 40
      Width = 121
      Height = 17
      Caption = 'Ignore Non-IP Traffic'
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 5
    end
    object Promiscuous: TCheckBox
      Left = 425
      Top = 40
      Width = 81
      Height = 17
      Caption = 'Promiscuous'
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 4
    end
    object doReport: TButton
      Left = 410
      Top = 10
      Width = 91
      Height = 25
      Caption = 'Report Traffic'
      TabOrder = 10
      OnClick = doReportClick
    end
    object AutoDisplay: TCheckBox
      Left = 510
      Top = 15
      Width = 121
      Height = 17
      Caption = 'Auto Update Display'
      Checked = True
      State = cbChecked
      TabOrder = 11
    end
  end
  object LogDestinations: TMemo
    Left = 0
    Top = 96
    Width = 1000
    Height = 517
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
    WordWrap = False
  end
  object Timer: TTimer
    OnTimer = TimerTimer
    Left = 55
    Top = 285
  end
end