home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / util / notepad / _setup.1 / Notepads.exe / 0 / RCDATA / TFRMEMAIL / TFRMEMAIL.txt
Text File  |  1997-12-10  |  12KB  |  394 lines
  1. object frmEmail: TfrmEmail
  2.   Left = 22
  3.   Top = 28
  4.   Width = 357
  5.   Height = 371
  6.   BorderIcons = [biSystemMenu, biHelp]
  7.   Caption = 'Send Email'
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   OnCreate = FormCreate
  13.   OnShow = FormShow
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object pnlEmail: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 349
  20.     Height = 344
  21.     Align = alClient
  22.     BevelOuter = bvNone
  23.     TabOrder = 0
  24.     object pnlFrom: TPanel
  25.       Left = 0
  26.       Top = 0
  27.       Width = 349
  28.       Height = 25
  29.       HelpContext = 1501
  30.       Align = alTop
  31.       BevelInner = bvLowered
  32.       BevelOuter = bvNone
  33.       Caption = 'pnlFrom'
  34.       Font.Color = clBlack
  35.       Font.Height = -12
  36.       Font.Name = 'Arial'
  37.       Font.Pitch = fpVariable
  38.       Font.Style = []
  39.       ParentFont = False
  40.       TabOrder = 0
  41.       object lblFrom: TLabel
  42.         Left = 17
  43.         Top = 5
  44.         Width = 32
  45.         Height = 15
  46.         Caption = 'From:'
  47.       end
  48.       object edtFrom: TEdit
  49.         Left = 68
  50.         Top = 2
  51.         Width = 245
  52.         Height = 22
  53.         HelpContext = 1501
  54.         Font.Color = clBlack
  55.         Font.Height = -11
  56.         Font.Name = 'Arial'
  57.         Font.Pitch = fpVariable
  58.         Font.Style = []
  59.         ParentFont = False
  60.         TabOrder = 0
  61.         OnKeyPress = edtFromKeyPress
  62.       end
  63.     end
  64.     object pnlTo: TPanel
  65.       Left = 0
  66.       Top = 25
  67.       Width = 349
  68.       Height = 25
  69.       HelpContext = 1502
  70.       Align = alTop
  71.       BevelInner = bvLowered
  72.       BevelOuter = bvNone
  73.       Caption = 'pnlTo'
  74.       Font.Color = clBlack
  75.       Font.Height = -12
  76.       Font.Name = 'Arial'
  77.       Font.Pitch = fpVariable
  78.       Font.Style = []
  79.       ParentFont = False
  80.       TabOrder = 1
  81.       object lblTo: TLabel
  82.         Left = 16
  83.         Top = 5
  84.         Width = 17
  85.         Height = 15
  86.         Caption = 'To:'
  87.       end
  88.       object btnEmailAddress: TSpeedButton
  89.         Left = 316
  90.         Top = 2
  91.         Width = 19
  92.         Height = 19
  93.         Glyph.Data = {
  94.           F6000000424DF600000000000000760000002800000010000000100000000100
  95.           0400000000008000000000000000000000001000000010000000000000000000
  96.           BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  97.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  98.           7777777777777070777777777777070F07777777777070FFF077777777070FCF
  99.           FF0777777070FCFC91F07777070FCFCF110D000070FFFCFFF000070807077777
  100.           00300B30000000000330070FBFBFBFBFB03000FBFBFBFBFBFB00000000000000
  101.           0000777777777777777777777777777777777777777777777777}
  102.         OnClick = btnEmailAddressClick
  103.       end
  104.       object edtTo: TEdit
  105.         Left = 68
  106.         Top = 2
  107.         Width = 245
  108.         Height = 22
  109.         HelpContext = 1502
  110.         Font.Color = clBlack
  111.         Font.Height = -11
  112.         Font.Name = 'Arial'
  113.         Font.Pitch = fpVariable
  114.         Font.Style = []
  115.         HideSelection = False
  116.         ParentFont = False
  117.         TabOrder = 0
  118.         OnKeyPress = edtFromKeyPress
  119.       end
  120.     end
  121.     object pnlSubject: TPanel
  122.       Left = 0
  123.       Top = 50
  124.       Width = 349
  125.       Height = 25
  126.       HelpContext = 1503
  127.       Align = alTop
  128.       BevelInner = bvLowered
  129.       BevelOuter = bvNone
  130.       Font.Color = clBlack
  131.       Font.Height = -12
  132.       Font.Name = 'Arial'
  133.       Font.Pitch = fpVariable
  134.       Font.Style = []
  135.       ParentFont = False
  136.       TabOrder = 2
  137.       object lblSubject: TLabel
  138.         Left = 16
  139.         Top = 5
  140.         Width = 44
  141.         Height = 15
  142.         Caption = 'Subject:'
  143.       end
  144.       object edtSubject: TEdit
  145.         Left = 68
  146.         Top = 2
  147.         Width = 245
  148.         Height = 22
  149.         HelpContext = 1503
  150.         Font.Color = clBlack
  151.         Font.Height = -11
  152.         Font.Name = 'Arial'
  153.         Font.Pitch = fpVariable
  154.         Font.Style = []
  155.         ParentFont = False
  156.         TabOrder = 0
  157.         OnKeyPress = edtFromKeyPress
  158.       end
  159.     end
  160.     object barMail: TSpeedBar
  161.       Left = 0
  162.       Top = 75
  163.       Width = 33
  164.       Height = 269
  165.       HelpContext = 1507
  166.       Align = alLeft
  167.       Options = [sbAllowDrag, sbAllowResize, sbFlatBtns, sbGrayedBtns]
  168.       BtnOffsetHorz = 4
  169.       BtnOffsetVert = 4
  170.       BtnWidth = 25
  171.       BtnHeight = 25
  172.       BevelInner = bvLowered
  173.       BevelOuter = bvNone
  174.       TabOrder = 4
  175.       InternalVer = 1
  176.       object secMail: TSpeedbarSection
  177.         Caption = 'Mail Menu'
  178.       end
  179.       object btnESend: TSpeedItem
  180.         Caption = 'Send Email'
  181.         Glyph.Data = {
  182.           78010000424D7801000000000000760000002800000020000000100000000100
  183.           04000000000000000000120B0000120B00000000000000000000000000000000
  184.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  185.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  186.           000037777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
  187.           FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF7777BBF
  188.           FFF07F333777777F3FF70FFFFFFFB9BF1CC07F3FFF337F7377770F777FFFB99B
  189.           C1C07F7773337F377F370FFFFFFFB9BBC1C07FFFFFFF7F337FF700000077B999
  190.           B000777777777F33777733337377B9999B33333F733373F337FF3377377B99BB
  191.           9BB33377F337F377377F3737377B9B79B9B737F73337F7F7F37F33733777BB7B
  192.           BBB73373333377F37F3737333777BB777B9B3733333377F337F7333333777B77
  193.           77BB3333333337333377333333333777337B33333333333333370000}
  194.         Hint = 'Send email'
  195.         NumGlyphs = 2
  196.         Spacing = 1
  197.         Left = 4
  198.         Top = 9
  199.         Visible = True
  200.         OnClick = btnESendClick
  201.         SectionName = 'Mail Menu'
  202.       end
  203.       object btnEText: TSpeedItem
  204.         Caption = 'Enter Text In Email'
  205.         GroupIndex = 1
  206.         Down = True
  207.         Glyph.Data = {
  208.           78010000424D7801000000000000760000002800000020000000100000000100
  209.           04000000000000000000120B0000120B00000000000000000000000000000000
  210.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  211.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  212.           0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
  213.           77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0FFFFF
  214.           FFF07F333F7F3FFFF3370FFF700F0000FFF07F3F777F777733370F707F0FFFFF
  215.           FFF07F77337F3FFFFFF7007EEE0F000000F077FFFF7F777777370777770FFFFF
  216.           FFF07777777F3FFFFFF7307EEE0F000000F03773FF7F7777773733707F0FFFFF
  217.           FFF03337737F3FFF33373333700F000FFFF03333377F77733FF73333330FFFFF
  218.           00003333337F3FF377773333330F00FF0F033333337F77337F733333330FFFFF
  219.           00333333337FFFFF7733333333000000033333333377777773330000}
  220.         Hint = 'Enter text in email'
  221.         NumGlyphs = 2
  222.         Spacing = 1
  223.         Left = 4
  224.         Top = 44
  225.         Visible = True
  226.         OnClick = btnETextClick
  227.         SectionName = 'Mail Menu'
  228.       end
  229.       object btnEAttach: TSpeedItem
  230.         Caption = 'Attach File To Email'
  231.         GroupIndex = 1
  232.         Glyph.Data = {
  233.           78010000424D7801000000000000760000002800000020000000100000000100
  234.           04000000000000000000120B0000120B00000000000000000000000000000000
  235.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  236.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  237.           0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
  238.           77F07F773FFFFFFF77F70FFF7700000000007F337777777777770FFFFF0BBBBB
  239.           BBB07F333F7F3FF33FF70FFF700B00BB00B07F3F777F77F377370F707F0BB0B0
  240.           0BB07F77337F37F77337007EEE0BB0B0BBB077FFFF7F37F7F3370777770EE000
  241.           EEE07777777F3777F3F7307EEE0E0E00E0E03773FF7F7377F73733707F0EE000
  242.           0EE03337737F377773373333700EEE00EEE03333377F3377FF373333330EEEE0
  243.           0EE03333337F33377F373333330EEEE00EE03333337F333773373333330EEEEE
  244.           EEE03333337FFFFFFFF7333333000000000033333377777777770000}
  245.         Hint = 'Attach file to email...'
  246.         NumGlyphs = 2
  247.         Spacing = 1
  248.         Left = 4
  249.         Top = 69
  250.         Visible = True
  251.         OnClick = btnEAttachClick
  252.         SectionName = 'Mail Menu'
  253.       end
  254.     end
  255.     object pnlAttach: TPanel
  256.       Left = 33
  257.       Top = 75
  258.       Width = 316
  259.       Height = 269
  260.       Align = alClient
  261.       BevelOuter = bvNone
  262.       Caption = 'pnlAttach'
  263.       TabOrder = 5
  264.       object barAttachments: TSpeedBar
  265.         Left = 0
  266.         Top = 0
  267.         Width = 316
  268.         Height = 33
  269.         HelpContext = 1506
  270.         Options = [sbAllowDrag, sbAllowResize, sbFlatBtns, sbGrayedBtns]
  271.         BtnOffsetHorz = 4
  272.         BtnOffsetVert = 4
  273.         BtnWidth = 25
  274.         BtnHeight = 25
  275.         BevelInner = bvLowered
  276.         BevelOuter = bvNone
  277.         Font.Color = clWindowText
  278.         Font.Height = -11
  279.         Font.Name = 'Arial'
  280.         Font.Pitch = fpVariable
  281.         Font.Style = []
  282.         ParentFont = False
  283.         TabOrder = 0
  284.         InternalVer = 1
  285.         object secAttach: TSpeedbarSection
  286.           Caption = 'File Menu'
  287.         end
  288.         object btnAddAttach: TSpeedItem
  289.           Caption = 'Add Attachment To Email'
  290.           Glyph.Data = {
  291.             DE000000424DDE0000000000000076000000280000000D0000000D0000000100
  292.             0400000000000000000000000000000000000000000000000000000000000000
  293.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  294.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  295.             F000FFFFFFFFFFFFF000FFFFF000FFFFF000FFFFF0F0FFFFF000FFFFF0F0FFFF
  296.             F000FF0000F0000FF000FF0FFFFFFF0FF000FF0000F0000FF000FFFFF0F0FFFF
  297.             F000FFFFF0F0FFFFF000FFFFF000FFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
  298.             F000}
  299.           Hint = 'Add attachment to email'
  300.           Spacing = 1
  301.           Left = 34
  302.           Top = 4
  303.           Visible = True
  304.           OnClick = btnAddAttachClick
  305.           SectionName = 'File Menu'
  306.         end
  307.         object btnRemAttach: TSpeedItem
  308.           Caption = 'Remove Highlighted Attachment'
  309.           Glyph.Data = {
  310.             DE000000424DDE0000000000000076000000280000000D0000000D0000000100
  311.             0400000000000000000000000000000000000000000000000000000000000000
  312.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  313.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  314.             F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
  315.             F000FF000000000FF000FF0FFFFFFF0FF000FF000000000FF000FFFFFFFFFFFF
  316.             F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
  317.             F000}
  318.           Hint = 'Remove highlighted attachment'
  319.           Spacing = 1
  320.           Left = 9
  321.           Top = 4
  322.           Visible = True
  323.           OnClick = btnRemAttachClick
  324.           SectionName = 'File Menu'
  325.         end
  326.       end
  327.       object lstAttach: TListBox
  328.         Left = 0
  329.         Top = 33
  330.         Width = 316
  331.         Height = 236
  332.         HelpContext = 1505
  333.         Align = alClient
  334.         ItemHeight = 18
  335.         Style = lbOwnerDrawFixed
  336.         TabOrder = 1
  337.         TabWidth = 20
  338.         Visible = False
  339.         OnDrawItem = lstAttachDrawItem
  340.       end
  341.     end
  342.     object mmoBody: TRichEdit
  343.       Left = 33
  344.       Top = 75
  345.       Width = 316
  346.       Height = 269
  347.       HelpContext = 1504
  348.       Align = alClient
  349.       PlainText = True
  350.       ScrollBars = ssVertical
  351.       TabOrder = 3
  352.     end
  353.     object lstAddress: TListBox
  354.       Left = 194
  355.       Top = 196
  356.       Width = 121
  357.       Height = 97
  358.       ItemHeight = 13
  359.       TabOrder = 6
  360.       Visible = False
  361.     end
  362.   end
  363.   object Mail: T_Mail
  364.     SMTP = SMTP
  365.     Left = 2
  366.     Top = 195
  367.   end
  368.   object SMTP: T_SMTP
  369.     Left = 5
  370.     Top = 258
  371.   end
  372.   object Mime: T_Mime
  373.     Mail = Mail
  374.     Left = 3
  375.     Top = 228
  376.   end
  377.   object dlgOpen: TOpenDialog
  378.     FileEditStyle = fsEdit
  379.     Filter = 'All Files (*.*)|*.*'
  380.     Options = [ofHideReadOnly]
  381.     Left = 5
  382.     Top = 294
  383.   end
  384.   object strEmail: TFormStorage
  385.     IniFileName = '\Software\JSoft Consulting\NotePads+'
  386.     IniSection = 'Email Form'
  387.     UseRegistry = True
  388.     StoredProps.Strings = (
  389.       'lstAddress.Items')
  390.     Left = 60
  391.     Top = 154
  392.   end
  393. end
  394.