PC World Komputer 1998 July & August/Pcwk78a98.iso/E-MAIL/Spamex/sxsetup.exe/%MAINDIR%/spamex.exe/0/RCDATA/TFRMRULEWIZ/TFRMRULEWIZ.txt

Text File | 1998-01-09 | 12.8 KB | 530 lines

object frmRuleWiz: TfrmRuleWiz
  Left = 298
  Top = 213
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Rule Wizard'
  ClientHeight = 307
  ClientWidth = 495
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object EPWizard1: TEPWizard
    Left = 0
    Top = 0
    Width = 495
    Height = 307
    ActivePage = EPWizardPage1
    FirstPage = EPWizardPage1
    TabOrder = 0
    OnCancelClick = EPWizard1CancelClick
    OnFinishClick = EPWizard1FinishClick
    object EPWizardPage1: TEPWizardPage
      Left = 0
      Top = 0
      Width = 495
      Height = 265
      object Label1: TLabel
        Left = 208
        Top = 8
        Width = 243
        Height = 49
        AutoSize = False
        Caption =
          'This wizard will guide you through the process of creating the c' +
          'riteria by which messages will be considered SPAM.'
        WordWrap = True
      end
      object EPImage1: TEPImage
        Left = 8
        Top = 4
        Width = 139
        Height = 241
        BorderStyle = epbsStatus
        ParentColor = False
        Picture.Data = {<image000.bmp>}
        Style = episStretch
      end
      object Image1: TImage
        Left = 160
        Top = 12
        Width = 33
        Height = 37
        Picture.Data = {<image001.ico>}
      end
      object Label2: TLabel
        Left = 204
        Top = 56
        Width = 195
        Height = 13
        Caption = '&If mail meets the following criteria:'
        FocusControl = optList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 160
        Top = 56
        Width = 42
        Height = 13
        Caption = 'Step 1:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object EPBorder1: TEPBorder
        Left = 160
        Top = 72
        Width = 269
        Height = 5
        ParentColor = False
        BorderStyle = epbsHorizLine
      end
      object Label13: TLabel
        Left = 160
        Top = 148
        Width = 153
        Height = 13
        Caption = 'Special Spam Detection Options'
      end
      object Label16: TLabel
        Left = 160
        Top = 76
        Width = 144
        Height = 13
        Caption = 'Normal Spam Filtration Options'
      end
      object PanelSpamList: TPanel
        Left = 152
        Top = 200
        Width = 337
        Height = 61
        BevelOuter = bvNone
        TabOrder = 6
        object UrlLabel1: TUrlLabel
          Left = 20
          Top = 16
          Width = 290
          Height = 26
          Cursor = 5
          Caption =
            'Click here to submit a spammers address for Unisyn to include in' +
            ' future spam lists.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          Transparent = True
          WordWrap = True
          URL = 'http://www.unisyn.com/spamex/report/'
        end
      end
      object PanelHeader: TPanel
        Left = 172
        Top = 200
        Width = 313
        Height = 57
        BevelOuter = bvNone
        TabOrder = 7
        Visible = False
        object Label11: TLabel
          Left = 9
          Top = 12
          Width = 60
          Height = 13
          Caption = '&Mail Header:'
          FocusControl = edtHeaders
        end
        object edtHeaders: TComboBox
          Left = 8
          Top = 28
          Width = 245
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            'X-Advertisement'
            'X-Authentication-Warning'
            'X-Distribution: Bulk'
            'X-Distribution: Mass'
            'X-Distribution: Moderate'
            'X-Distribution: Bulk'
            'X-Mailer: Extractor'
            'X-Mailer: Floodgate'
            'X-Mailer: Group Mail'
            'X-Mailer: Millennium Mailer'
            'X-Sender: News Breaker')
          TabOrder = 0
        end
      end
      object PanelValue: TPanel
        Left = 172
        Top = 204
        Width = 305
        Height = 49
        BevelOuter = bvNone
        TabOrder = 5
        Visible = False
        object lblValue: TLabel
          Left = 9
          Top = 8
          Width = 83
          Height = 13
          Caption = 'Subject Contains:'
        end
        object edtValue: TComboBox
          Left = 8
          Top = 24
          Width = 245
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            '!!'
            '$$'
            '=='
            'CHANGE YOUR LIFE'
            'INCREDIBLE DEAL'
            'HUGE PROFIT'
            'MAKE MONEY'
            'CALL 800'
            'BULK'
            'LOTTERY'
            'MONEY FAST'
            'XXX')
          TabOrder = 0
        end
      end
      object PanelFrom: TPanel
        Left = 172
        Top = 200
        Width = 313
        Height = 49
        BevelOuter = bvNone
        TabOrder = 8
        object Label12: TLabel
          Left = 9
          Top = 12
          Width = 86
          Height = 13
          Caption = 'A&ddress / domain:'
          FocusControl = edtFrom
        end
        object edtFrom: TEdit
          Left = 8
          Top = 28
          Width = 245
          Height = 21
          TabOrder = 0
        end
      end
      object optAddress: TRadioButton
        Left = 176
        Top = 92
        Width = 269
        Height = 17
        Caption = 'From a certain e-mail address or domain'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = optAddressClick
      end
      object optUserDef: TRadioButton
        Left = 176
        Top = 110
        Width = 277
        Height = 17
        Caption = 'Subject contains'
        TabOrder = 1
        OnClick = optUserDefClick
      end
      object optList: TRadioButton
        Left = 176
        Top = 164
        Width = 285
        Height = 17
        Caption = 'From address matches Unisyn provided "Spammer List"'
        TabOrder = 3
        OnClick = optListClick
      end
      object optHeader: TRadioButton
        Left = 176
        Top = 129
        Width = 277
        Height = 17
        Caption = '&Headers contain'
        TabOrder = 2
        OnClick = optHeaderClick
      end
      object optFromNum: TRadioButton
        Left = 176
        Top = 184
        Width = 285
        Height = 17
        Caption = 'From an e-mail address with numbers for username'
        TabOrder = 4
        OnClick = optFromNumClick
      end
    end
    object EPWizardPage2: TEPWizardPage
      Left = 0
      Top = 0
      Width = 495
      Height = 265
      object EPImage2: TEPImage
        Left = 8
        Top = 4
        Width = 139
        Height = 241
        BorderStyle = epbsStatus
        PictureControl = EPImage1
        ParentColor = False
        Style = episStretch
      end
      object Label14: TLabel
        Left = 200
        Top = 4
        Width = 269
        Height = 33
        AutoSize = False
        Caption =
          'Please select actions for the mail message when this condition i' +
          's met.'
        WordWrap = True
      end
      object Label15: TLabel
        Left = 160
        Top = 40
        Width = 133
        Height = 13
        Caption = 'Step 2: &Choose actions'
        FocusControl = optDelete
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object EPBorder2: TEPBorder
        Left = 160
        Top = 56
        Width = 325
        Height = 5
        ParentColor = False
        BorderStyle = epbsHorizLine
      end
      object Image2: TImage
        Left = 160
        Top = 4
        Width = 33
        Height = 33
        Picture.Data = {<image002.ico>}
      end
      object EPBorder4: TEPBorder
        Left = 160
        Top = 165
        Width = 325
        Height = 8
        ParentColor = False
        BorderStyle = epbsHorizLine
      end
      object chkReply: TCheckBox
        Left = 160
        Top = 64
        Width = 305
        Height = 17
        Caption = 'Repl&y with message informing that you will not tolerate this'
        TabOrder = 0
        OnClick = chkReplyClick
      end
      object chkBeep: TCheckBox
        Left = 160
        Top = 140
        Width = 169
        Height = 17
        Caption = '&Notify me by beeping'
        TabOrder = 4
      end
      object optDelete: TRadioButton
        Left = 160
        Top = 176
        Width = 257
        Height = 17
        Caption = '&Remove the message from the server'
        Checked = True
        TabOrder = 5
        TabStop = True
        OnClick = optDeleteClick
      end
      object chkSave: TRadioButton
        Left = 160
        Top = 208
        Width = 317
        Height = 17
        Caption = '&Leave the message on server'
        TabOrder = 7
        OnClick = chkSaveClick
      end
      object chkAbuse: TCheckBox
        Left = 160
        Top = 100
        Width = 289
        Height = 17
        Caption = 'Repor&t the spammer to [e-mail]'
        TabOrder = 2
        OnClick = chkAbuseClick
      end
      object chkConfirm: TCheckBox
        Left = 184
        Top = 192
        Width = 177
        Height = 17
        Caption = 'Confirm &before deleting'
        TabOrder = 6
      end
      object chkSaveaCopy: TCheckBox
        Left = 160
        Top = 232
        Width = 309
        Height = 17
        Caption = '&Send a copy to the Windows Recycle Bin'
        State = cbChecked
        TabOrder = 8
      end
      object cmbReply: TComboBox
        Left = 232
        Top = 80
        Width = 201
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        Visible = False
      end
      object cmbReport: TComboBox
        Left = 232
        Top = 116
        Width = 201
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 3
        Visible = False
      end
    end
    object EPWizardPage3: TEPWizardPage
      Left = 0
      Top = 0
      Width = 495
      Height = 265
      Include = False
      object EPImage3: TEPImage
        Left = 8
        Top = 4
        Width = 139
        Height = 241
        BorderStyle = epbsStatus
        PictureControl = EPImage1
        ParentColor = False
        Style = episStretch
      end
      object Image3: TImage
        Left = 160
        Top = 12
        Width = 33
        Height = 37
        Picture.Data = {<image003.ico>}
      end
      object Label7: TLabel
        Left = 208
        Top = 4
        Width = 277
        Height = 41
        AutoSize = False
        Caption =
          'You can optionally retaliate on SPAMMERS, by utilizing a spam re' +
          'venge option.  '
        WordWrap = True
      end
      object Label8: TLabel
        Left = 160
        Top = 56
        Width = 182
        Height = 13
        Caption = 'Step 3: SPAM Revenge Options'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object EPBorder3: TEPBorder
        Left = 160
        Top = 76
        Width = 269
        Height = 5
        ParentColor = False
        BorderStyle = epbsHorizLine
      end
      object Label9: TLabel
        Left = 160
        Top = 204
        Width = 299
        Height = 39
        Caption =
          'WARNING:  Please be aware that these options can take up extraor' +
          'dinary amounts of bandwidth and should be reserved for only the ' +
          'worst cases or repeat offender spammers.'
        WordWrap = True
      end
      object GroupBox1: TGroupBox
        Left = 160
        Top = 84
        Width = 293
        Height = 109
        TabOrder = 0
        object Label10: TLabel
          Left = 136
          Top = 84
          Width = 71
          Height = 13
          Caption = 'mail messages.'
          Visible = False
        end
        object CheckBox4: TCheckBox
          Left = 12
          Top = 84
          Width = 73
          Height = 17
          Caption = 'Reply with '
          TabOrder = 0
          Visible = False
        end
      end
      object CheckBox3: TCheckBox
        Left = 168
        Top = 84
        Width = 225
        Height = 17
        Caption = 'Enable SPAM-revenge. (use with caution)'
        TabOrder = 1
      end
    end
  end
end