Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/rzcomps.exe/DEMO/MAILFRM.DF_/MAILFRM.DF/MAILFRM.txt

Text File | 1996-10-18 | 3KB | 164 lines

object FrmMail: TFrmMail
  Left = 211
  Top = 104
  BorderStyle = bsDialog
  Caption = 'Sending Mail with RzSendMessage'
  ClientHeight = 352
  ClientWidth = 386
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  Position = poScreenCenter
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 120
    Width = 36
    Height = 13
    Caption = 'Subject'
  end
  object Label2: TLabel
    Left = 8
    Top = 72
    Width = 18
    Height = 13
    Caption = 'TO:'
  end
  object Label3: TLabel
    Left = 216
    Top = 72
    Width = 17
    Height = 13
    Caption = 'CC:'
  end
  object RzLabel1: TRzLabel
    Left = 8
    Top = 4
    Width = 365
    Height = 41
    TextStyle = tsNormal
    AutoSize = False
    Caption =
      'This form demonstrates the RzSendMessage component.  Enter the e' +
      'mail addresses for all receipients, enter a subject and a messag' +
      'e, and select file attachments.  Press the Send button to send t' +
      'he message.'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object RzLabel2: TRzLabel
    Left = 8
    Top = 48
    Width = 359
    Height = 13
    TextStyle = tsNormal
    Caption =
      'NOTE:  The RzSendMessage requires a MAPI compliant messaging sys' +
      'tem.'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 228
    Width = 369
    Height = 85
    Caption = 'Attached Files'
    TabOrder = 4
    object LstFiles: TListBox
      Left = 8
      Top = 20
      Width = 269
      Height = 57
      ItemHeight = 13
      TabOrder = 0
    end
    object BtnBrowse: TButton
      Left = 284
      Top = 20
      Width = 75
      Height = 25
      Caption = '&Browse...'
      TabOrder = 1
      OnClick = BtnBrowseClick
    end
    object BtnRemove: TButton
      Left = 284
      Top = 52
      Width = 75
      Height = 25
      Caption = 'Remove'
      TabOrder = 2
      OnClick = BtnRemoveClick
    end
  end
  object EdtTO: TMemo
    Left = 56
    Top = 72
    Width = 133
    Height = 37
    TabOrder = 0
  end
  object EdtCC: TMemo
    Left = 240
    Top = 72
    Width = 137
    Height = 37
    TabOrder = 1
  end
  object EdtMessage: TMemo
    Left = 8
    Top = 144
    Width = 369
    Height = 77
    TabOrder = 3
  end
  object EdtSubject: TEdit
    Left = 56
    Top = 116
    Width = 321
    Height = 21
    TabOrder = 2
  end
  object BtnSend: TButton
    Left = 218
    Top = 320
    Width = 75
    Height = 25
    Caption = '&Send'
    TabOrder = 5
    OnClick = BtnSendClick
  end
  object BtnDone: TButton
    Left = 302
    Top = 320
    Width = 75
    Height = 25
    Caption = 'Done'
    ModalResult = 1
    TabOrder = 6
  end
  object Msg: TRzSendMessage
    MessageMemo = EdtMessage
    SubjectEdit = EdtSubject
    Left = 8
    Top = 316
  end
  object DlgOpen: TOpenDialog
    Filter = 'All Files (*.*)|*.*'
    Options = [ofPathMustExist, ofFileMustExist]
    Left = 40
    Top = 316
  end
end