home *** CD-ROM | disk | FTP | other *** search
- object FormSendEMail: TFormSendEMail
- Left = 672
- Top = 226
- HelpContext = 415
- ActiveControl = EditTo
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Send E-Mail'
- ClientHeight = 421
- ClientWidth = 406
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 35
- Top = 9
- Width = 23
- Height = 13
- Caption = 'From'
- end
- object Label3: TLabel
- Left = 24
- Top = 85
- Width = 36
- Height = 13
- Caption = 'Subject'
- end
- object btnToList: TSpeedButton
- Left = 15
- Top = 31
- Width = 46
- Height = 20
- Caption = 'To'
- Flat = True
- Glyph.Data = {
- 76050000424D7605000000000000360400002800000011000000100000000100
- 08000000000040010000000000000000000000010000000000000000000000F8
- F800F8F800000000F800F8F8F800C8D0D0000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000050505050505
- 0505050505050505050505000000050505050505050505050505050505050500
- 0000050000000000000000000000000000000500000005000404040404000000
- 0404040404000500000005000400000000040004000000000000050000000500
- 0400040404000004040404000200050000000500040004000004000404040400
- 0000050000000500040004040404000004040400010005000000050004000404
- 0400000400000400000005000000050004000400000400000404040004000500
- 0000050004000404040000040000040000000500000005000400040000040004
- 0404040003000500000005000000040404000500040404000000050000000505
- 0500000000050505000000000505050000000505050505050505050505050505
- 0505050000000505050505050505050505050505050505000000}
- OnClick = GetAddresses
- end
- object Bevel1: TBevel
- Left = 0
- Top = 387
- Width = 406
- Height = 4
- Align = alBottom
- Shape = bsTopLine
- end
- object BtnCC: TSpeedButton
- Left = 15
- Top = 57
- Width = 46
- Height = 20
- Caption = 'CC'
- Flat = True
- Glyph.Data = {
- 76050000424D7605000000000000360400002800000011000000100000000100
- 08000000000040010000000000000000000000010000000000000000000000F8
- F800F8F800000000F800F8F8F800C8D0D0000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000050505050505
- 0505050505050505050505000000050505050505050505050505050505050500
- 0000050000000000000000000000000000000500000005000404040404000000
- 0404040404000500000005000400000000040004000000000000050000000500
- 0400040404000004040404000200050000000500040004000004000404040400
- 0000050000000500040004040404000004040400010005000000050004000404
- 0400000400000400000005000000050004000400000400000404040004000500
- 0000050004000404040000040000040000000500000005000400040000040004
- 0404040003000500000005000000040404000500040404000000050000000505
- 0500000000050505000000000505050000000505050505050505050505050505
- 0505050000000505050505050505050505050505050505000000}
- OnClick = GetAddresses
- end
- object Bevel2: TBevel
- Left = -1
- Top = 166
- Width = 409
- Height = 4
- Shape = bsBottomLine
- end
- object Panel1: TPanel
- Left = 0
- Top = 391
- Width = 406
- Height = 30
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 5
- DesignSize = (
- 406
- 30)
- object BtnSend: TButton
- Left = 237
- Top = 2
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Caption = 'Send'
- Default = True
- TabOrder = 0
- OnClick = BtnSendClick
- end
- object BtnClose: TButton
- Left = 317
- Top = 2
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = 'Close'
- TabOrder = 1
- OnClick = BtnCloseClick
- end
- object BtnHelp: TButton
- Left = 8
- Top = 2
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 2
- TabStop = False
- OnClick = BtnHelpClick
- end
- end
- object EditTo: TEdit
- Left = 64
- Top = 31
- Width = 337
- Height = 21
- TabOrder = 1
- end
- object EditSubject: TEdit
- Left = 64
- Top = 82
- Width = 337
- Height = 21
- TabOrder = 3
- end
- object EditCC: TEdit
- Left = 64
- Top = 57
- Width = 337
- Height = 21
- TabOrder = 2
- end
- object MemoMessage: TMemo
- Left = 1
- Top = 106
- Width = 401
- Height = 61
- TabOrder = 4
- end
- object cbFrom: TComboBox
- Left = 64
- Top = 6
- Width = 337
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = cbFromChange
- end
- object gbAttachSize: TGroupBox
- Left = 2
- Top = 170
- Width = 399
- Height = 49
- Caption = 'Picture attachments'
- TabOrder = 6
- object Label2: TLabel
- Left = 10
- Top = 31
- Width = 47
- Height = 13
- Caption = '(300x300)'
- end
- object Label4: TLabel
- Left = 89
- Top = 31
- Width = 47
- Height = 13
- Caption = '(600x600)'
- end
- object Label5: TLabel
- Left = 164
- Top = 31
- Width = 47
- Height = 13
- Caption = '(800x800)'
- end
- object LblCustomSize: TLabel
- Left = 234
- Top = 31
- Width = 66
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'LblCustomSize'
- end
- object rbSmall: TRadioButton
- Left = 10
- Top = 15
- Width = 58
- Height = 17
- Caption = 'Small'
- TabOrder = 0
- end
- object rbMedium: TRadioButton
- Left = 83
- Top = 15
- Width = 72
- Height = 17
- Caption = 'Medium'
- Checked = True
- TabOrder = 1
- TabStop = True
- end
- object rbLarge: TRadioButton
- Left = 163
- Top = 15
- Width = 63
- Height = 17
- Caption = 'Large'
- TabOrder = 2
- end
- object rbOriginal: TRadioButton
- Left = 321
- Top = 15
- Width = 64
- Height = 17
- Caption = 'Original'
- TabOrder = 3
- end
- object rbCustom: TRadioButton
- Left = 237
- Top = 15
- Width = 75
- Height = 17
- Caption = 'Custom'
- TabOrder = 4
- end
- end
- object Panel3: TPanel
- Left = 3
- Top = 222
- Width = 399
- Height = 165
- BevelOuter = bvLowered
- TabOrder = 7
- object ThumbView1: TThumbView
- Left = 1
- Top = 1
- Width = 397
- Height = 163
- Align = alClient
- TabOrder = 0
- AllowReordering = False
- AllowDragIn = True
- AllowDragOut = True
- TooltipFilename = False
- TooltipCaptions = False
- TooltipFilesize = False
- TooltipFiledate = False
- TooltipDimensions = False
- TooltipPicDate = False
- TooltipMergeDescr = False
- TooltipMergeDebug = False
- AllowDragMove = True
- end
- end
- object IdSMTP: TIdSMTP
- MaxLineAction = maException
- ReadTimeout = 0
- RecvBufferSize = 8192
- Port = 25
- AuthenticationType = atNone
- Top = 240
- end
- object IdMessage: TIdMessage
- AttachmentEncoding = 'MIME'
- BccList = <>
- CCList = <>
- Encoding = meMIME
- Recipients = <>
- ReplyTo = <>
- Top = 272
- end
- object Mapi1: TEmail
- DownLoadFirst = False
- NewSession = False
- UnreadOnly = False
- Top = 304
- end
- end
-