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

Text File | 1998-01-09 | 6.4 KB | 286 lines

object frmMain: TfrmMain
  Left = 286
  Top = 357
  BorderStyle = bsDialog
  Caption = 'Spam Exterminator'
  ClientHeight = 84
  ClientWidth = 175
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    Left = 28
    object mnuMC: TMenuItem
      Caption = 'Mail Client...'
      Visible = False
      OnClick = mnuMCClick
    end
    object N9: TMenuItem
      Caption = '-'
      Visible = False
    end
    object S1: TMenuItem
      Caption = 'Rule List (Start Here)...'
      OnClick = S1Click
    end
    object Q1: TMenuItem
      Caption = 'Quick &Add...'
      ShortCut = 16507
      OnClick = Q1Click
    end
    object C3: TMenuItem
      Caption = 'Check Mail Now...'
      ShortCut = 16505
      OnClick = C3Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object A2: TMenuItem
      Caption = 'Auto-Check'
      object D1: TMenuItem
        Caption = 'Enable Auto-Check'
        RadioItem = True
        OnClick = D1Click
      end
      object D2: TMenuItem
        Caption = 'Disable Auto-Check'
        RadioItem = True
        OnClick = D2Click
      end
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object P1: TMenuItem
      Caption = 'Preview Waiting Messages...'
      ShortCut = 16504
      OnClick = P1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object C2: TMenuItem
      Caption = 'Status...'
      OnClick = C2Click
    end
    object M1: TMenuItem
      Caption = 'Manage'
      object L1ff: TMenuItem
        Caption = 'Lists'
        object F1: TMenuItem
          Caption = 'My Friends...'
          OnClick = F1Click
        end
        object E1: TMenuItem
          Caption = 'Spammers...'
          OnClick = E1Click
        end
      end
      object ReplyReportMessages1: TMenuItem
        Caption = 'Reply / Report Messages...'
        OnClick = ReplyReportMessages1Click
      end
      object O1: TMenuItem
        Caption = 'Preferences...'
        OnClick = O1Click
      end
    end
    object H1: TMenuItem
      Caption = 'Help'
      object C4: TMenuItem
        Caption = 'Contents...'
        OnClick = C4Click
      end
      object H2: TMenuItem
        Caption = 'How to Order...'
        OnClick = H2Click
      end
      object T2: TMenuItem
        Caption = 'Tell a Friend About SpamEx...'
        OnClick = T2Click
      end
      object U1: TMenuItem
        Caption = 'Unisyn on the Web'
        object V1: TMenuItem
          Caption = 'Visit Unisyn...'
          OnClick = V1Click
        end
        object S3: TMenuItem
          Caption = 'Subscribe to UniNews Newsletter...'
          OnClick = S3Click
        end
        object C5: TMenuItem
          Caption = 'Contact Unisyn...'
          OnClick = C5Click
        end
        object O2: TMenuItem
          Caption = 'Other Great Products...'
          OnClick = O2Click
        end
        object B1: TMenuItem
          Caption = 'Buy Software...'
          OnClick = B1Click
        end
        object T1: TMenuItem
          Caption = 'Technical Support...'
          OnClick = T1Click
        end
        object N7: TMenuItem
          Caption = '-'
        end
        object R1: TMenuItem
          Caption = 'Report a Spammer to Unisyn...'
          OnClick = R1Click
        end
        object N3: TMenuItem
          Caption = '-'
        end
        object S2: TMenuItem
          Caption = 'SpamEx Home Page...'
          OnClick = S2Click
        end
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = 'About...'
        OnClick = A1Click
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object C1: TMenuItem
      Caption = 'Close...'
      OnClick = C1Click
    end
  end
  object POP: TmsRemotePOP
    WinsockLoaded = True
    RAS = agRas1
    DefaultPort = 110
    TimeOut = 120
    OnError = POPError
    OnNextInfoUpdated = POPNextInfoUpdated
    Left = 144
  end
  object agRas1: TagRas
    MinimizeAtConnect = True
    OnStatusChange = agRas1StatusChange
    Top = 28
  end
  object About: TEPAboutDialog
    Copyright = '1997,1998 Unisyn Software, LLC'
    Description = 'http://www.unisyn.com/spamex'
    Product = 'SPAM Exterminator Version 3.01'
    Left = 84
    Top = 28
  end
  object Timer1: TTimer
    Interval = 10000
    OnTimer = Timer1Timer
  end
  object SMTP: TmsSMTP
    WinsockLoaded = True
    RAS = agRas1
    DefaultPort = 25
    TimeOut = 120
    MailMessage = msMessage1
    Left = 56
    Top = 28
  end
  object msMessage1: TmsMessage
    ContentType = 'text/plain'
    ReturnReceipt = False
    Left = 116
    Top = 56
  end
  object tempMessage: TmsMessage
    ContentType = 'text/plain'
    ReturnReceipt = False
    Left = 144
    Top = 56
  end
  object EPHotKey1: TEPHotKey
    HotKey = 16504
    OnHotKey = EPHotKey1HotKey
    Left = 28
    Top = 56
  end
  object EPTrayIcon1: TEPTrayIcon
    Hint = 'Unisyn Spam Exterminator'
    Icon.Data = {<image001.ico>}
    PopupMenu = PopupMenu1
    Visible = True
    OnDblClick = EPTrayIcon1DblClick
    Left = 144
    Top = 28
  end
  object EPHotKey2: TEPHotKey
    HotKey = 16507
    OnHotKey = EPHotKey2HotKey
    Top = 56
  end
  object msMessageTell: TmsMessage
    ContentType = 'text/plain'
    ReturnReceipt = False
    Left = 84
    Top = 56
  end
  object SMTPTell: TmsSMTP
    WinsockLoaded = True
    RAS = agRas1
    DefaultPort = 25
    TimeOut = 120
    MailMessage = msMessageTell
    Left = 28
    Top = 28
  end
  object EPHotKey3: TEPHotKey
    HotKey = 16505
    OnHotKey = EPHotKey3HotKey
    Left = 56
    Top = 56
  end
  object ICONMAIL: TEPTrayIcon
    Hint = 'Mail notifier'
    Icon.Data = {<image002.ico>}
    PopupMenu = PopupMenu1
    OnClick = P1Click
    Left = 116
    Top = 28
  end
  object httpUpdate: TagHTTP
    WinsockLoaded = True
    RAS = agRas1
    DefaultPort = 80
    TimeOut = 120
    OnOpen = httpUpdateOpen
    OnProgress = httpUpdateProgress
    OnClosed = httpUpdateClosed
    OnError = httpUpdateError
    Left = 56
  end
  object POPPrev: TmsRemotePOP
    WinsockLoaded = True
    RAS = agRas1
    DefaultPort = 110
    TimeOut = 120
    OnError = POPError
    OnRetrieving = POPPrevRetrieving
    OnUpdatingInfo = POPPrevUpdatingInfo
    OnNextInfoUpdated = POPPrevNextInfoUpdated
    Left = 84
  end
end