object frmEmail: TfrmEmail Left = 22 Top = 28 Width = 357 Height = 371 BorderIcons = [biSystemMenu, biHelp] Caption = 'Send Email' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object pnlEmail: TPanel Left = 0 Top = 0 Width = 349 Height = 344 Align = alClient BevelOuter = bvNone TabOrder = 0 object pnlFrom: TPanel Left = 0 Top = 0 Width = 349 Height = 25 HelpContext = 1501 Align = alTop BevelInner = bvLowered BevelOuter = bvNone Caption = 'pnlFrom' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 0 object lblFrom: TLabel Left = 17 Top = 5 Width = 32 Height = 15 Caption = 'From:' end object edtFrom: TEdit Left = 68 Top = 2 Width = 245 Height = 22 HelpContext = 1501 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 0 OnKeyPress = edtFromKeyPress end end object pnlTo: TPanel Left = 0 Top = 25 Width = 349 Height = 25 HelpContext = 1502 Align = alTop BevelInner = bvLowered BevelOuter = bvNone Caption = 'pnlTo' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 1 object lblTo: TLabel Left = 16 Top = 5 Width = 17 Height = 15 Caption = 'To:' end object btnEmailAddress: TSpeedButton Left = 316 Top = 2 Width = 19 Height = 19 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777070777777777777070F07777777777070FFF077777777070FCF FF0777777070FCFC91F07777070FCFCF110D000070FFFCFFF000070807077777 00300B30000000000330070FBFBFBFBFB03000FBFBFBFBFBFB00000000000000 0000777777777777777777777777777777777777777777777777} OnClick = btnEmailAddressClick end object edtTo: TEdit Left = 68 Top = 2 Width = 245 Height = 22 HelpContext = 1502 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] HideSelection = False ParentFont = False TabOrder = 0 OnKeyPress = edtFromKeyPress end end object pnlSubject: TPanel Left = 0 Top = 50 Width = 349 Height = 25 HelpContext = 1503 Align = alTop BevelInner = bvLowered BevelOuter = bvNone Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 2 object lblSubject: TLabel Left = 16 Top = 5 Width = 44 Height = 15 Caption = 'Subject:' end object edtSubject: TEdit Left = 68 Top = 2 Width = 245 Height = 22 HelpContext = 1503 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 0 OnKeyPress = edtFromKeyPress end end object barMail: TSpeedBar Left = 0 Top = 75 Width = 33 Height = 269 HelpContext = 1507 Align = alLeft Options = [sbAllowDrag, sbAllowResize, sbFlatBtns, sbGrayedBtns] BtnOffsetHorz = 4 BtnOffsetVert = 4 BtnWidth = 25 BtnHeight = 25 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 4 InternalVer = 1 object secMail: TSpeedbarSection Caption = 'Mail Menu' end object btnESend: TSpeedItem Caption = 'Send Email' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 000037777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF7777BBF FFF07F333777777F3FF70FFFFFFFB9BF1CC07F3FFF337F7377770F777FFFB99B C1C07F7773337F377F370FFFFFFFB9BBC1C07FFFFFFF7F337FF700000077B999 B000777777777F33777733337377B9999B33333F733373F337FF3377377B99BB 9BB33377F337F377377F3737377B9B79B9B737F73337F7F7F37F33733777BB7B BBB73373333377F37F3737333777BB777B9B3733333377F337F7333333777B77 77BB3333333337333377333333333777337B33333333333333370000} Hint = 'Send email' NumGlyphs = 2 Spacing = 1 Left = 4 Top = 9 Visible = True OnClick = btnESendClick SectionName = 'Mail Menu' end object btnEText: TSpeedItem Caption = 'Enter Text In Email' GroupIndex = 1 Down = True Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF 77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF 00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF 00333333337FFFFF7733333333000000033333333377777773330000} Hint = 'Enter text in email' NumGlyphs = 2 Spacing = 1 Left = 4 Top = 44 Visible = True OnClick = btnETextClick SectionName = 'Mail Menu' end object btnEAttach: TSpeedItem Caption = 'Attach File To Email' GroupIndex = 1 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF 77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0BBBBB BBB07F333F7F3FF33FF70FFF700B00BB00B07F3F777F77F377370F707F0BB0B0 0BB07F77337F37F77337007EEE0BB0B0BBB077FFFF7F37F7F3370777770EE000 EEE07777777F3777F3F7307EEE0E0E00E0E03773FF7F7377F73733707F0EE000 0EE03337737F377773373333700EEE00EEE03333377F3377FF373333330EEEE0 0EE03333337F33377F373333330EEEE00EE03333337F333773373333330EEEEE EEE03333337FFFFFFFF7333333000000000033333377777777770000} Hint = 'Attach file to email...' NumGlyphs = 2 Spacing = 1 Left = 4 Top = 69 Visible = True OnClick = btnEAttachClick SectionName = 'Mail Menu' end end object pnlAttach: TPanel Left = 33 Top = 75 Width = 316 Height = 269 Align = alClient BevelOuter = bvNone Caption = 'pnlAttach' TabOrder = 5 object barAttachments: TSpeedBar Left = 0 Top = 0 Width = 316 Height = 33 HelpContext = 1506 Options = [sbAllowDrag, sbAllowResize, sbFlatBtns, sbGrayedBtns] BtnOffsetHorz = 4 BtnOffsetVert = 4 BtnWidth = 25 BtnHeight = 25 BevelInner = bvLowered BevelOuter = bvNone Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] ParentFont = False TabOrder = 0 InternalVer = 1 object secAttach: TSpeedbarSection Caption = 'File Menu' end object btnAddAttach: TSpeedItem Caption = 'Add Attachment To Email' Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000000000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF F000FFFFFFFFFFFFF000FFFFF000FFFFF000FFFFF0F0FFFFF000FFFFF0F0FFFF F000FF0000F0000FF000FF0FFFFFFF0FF000FF0000F0000FF000FFFFF0F0FFFF F000FFFFF0F0FFFFF000FFFFF000FFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF F000} Hint = 'Add attachment to email' Spacing = 1 Left = 34 Top = 4 Visible = True OnClick = btnAddAttachClick SectionName = 'File Menu' end object btnRemAttach: TSpeedItem Caption = 'Remove Highlighted Attachment' Glyph.Data = { DE000000424DDE0000000000000076000000280000000D0000000D0000000100 0400000000000000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF F000FF000000000FF000FF0FFFFFFF0FF000FF000000000FF000FFFFFFFFFFFF F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF F000} Hint = 'Remove highlighted attachment' Spacing = 1 Left = 9 Top = 4 Visible = True OnClick = btnRemAttachClick SectionName = 'File Menu' end end object lstAttach: TListBox Left = 0 Top = 33 Width = 316 Height = 236 HelpContext = 1505 Align = alClient ItemHeight = 18 Style = lbOwnerDrawFixed TabOrder = 1 TabWidth = 20 Visible = False OnDrawItem = lstAttachDrawItem end end object mmoBody: TRichEdit Left = 33 Top = 75 Width = 316 Height = 269 HelpContext = 1504 Align = alClient PlainText = True ScrollBars = ssVertical TabOrder = 3 end object lstAddress: TListBox Left = 194 Top = 196 Width = 121 Height = 97 ItemHeight = 13 TabOrder = 6 Visible = False end end object Mail: T_Mail SMTP = SMTP Left = 2 Top = 195 end object SMTP: T_SMTP Left = 5 Top = 258 end object Mime: T_Mime Mail = Mail Left = 3 Top = 228 end object dlgOpen: TOpenDialog FileEditStyle = fsEdit Filter = 'All Files (*.*)|*.*' Options = [ofHideReadOnly] Left = 5 Top = 294 end object strEmail: TFormStorage IniFileName = '\Software\JSoft Consulting\NotePads+' IniSection = 'Email Form' UseRegistry = True StoredProps.Strings = ( 'lstAddress.Items') Left = 60 Top = 154 end end