Hot Shareware 35/hot35.iso/ficheros/9UTI/K_SYNCH.ZIP/K-SYNCH.EXE/0/RCDATA/TSMTPTESTFORM/TSMTPTESTFORM.txt

Text File | 1998-04-28 | 4KB | 189 lines

object SmtpTestForm: TSmtpTestForm
  Left = 187
  Top = 188
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'K-Synch - Send Mail'
  ClientHeight = 260
  ClientWidth = 466
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MsgMemo: TMemo
    Left = 0
    Top = 109
    Width = 466
    Height = 121
    Align = alTop
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object DisplayMemo: TMemo
    Left = 0
    Top = 237
    Width = 466
    Height = 23
    Align = alClient
    Lines.Strings = (
      'DisplayMemo')
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 466
    Height = 109
    Align = alTop
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 55
      Height = 13
      Caption = 'SMTP Host'
    end
    object Label2: TLabel
      Left = 48
      Top = 35
      Width = 23
      Height = 13
      Caption = 'From'
    end
    object Subject: TLabel
      Left = 35
      Top = 62
      Width = 36
      Height = 13
      Caption = 'Subject'
    end
    object Label5: TLabel
      Left = 4
      Top = 92
      Width = 66
      Height = 13
      Caption = 'Message text:'
    end
    object Wait1: TWait
      Left = 336
      Top = 10
      Width = 109
      Height = 21
      Caption = '60'
      ModalResult = 0
      Interval = 1000
      IsControl = True
    end
    object HostEdit: TEdit
      Left = 80
      Top = 10
      Width = 239
      Height = 21
      Hint = 'Your SMTP Account Name'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'SMTP.youraccount.com'
    end
    object FromEdit: TEdit
      Left = 80
      Top = 35
      Width = 239
      Height = 21
      Hint = 'Your Name'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = '[e-mail]'
    end
    object MailButton: TButton
      Left = 336
      Top = 36
      Width = 109
      Height = 25
      Hint = 'Send EMail'
      Caption = 'Send &Mail'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = MailButtonClick
    end
    object SubjectEdit: TEdit
      Left = 80
      Top = 60
      Width = 239
      Height = 21
      Hint = 'Subject'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = 'K-Synch Feedback'
    end
    object SendData: TCheckBox95
      Left = 174
      Top = 87
      Width = 115
      Height = 19
      Hint = 'Send Pgm Data (Useful With Bug Reports)'
      Caption = 'Send Program Data'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 5
      WordWrap = True
    end
    object Button1: TButton
      Left = 336
      Top = 66
      Width = 109
      Height = 19
      Caption = '&Cancel'
      TabOrder = 6
      OnClick = Button1Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 230
    Width = 466
    Height = 7
    Align = alTop
    TabOrder = 3
    Visible = False
    object Label7: TLabel
      Left = 16
      Top = 2
      Width = 71
      Height = 13
      Caption = 'Info messages:'
    end
  end
  object SmtpClient: TSmtpClient
    Tag = 0
    Port = 'smtp'
    Wait = Wait1
    CharSet = 'iso-8859-1'
    TimeOut = 15
    OnDisplay = SmtpClientDisplay
    OnGetData = SmtpClientGetData
    OnHeaderLine = SmtpClientHeaderLine
    Left = 52
    Top = 226
  end
end