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

Text File | 1999-02-09 | 6KB | 275 lines

object frmSendMail: TfrmSendMail
  Left = 261
  Top = 172
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Mail Warrior - Sending mail...'
  ClientHeight = 226
  ClientWidth = 303
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 6
    Width = 81
    Height = 13
    Caption = 'Sending mail...'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Image2: TImage
    Left = 8
    Top = 6
    Width = 35
    Height = 49
    AutoSize = True
    Picture.Data = {<image000.bmp>}
    Transparent = True
  end
  object Label2: TLabel
    Left = 48
    Top = 24
    Width = 249
    Height = 25
    AutoSize = False
    Caption =
      'Please wait while Mail Warrior is sending your e-mail to it'#39's re' +
      'ceipiants.'
    Transparent = True
    WordWrap = True
  end
  object Bevel1: TBevel
    Left = 8
    Top = 232
    Width = 289
    Height = 9
    Shape = bsTopLine
  end
  object Label3: TLabel
    Left = 8
    Top = 64
    Width = 90
    Height = 13
    Caption = '� Current account:'
    Transparent = True
  end
  object lblCurrentAccount: TLabel
    Left = 104
    Top = 64
    Width = 193
    Height = 17
    AutoSize = False
    Caption = 'No account in use'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 88
    Width = 289
    Height = 102
    Caption = ' Status '
    TabOrder = 0
    object lblCurrentOperation: TLabel
      Left = 8
      Top = 56
      Width = 273
      Height = 13
      AutoSize = False
      Caption = 'No operation in progress'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lblConnectionStatus: TLabel
      Left = 8
      Top = 16
      Width = 74
      Height = 13
      Caption = 'Not connected.'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnClick = lblConnectionStatusClick
    end
    object pbMain: TProgressBar
      Left = 8
      Top = 76
      Width = 273
      Height = 17
      Min = 0
      Max = 100
      TabOrder = 0
      Visible = False
    end
    object Panel1: TPanel
      Left = 8
      Top = 36
      Width = 265
      Height = 17
      BevelOuter = bvNone
      FullRepaint = False
      TabOrder = 1
      object Label10: TLabel
        Left = 0
        Top = 0
        Width = 94
        Height = 17
        Align = alLeft
        Caption = 'Sending message #'
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lblCurrentMsg: TLabel
        Left = 94
        Top = 0
        Width = 6
        Height = 17
        Align = alLeft
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 100
        Top = 0
        Width = 82
        Height = 17
        Align = alLeft
        Caption = ' out of a total of '
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object lblMsgCount: TLabel
        Left = 182
        Top = 0
        Width = 6
        Height = 17
        Align = alLeft
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 188
        Top = 0
        Width = 4
        Height = 17
        Align = alLeft
        Caption = '.'
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object Button1: TButton
    Left = 96
    Top = 200
    Width = 73
    Height = 23
    Caption = '&Hide'
    TabOrder = 1
    OnClick = Button1Click
  end
  object btnShowErrors: TButton
    Left = 216
    Top = 200
    Width = 73
    Height = 23
    Caption = '&Errors ->'
    Enabled = False
    TabOrder = 2
    OnClick = btnShowErrorsClick
  end
  object lstErrors: TListBox
    Left = 8
    Top = 240
    Width = 289
    Height = 81
    ItemHeight = 13
    TabOrder = 3
  end
  object SMTP: TSakSMTP
    Port = '25'
    EncodeProgressStep = 10
    SendProgressStep = 10
    OnConnect = SMTPConnect
    OnQuit = SMTPQuit
    OnError = SMTPError
    OnBeforeSend = SMTPBeforeSend
    OnAfterSend = SMTPAfterSend
    OnSendProgress = SMTPSendProgress
    Left = 88
    Top = 160
  end
  object tmrCloseWindow: TTimer
    Enabled = False
    OnTimer = tmrCloseWindowTimer
    Left = 24
    Top = 160
  end
  object tmrSendMail: TTimer
    Enabled = False
    Interval = 20
    OnTimer = tmrSendMailTimer
    Left = 136
    Top = 160
  end
  object SakMsg: TSakMsg
    Left = 216
    Top = 40
  end
end