home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 216
- Top = 71
- Width = 554
- Height = 593
- Caption = 'TmMailer demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 24
- Top = 8
- Width = 26
- Height = 13
- Caption = 'From:'
- end
- object Label2: TLabel
- Left = 24
- Top = 56
- Width = 159
- Height = 13
- Caption = 'Recipients (semicolon separated):'
- end
- object Label6: TLabel
- Left = 24
- Top = 104
- Width = 39
- Height = 13
- Caption = 'Subject:'
- end
- object Label7: TLabel
- Left = 24
- Top = 224
- Width = 27
- Height = 13
- Caption = 'Body:'
- end
- object Label3: TLabel
- Left = 24
- Top = 152
- Width = 63
- Height = 13
- Caption = 'Attachement:'
- end
- object Edit1: TEdit
- Left = 24
- Top = 24
- Width = 257
- Height = 21
- TabOrder = 0
- end
- object Edit2: TEdit
- Left = 24
- Top = 72
- Width = 505
- Height = 21
- TabOrder = 1
- end
- object Edit3: TEdit
- Left = 24
- Top = 120
- Width = 505
- Height = 21
- TabOrder = 2
- end
- object Memo1: TMemo
- Left = 24
- Top = 240
- Width = 505
- Height = 249
- TabOrder = 3
- end
- object Button1: TButton
- Left = 24
- Top = 504
- Width = 75
- Height = 25
- Caption = 'Send'
- TabOrder = 4
- OnClick = Button1Click
- end
- object CheckBox1: TCheckBox
- Left = 88
- Top = 223
- Width = 97
- Height = 17
- Caption = 'HTML'
- TabOrder = 5
- end
- object ListBox1: TListBox
- Left = 24
- Top = 168
- Width = 505
- Height = 49
- ItemHeight = 13
- TabOrder = 6
- end
- object Button2: TButton
- Left = 96
- Top = 147
- Width = 75
- Height = 19
- Caption = 'Add files'
- TabOrder = 7
- OnClick = Button2Click
- end
- object mMailer1: TmMailer
- Recipients = <>
- HTML = True
- About = 'Version 1.0, 2002 '#174' Mats Asplund, http://go.to/masdp'
- Left = 408
- Top = 40
- end
- object MainMenu1: TMainMenu
- Left = 328
- Top = 32
- object Setup1: TMenuItem
- Caption = 'Setup'
- OnClick = Setup1Click
- end
- end
- object OpenDialog1: TOpenDialog
- FileName = '*.*'
- Filter = 'All files|*.*'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
- Title = 'Add file'
- Left = 368
- Top = 24
- end
- end
-