PC World 1999 March/PCWorld_1999-03_cd.bin/TemaCD/MailWar/MailWarrior2.exe/0/RCDATA/TFRMGETMAIL/TFRMGETMAIL.txt

Text File | 1999-02-09 | 4KB | 176 lines

object frmGetMail: TfrmGetMail
  Left = 177
  Top = 145
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Receiving mail...'
  ClientHeight = 194
  ClientWidth = 329
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Nothing1: TImage
    Left = 78
    Top = 8
    Width = 34
    Height = 22
    AutoSize = True
    Picture.Data = {<image000.bmp>}
  end
  object Nothing2: TLabel
    Left = 118
    Top = 13
    Width = 132
    Height = 13
    Caption = 'Checking for new mail...'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Nothing4: TLabel
    Left = 8
    Top = 40
    Width = 90
    Height = 13
    Caption = '� Current account:'
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 0
    Top = 200
    Width = 329
    Height = 9
    Shape = bsTopLine
  end
  object lblCurrentAccount: TLabel
    Left = 104
    Top = 38
    Width = 217
    Height = 17
    AutoSize = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Layout = tlCenter
    WordWrap = True
  end
  object Nothing3: TGroupBox
    Left = 8
    Top = 64
    Width = 313
    Height = 89
    Caption = ' Status '
    TabOrder = 0
    object lblConnectionStatus: TLabel
      Left = 16
      Top = 20
      Width = 74
      Height = 13
      Caption = 'Not connected.'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lblOutput: TLabel
      Left = 16
      Top = 40
      Width = 119
      Height = 13
      Caption = 'Attempting to connect...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object pbMain: TProgressBar
      Left = 16
      Top = 64
      Width = 289
      Height = 17
      Min = 0
      Max = 100
      TabOrder = 0
      Visible = False
    end
  end
  object Button2: TButton
    Left = 92
    Top = 168
    Width = 73
    Height = 23
    Caption = '&Hide'
    TabOrder = 1
    OnClick = Button2Click
  end
  object btnShowErrors: TButton
    Left = 212
    Top = 168
    Width = 73
    Height = 23
    Caption = '&Errors ->'
    Enabled = False
    TabOrder = 2
    OnClick = btnShowErrorsClick
  end
  object lstErrors: TListBox
    Left = 8
    Top = 216
    Width = 313
    Height = 89
    ItemHeight = 13
    TabOrder = 3
  end
  object POP3: TSakPOP
    Port = '110'
    ErrorInFormatOfMsg = 'Error in message format'
    DecodeProgressStep = 10
    RetrieveProgressStep = 10
    OnQuit = POP3Quit
    OnError = POP3Error
    OnBeforeRetrieve = POP3BeforeRetrieve
    OnAfterRetrieve = POP3AfterRetrieve
    OnRetrieveProgress = POP3RetrieveProgress
    Left = 248
    Top = 104
  end
  object tmrCloseWindow: TTimer
    Enabled = False
    OnTimer = tmrCloseWindowTimer
    Left = 248
    Top = 8
  end
  object tmrGetMail: TTimer
    Enabled = False
    Interval = 20
    OnTimer = tmrGetMailTimer
    Left = 248
    Top = 56
  end
end