object frmEditRule: TfrmEditRule Left = 316 Top = 137 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsDialog Caption = 'Edit Rule' ClientHeight = 433 ClientWidth = 405 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnKeyPress = FormKeyPress PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 32 Width = 401 Height = 385 ActivePage = Conditions Style = tsFlatButtons TabIndex = 0 TabOrder = 0 object Conditions: TTabSheet Caption = 'Conditions' object gb1: TGroupBox Left = 0 Top = 0 Width = 393 Height = 337 Caption = 'Trigger conditions' TabOrder = 0 object Bevel1: TBevel Left = 1 Top = 120 Width = 390 Height = 9 Shape = bsTopLine end object Label1: TLabel Left = 16 Top = 24 Width = 291 Height = 13 Caption = 'Please choose conditions under which to trigger rule Actions.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsUnderline] ParentFont = False end object Label2: TLabel Left = 288 Top = 304 Width = 39 Height = 13 Caption = 'seconds' end object JonLine2: TJonLine Left = 39 Top = 80 Width = 33 Height = 20 Hint = '40' PenColor = clGray DrawLines = [lpLeft, lpBottom] end object Bevel2: TBevel Left = 1 Top = 164 Width = 390 Height = 4 Shape = bsTopLine end object Bevel3: TBevel Left = 1 Top = 287 Width = 390 Height = 9 Shape = bsTopLine end object Bevel5: TBevel Left = 1 Top = 240 Width = 390 Height = 9 Shape = bsTopLine end object rbAnyAddress: TRadioButton Left = 32 Top = 48 Width = 185 Height = 17 Caption = '&Any remote address' Checked = True TabOrder = 0 TabStop = True OnClick = rbAnyAddressClick end object rbAddrMustContain: TRadioButton Left = 32 Top = 72 Width = 185 Height = 17 BiDiMode = bdLeftToRight Caption = 'IP or Hostname must contai&n' ParentBiDiMode = False TabOrder = 1 OnClick = rbAnyAddressClick end object edtAddress: TEdit Left = 56 Top = 88 Width = 193 Height = 21 TabOrder = 2 OnClick = edtAddressClick end object chkMinConns: TCheckBox Left = 32 Top = 135 Width = 168 Height = 17 Caption = 'Minimum &connections required' TabOrder = 3 OnClick = chkMinConnsClick end object chkLport: TCheckBox Left = 32 Top = 177 Width = 137 Height = 20 Caption = '&Local Port must be' TabOrder = 5 OnClick = chkLportClick end object chkRport: TCheckBox Left = 32 Top = 205 Width = 129 Height = 17 Caption = '&Remote Port must be' TabOrder = 7 OnClick = chkRportClick end object edtLport: TEdit Left = 160 Top = 176 Width = 73 Height = 21 Enabled = False TabOrder = 6 OnKeyPress = edtLportKeyPress end object edtRport: TEdit Left = 160 Top = 202 Width = 73 Height = 21 Enabled = False TabOrder = 8 OnKeyPress = edtLportKeyPress end object chkTimeReq: TCheckBox Left = 32 Top = 304 Width = 177 Height = 17 Caption = 'Connection &present for at least' TabOrder = 11 OnClick = chkTimeReqClick end object spinTime: TRxSpinEdit Left = 211 Top = 301 Width = 70 Height = 21 MaxValue = 99999 MinValue = 1 Value = 120 Enabled = False TabOrder = 12 end object spinConns: TRxSpinEdit Left = 200 Top = 132 Width = 49 Height = 21 MaxValue = 999 MinValue = 1 Value = 1 Enabled = False TabOrder = 4 end object chkProcess: TCheckBox Left = 32 Top = 256 Width = 145 Height = 17 Caption = 'Process E&XE contains' TabOrder = 9 OnClick = chkProcessClick end object edtProcess: TEdit Left = 160 Top = 256 Width = 121 Height = 21 TabOrder = 10 end end end object Actions: TTabSheet Caption = 'Actions' ImageIndex = 1 object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 393 Height = 334 Caption = 'Actions to perform when conditions met' TabOrder = 0 object Bevel4: TBevel Left = 1 Top = 203 Width = 390 Height = 10 Shape = bsTopLine end object Label3: TLabel Left = 16 Top = 24 Width = 265 Height = 13 Caption = 'Please choose Actions to perform when conditions met.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsUnderline] ParentFont = False end object JonLine1: TJonLine Left = 22 Top = 225 Width = 25 Height = 24 PenColor = clGray DrawLines = [lpLeft, lpBottom] end object JonLine3: TJonLine Left = 22 Top = 280 Width = 33 Height = 25 PenColor = clGray DrawLines = [lpLeft, lpBottom] end object chkRunProg: TCheckBox Left = 32 Top = 48 Width = 113 Height = 17 Caption = 'Run &Program' TabOrder = 0 OnClick = chkRunProgClick end object chkOpenURL: TCheckBox Left = 32 Top = 114 Width = 97 Height = 17 Caption = 'Open &URL' TabOrder = 4 OnClick = chkOpenURLClick end object chkPlayWav: TCheckBox Left = 32 Top = 81 Width = 97 Height = 17 Caption = 'Play &WAV File' TabOrder = 2 OnClick = chkPlayWavClick end object chkKillConn: TCheckBox Left = 32 Top = 147 Width = 201 Height = 17 Caption = 'Attempt to &Kill the connection' TabOrder = 6 end object chkStartTrace: TCheckBox Left = 32 Top = 178 Width = 97 Height = 17 Caption = 'Start &Tracing' TabOrder = 7 end object chkShowMessage: TCheckBox Left = 16 Top = 216 Width = 249 Height = 17 Caption = 'Pop up Alert window with &Message:' TabOrder = 8 OnClick = chkShowMessageClick end object edtMsg: TEdit Left = 40 Top = 240 Width = 345 Height = 21 Enabled = False TabOrder = 9 end object chkEmail: TCheckBox Left = 16 Top = 272 Width = 169 Height = 17 Caption = 'Send &Email notification to' TabOrder = 10 OnClick = chkEmailClick end object edtRunProg: TFilenameEdit Left = 120 Top = 48 Width = 265 Height = 21 Filter = 'Programs (*.EXE, *.COM, *.BAT)|*.exe; *.bat; *.com|All files (*.' + '*)|*.*' Enabled = False NumGlyphs = 1 TabOrder = 1 end object edtPlayWav: TFilenameEdit Left = 120 Top = 81 Width = 265 Height = 21 Filter = 'WAV File (*.WAV)|*.wav|MP3 File (*.MP3)|*.mp3|All files (*.*)|*.' + '*' Enabled = False NumGlyphs = 1 TabOrder = 3 end object edtOpenURL: TEdit Left = 120 Top = 114 Width = 265 Height = 21 Enabled = False TabOrder = 5 Text = 'http://' end object edtEmails: TEdit Tag = 1 Left = 40 Top = 296 Width = 345 Height = 21 Enabled = False TabOrder = 11 Text = 'email1@domain.com; email2@domain.com' OnClick = edtEmailsClick end end end end object Panel1: TPanel Left = 0 Top = 0 Width = 405 Height = 29 Align = alTop BevelOuter = bvLowered Color = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object header: TLabel Left = 13 Top = 6 Width = 77 Height = 16 Caption = 'Edit Rule #1' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end end object btnOK: TButton Left = 8 Top = 400 Width = 75 Height = 25 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 2 OnClick = btnOKClick end object btnCancel: TButton Left = 96 Top = 400 Width = 75 Height = 25 Caption = 'C&ancel' ModalResult = 2 TabOrder = 3 OnClick = btnCancelClick end end