Delphi 5 for Professionals/DELPHI5.iso/Info/Extras/NetManage/Demos/Simpmail/main.dfm/main.txt

Text File | 1997-01-29 | 10.3 KB | 431 lines

object MainForm: TMainForm
  Left = 288
  Top = 191
  AutoScroll = False
  Caption = 'SimpleMail'
  ClientHeight = 450
  ClientWidth = 417
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object SMTP1: TSMTP
    Left = 80
    Top = 192
    Width = 32
    Height = 32
    OnError = SMTP1Error
    OnStateChanged = SMTP1StateChanged
    OnDocInput = SMTP1DocInput
    OnVerify = SMTP1Verify
    ControlData = {
      2143341208000000E5020000E5020000050000006D61696C0019000000000000
      00000000000000}
  end
  object POP1: TPOP
    Left = 120
    Top = 192
    Width = 32
    Height = 32
    OnError = POP1Error
    OnStateChanged = POP1StateChanged
    OnProtocolStateChanged = POP1ProtocolStateChanged
    OnDocOutput = POP1DocOutput
    OnRefreshMessageCount = POP1RefreshMessageCount
    ControlData = {
      2143341208000000E5020000E50200000A0000003132372E302E302E31006E00
      0000000000000000000001000100000000010000000000000000}
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 9
    Width = 417
    Height = 441
    ActivePage = SendPage
    Align = alClient
    TabOrder = 2
    object SendPage: TTabSheet
      Caption = 'Send Mail'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 409
        Height = 105
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 36
          Top = 11
          Width = 16
          Height = 13
          Hint = 'Recipient'#39's name(s), comma delimited'
          Caption = 'To:'
          ParentShowHint = False
          ShowHint = True
        end
        object Label3: TLabel
          Left = 37
          Top = 36
          Width = 15
          Height = 13
          Hint = 'cc: name(s), comma delimited'
          Caption = 'cc:'
          ParentShowHint = False
          ShowHint = True
        end
        object Label2: TLabel
          Left = 13
          Top = 60
          Width = 39
          Height = 13
          Hint = 'Subject of this message'
          Caption = 'Subject:'
          ParentShowHint = False
          ShowHint = True
        end
        object eTo: TEdit
          Left = 56
          Top = 7
          Width = 249
          Height = 21
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
        end
        object eCC: TEdit
          Left = 56
          Top = 32
          Width = 249
          Height = 21
          TabOrder = 1
        end
        object eSubject: TEdit
          Left = 56
          Top = 54
          Width = 249
          Height = 21
          TabOrder = 2
        end
        object SendBtn: TButton
          Left = 313
          Top = 15
          Width = 88
          Height = 21
          Hint = 'Send message via SMTP'
          Caption = '&Send'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnClick = SendBtnClick
        end
        object ClearBtn: TButton
          Left = 313
          Top = 48
          Width = 88
          Height = 21
          Hint = 'Clear contents of all controls'
          Caption = '&Clear'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = ClearBtnClick
        end
        object cbSendFile: TCheckBox
          Left = 56
          Top = 80
          Width = 353
          Height = 17
          Hint = 'Send a text file along with the message'
          Caption = '&Attach Text File'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          OnClick = cbSendFileClick
        end
      end
      object reMessageText: TRichEdit
        Left = 0
        Top = 105
        Width = 409
        Height = 289
        Align = alClient
        Lines.Strings = (
          '')
        TabOrder = 1
      end
      object SMTPStatus: TStatusBar
        Left = 0
        Top = 394
        Width = 409
        Height = 19
        Panels = <>
        SimplePanel = True
      end
    end
    object RecvPage: TTabSheet
      Caption = 'Mail Box'
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 409
        Height = 49
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label9: TLabel
          Left = 8
          Top = 5
          Width = 76
          Height = 13
          Hint = 'Number of messages stored on the server'
          Caption = 'Message count:'
          ParentShowHint = False
          ShowHint = True
        end
        object lMessageCount: TLabel
          Left = 89
          Top = 5
          Width = 6
          Height = 13
          Caption = '0'
        end
        object Label10: TLabel
          Left = 8
          Top = 26
          Width = 83
          Height = 13
          Caption = 'Current Message:'
        end
        object eCurMessage: TEdit
          Left = 93
          Top = 22
          Width = 33
          Height = 21
          ReadOnly = True
          TabOrder = 0
          Text = '0'
        end
        object udCurMessage: TUpDown
          Left = 126
          Top = 22
          Width = 12
          Height = 21
          Hint = 'Browse messages in order'
          Associate = eCurMessage
          Min = 0
          Max = 0
          ParentShowHint = False
          Position = 0
          ShowHint = True
          TabOrder = 1
          Wrap = False
          OnClick = udCurMessageClick
        end
      end
      object mReadMessage: TMemo
        Left = 0
        Top = 49
        Width = 409
        Height = 345
        Align = alClient
        TabOrder = 1
      end
      object POPStatus: TStatusBar
        Left = 0
        Top = 394
        Width = 409
        Height = 19
        Panels = <>
        SimplePanel = True
      end
    end
    object ConPage: TTabSheet
      Caption = 'Connections'
      ParentShowHint = False
      ShowHint = True
      object GroupBox1: TGroupBox
        Left = 8
        Top = 96
        Width = 369
        Height = 105
        Hint = 'POP servers recieve and store internet mail'
        Caption = 'POP Server'
        TabOrder = 0
        object Label6: TLabel
          Left = 19
          Top = 21
          Width = 66
          Height = 13
          Hint = 'Host name or IP address of POP server'
          Caption = 'Host Address:'
          ParentShowHint = False
          ShowHint = True
        end
        object Label5: TLabel
          Left = 28
          Top = 50
          Width = 56
          Height = 13
          Hint = 'Your user name on the host machine'
          Caption = 'User Name:'
          ParentShowHint = False
          ShowHint = True
        end
        object Label4: TLabel
          Left = 33
          Top = 78
          Width = 49
          Height = 13
          Hint = 'Your password on the host machine'
          Caption = 'Password:'
          ParentShowHint = False
          ShowHint = True
        end
        object ePOPServer: TEdit
          Left = 88
          Top = 17
          Width = 185
          Height = 21
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          OnChange = ePOPServerChange
        end
        object eUserName: TEdit
          Left = 88
          Top = 46
          Width = 185
          Height = 21
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          OnChange = ePOPServerChange
        end
        object ePassword: TEdit
          Left = 88
          Top = 75
          Width = 185
          Height = 21
          ParentShowHint = False
          PasswordChar = '*'
          ShowHint = False
          TabOrder = 2
          OnChange = ePOPServerChange
        end
        object POPConnectBtn: TButton
          Left = 284
          Top = 43
          Width = 75
          Height = 25
          Hint = 'Connect to POP server'
          Caption = 'Connect'
          Enabled = False
          TabOrder = 3
          OnClick = POPConnectBtnClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 8
        Width = 369
        Height = 81
        Hint = 'SMTP servers send internet mail'
        Caption = 'SMTP Server'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        object Label7: TLabel
          Left = 18
          Top = 25
          Width = 66
          Height = 13
          Hint = 'Host name or IP address of SMTP server'
          Caption = 'Host Address:'
          ParentShowHint = False
          ShowHint = True
        end
        object Label8: TLabel
          Left = 8
          Top = 52
          Width = 76
          Height = 13
          Hint = 'Return address to use when sending SMTP mail'
          Caption = 'Return Address:'
          ParentShowHint = False
          ShowHint = True
        end
        object eSMTPServer: TEdit
          Left = 88
          Top = 21
          Width = 185
          Height = 21
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          OnChange = eSMTPServerChange
        end
        object SMTPConnectBtn: TButton
          Left = 283
          Top = 34
          Width = 75
          Height = 25
          Hint = 'Connect to SMTP Server'
          Caption = 'Connect'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnClick = SMTPConnectBtnClick
        end
        object eHomeAddr: TEdit
          Left = 88
          Top = 48
          Width = 185
          Height = 21
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          OnChange = eSMTPServerChange
        end
      end
      object ConnectStatus: TStatusBar
        Left = 0
        Top = 394
        Width = 409
        Height = 19
        Panels = <>
        SimplePanel = True
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 9
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
  end
  object OpenDialog: TOpenDialog
    Filter = 'Text Files (*.txt)|*.txt'
    Options = [ofFileMustExist]
    Left = 20
    Top = 276
  end
end