home *** CD-ROM | disk | FTP | other *** search
- object frmMain: TfrmMain
- Left = 516
- Top = 268
- HelpContext = 18
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'SpamScan97'
- ClientHeight = 373
- ClientWidth = 279
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object plSpace: TPanel
- Left = 0
- Top = 351
- Width = 279
- Height = 2
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 3
- end
- object plDetails: TPanel
- Left = 0
- Top = 70
- Width = 279
- Height = 281
- Align = alClient
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWindow
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- object Label4: TLabel
- Left = 36
- Top = 7
- Width = 140
- Height = 13
- AutoSize = False
- Caption = 'Total messages found:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object Label5: TLabel
- Left = 36
- Top = 21
- Width = 140
- Height = 13
- AutoSize = False
- Caption = 'Processed messages:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object Label6: TLabel
- Left = 36
- Top = 35
- Width = 140
- Height = 13
- AutoSize = False
- Caption = 'Removed messages:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object smMsgRemoved: TLabel
- Left = 224
- Top = 35
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0'
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object smMsgProcessed: TLabel
- Left = 224
- Top = 21
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0'
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object smMsgTotal: TLabel
- Left = 224
- Top = 7
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0'
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object Label1: TLabel
- Left = 36
- Top = 57
- Width = 169
- Height = 13
- AutoSize = False
- Caption = 'Message Body Rules present:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object smBodyRules: TLabel
- Left = 224
- Top = 57
- Width = 32
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Check'
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object Label3: TLabel
- Left = 36
- Top = 71
- Width = 169
- Height = 13
- AutoSize = False
- Caption = 'Spam remove logging:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object smLogging: TLabel
- Left = 200
- Top = 71
- Width = 56
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Check'
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object Label8: TLabel
- Left = 36
- Top = 85
- Width = 57
- Height = 13
- AutoSize = False
- Caption = 'Log File:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object smLog: TLabel
- Left = 96
- Top = 85
- Width = 160
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Check'
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object Label7: TLabel
- Left = 36
- Top = 107
- Width = 137
- Height = 13
- AutoSize = False
- Caption = 'Spams removed to date:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlight
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object smMsgToDate: TLabel
- Left = 212
- Top = 107
- Width = 44
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0'
- ParentShowHint = False
- ShowAccelChar = False
- ShowHint = False
- Transparent = True
- end
- object plSharewareInfo: TPanel
- Left = 0
- Top = 130
- Width = 275
- Height = 147
- TabOrder = 8
- object Label9: TLabel
- Left = 4
- Top = 35
- Width = 268
- Height = 42
- AutoSize = False
- Caption =
- 'Thank you for trying SpamScan97(TM). Hopefully it is doing its j' +
- 'ob properly and provides you with a cleaner mailbox. '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object Label10: TLabel
- Left = 4
- Top = 88
- Width = 268
- Height = 45
- AutoSize = False
- Caption =
- 'If you are staisfied with our program please register it upon ex' +
- 'piration of your 30-day trial period. Detailed instructions on h' +
- 'ow to do so can be found in Help File'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object Bevel1: TBevel
- Left = 4
- Top = 25
- Width = 266
- Height = 6
- Shape = bsTopLine
- Style = bsRaised
- end
- object Label12: TLabel
- Left = 27
- Top = 7
- Width = 221
- Height = 15
- Alignment = taCenter
- AutoSize = False
- Caption = 'SpamScan97� for 32Bit Windows'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label13: TLabel
- Left = 28
- Top = 6
- Width = 221
- Height = 15
- Alignment = taCenter
- AutoSize = False
- Caption = 'SpamScan97� for 32Bit Windows'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- end
- object Panel1: TPanel
- Left = 17
- Top = 9
- Width = 12
- Height = 11
- BevelOuter = bvNone
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- end
- object Panel2: TPanel
- Left = 17
- Top = 23
- Width = 12
- Height = 11
- BevelOuter = bvNone
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- end
- object Panel3: TPanel
- Left = 17
- Top = 37
- Width = 12
- Height = 11
- BevelOuter = bvNone
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- end
- object HostIn: TPOP
- Left = 212
- Top = 12
- Width = 32
- Height = 32
- OnError = HostInError
- OnCancel = HostInCancel
- OnStateChanged = HostInStateChanged
- OnProtocolStateChanged = HostInProtocolStateChanged
- OnBusy = HostInBusy
- OnDocOutput = HostInDocOutput
- OnMessageSize = HostInMessageSize
- OnDelete = HostInDelete
- OnRefreshMessageCount = HostInRefreshMessageCount
- ControlData = {
- 17099619080000004F0300004F03000000000000000A0000003132372E302E30
- 2E31006E00000000000000000000000000010000000001000000001E000000A0}
- end
- object Panel5: TPanel
- Left = 17
- Top = 59
- Width = 12
- Height = 11
- BevelOuter = bvNone
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- end
- object Panel6: TPanel
- Left = 17
- Top = 73
- Width = 12
- Height = 11
- BevelOuter = bvNone
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = False
- TabOrder = 4
- end
- object Panel7: TPanel
- Left = 17
- Top = 87
- Width = 12
- Height = 11
- BevelOuter = bvNone
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = False
- TabOrder = 5
- end
- object Panel8: TPanel
- Left = 17
- Top = 109
- Width = 12
- Height = 11
- BevelOuter = bvNone
- BorderStyle = bsSingle
- ParentShowHint = False
- ShowHint = False
- TabOrder = 6
- end
- end
- object plMain: TPanel
- Left = 0
- Top = 0
- Width = 279
- Height = 70
- Align = alTop
- BevelOuter = bvNone
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- object Label2: TLabel
- Left = 48
- Top = 18
- Width = 101
- Height = 13
- Caption = 'Scanning the mailbox'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- Transparent = True
- end
- object smStatus: TLabel
- Left = 48
- Top = 33
- Width = 153
- Height = 13
- AutoSize = False
- Caption = 'Check Staus...'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- Transparent = True
- end
- object icRestart: TImage
- Left = 10
- Top = 15
- Width = 32
- Height = 32
- Cursor = crSQLWait
- Hint = 'Check again...'
- AutoSize = True
- Center = True
- Enabled = False
- ParentShowHint = False
- Picture.Data = {<image001.ico>}
- ShowHint = False
- OnClick = icRestartClick
- end
- object cbDetails: TBitBtn
- Left = 204
- Top = 35
- Width = 67
- Height = 25
- HelpContext = 18
- Caption = 'No Details'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnClick = cbDetailsClick
- Layout = blGlyphRight
- end
- object cbClose: TBitBtn
- Left = 204
- Top = 8
- Width = 67
- Height = 25
- Caption = 'Close'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- OnClick = cbCloseClick
- Layout = blGlyphRight
- Spacing = -1
- end
- end
- object plProgress: TPanel
- Left = 0
- Top = 353
- Width = 279
- Height = 20
- Align = alBottom
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Locked = True
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- object pbProgress: TProgressBar
- Left = 55
- Top = -1
- Width = 221
- Height = 18
- Min = 0
- Max = 6
- ParentShowHint = False
- Step = 1
- ShowHint = False
- TabOrder = 0
- end
- object Panel4: TPanel
- Left = 0
- Top = 0
- Width = 55
- Height = 16
- Caption = 'Progress:'
- TabOrder = 1
- end
- end
- object EventLog: TLogMan
- Enabled = True
- Heading.Strings = (
- '* SpamScan97(tm) Message Remove Log *'
- '* Date: %-27s*'
- '* Time: %-27s*'
- '* Alias: %-27s*')
- Mode = lmAppend
- Separator = '*'
- SeparatorLength = 40
- Shared = True
- Left = 154
- Top = 7
- end
- object lfSpeed: TLinkFile
- Enabled = True
- WndState = wsNormal
- Left = 154
- Top = 35
- end
- end
-