postmsg.~dfm

关于DEPHI7.0的网络聊天信息管理系统源代码

object FormMailMsg: TFormMailMsg
  Left = 329
  Top = 115
  Width = 412
  Height = 386
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = #8220#20248#21033#8221'SMTP'#21457#36865#37038#20214
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 337
    Width = 404
    Height = 19
    Color = clSkyBlue
    Panels = <
      item
        Text = #35831#32534#20889#30005#23376#37038#20214#20869#23481#65281
        Width = 280
      end
      item
        Width = 50
      end>
  end
  object Panel_BTN: TPanel
    Left = 0
    Top = 304
    Width = 404
    Height = 33
    Align = alBottom
    BevelOuter = bvNone
    Color = clSkyBlue
    TabOrder = 1
    DesignSize = (
      404
      33)
    object BTNOK: TBitBtn
      Left = 326
      Top = 3
      Width = 75
      Height = 25
      Hint = 'Send message now'
      Anchors = [akRight, akBottom]
      Caption = #21457#36865'(&d)'
      Default = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ModalResult = 1
      ParentFont = False
      TabOrder = 0
      OnClick = BTNOKClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        000037777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
        FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF7777BBF
        FFF07F333777777F3FF70FFFFFFFB9BF1CC07F3FFF337F7377770F777FFFB99B
        C1C07F7773337F377F370FFFFFFFB9BBC1C07FFFFFFF7F337FF700000077B999
        B000777777777F33777733337377B9999B33333F733373F337FF3377377B99BB
        9BB33377F337F377377F3737377B9B79B9B737F73337F7F7F37F33733777BB7B
        BBB73373333377F37F3737333777BB777B9B3733333377F337F7333333777B77
        77BB3333333337333377333333333777337B3333333333333337}
      NumGlyphs = 2
      Style = bsNew
    end
    object CancelBTN: TBitBtn
      Left = 245
      Top = 4
      Width = 75
      Height = 25
      Hint = 'Close window'
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = #20851#38381
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ModalResult = 2
      ParentFont = False
      TabOrder = 1
      OnClick = CancelBTNClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
      Style = bsNew
    end
    object BTNSetting: TBitBtn
      Left = 4
      Top = 5
      Width = 93
      Height = 25
      Action = FormMain.SettingAction
      Anchors = [akLeft, akBottom]
      Caption = #35774#32622'SMTP(&S)'
      Default = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ModalResult = 1
      ParentFont = False
      TabOrder = 2
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        000037777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
        FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF7777BBF
        FFF07F333777777F3FF70FFFFFFFB9BF1CC07F3FFF337F7377770F777FFFB99B
        C1C07F7773337F377F370FFFFFFFB9BBC1C07FFFFFFF7F337FF700000077B999
        B000777777777F33777733337377B9999B33333F733373F337FF3377377B99BB
        9BB33377F337F377377F3737377B9B79B9B737F73337F7F7F37F33733777BB7B
        BBB73373333377F37F3737333777BB777B9B3733333377F337F7333333777B77
        77BB3333333337333377333333333777337B3333333333333337}
      NumGlyphs = 2
      Style = bsNew
    end
  end
  object Panel_Address: TPanel
    Left = 0
    Top = 0
    Width = 404
    Height = 116
    Align = alTop
    Color = clSkyBlue
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 236
      Top = 1
      Height = 114
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 235
      Height = 114
      Align = alLeft
      Caption = #37038#20214#20449#24687
      Color = clSkyBlue
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 7
        Top = 97
        Width = 36
        Height = 12
        Caption = #20248#20808#32423
      end
      object ToLabeledEdit: TLabeledEdit
        Left = 48
        Top = 14
        Width = 180
        Height = 20
        Color = clSkyBlue
        EditLabel.Width = 36
        EditLabel.Height = 12
        EditLabel.Caption = #25910#20214#20154
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpLeft
        TabOrder = 0
      end
      object SubjectLabeledEdit: TLabeledEdit
        Left = 48
        Top = 33
        Width = 180
        Height = 20
        Color = clSkyBlue
        EditLabel.Width = 24
        EditLabel.Height = 12
        EditLabel.Caption = #20027#39064
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpLeft
        TabOrder = 1
      end
      object CCLabeledEdit: TLabeledEdit
        Left = 48
        Top = 52
        Width = 180
        Height = 20
        Color = clSkyBlue
        EditLabel.Width = 24
        EditLabel.Height = 12
        EditLabel.Caption = #25220#36865
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpLeft
        TabOrder = 2
      end
      object BCCLabeledEdit: TLabeledEdit
        Left = 48
        Top = 72
        Width = 180
        Height = 20
        Color = clSkyBlue
        EditLabel.Width = 24
        EditLabel.Height = 12
        EditLabel.Caption = #26263#36865
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpLeft
        TabOrder = 3
      end
      object PriorityCBO: TComboBox
        Left = 48
        Top = 92
        Width = 97
        Height = 20
        Style = csDropDownList
        Color = clSkyBlue
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 12
        TabOrder = 4
        Items.Strings = (
          #26368#39640
          #39640#32423
          #26222#36890
          #36739#20302
          #26368#20302)
      end
      object ReturnRecieptCHK: TCheckBox
        Left = 154
        Top = 94
        Width = 71
        Height = 17
        Caption = #21457#36865#22238#25191
        TabOrder = 5
      end
    end
    object GroupBox3: TGroupBox
      Left = 239
      Top = 1
      Width = 164
      Height = 114
      Align = alClient
      Caption = #38468#20214
      Color = clSkyBlue
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        164
        114)
      object FilesListView: TListView
        Left = 2
        Top = 14
        Width = 160
        Height = 75
        Align = alTop
        Color = clSkyBlue
        Columns = <
          item
            AutoSize = True
            Caption = #25991#20214#21517'/'#31867#22411
          end>
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
      object AttachmentBTN: TBitBtn
        Left = 3
        Top = 91
        Width = 161
        Height = 25
        Hint = #28155#21152#38468#20214
        Anchors = [akLeft, akRight, akBottom]
        Caption = #28155#21152#38468#20214
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = AttachmentBTNClick
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
          6666660000006666668000866666660000006666680666086666660000006666
          6066666066666600000066666068086066666600000066666060606066666600
          0000666660606060666666000000666660606060666666000000666660606060
          6666660000006666606060606666660000006666606060606666660000006666
          6060606066666600000066666060606066666600000066666660666066666600
          0000666666606660666666000000666666606660666666000000666666660006
          666666000000666666666666666666000000}
      end
    end
  end
  object GroupBox_Memo: TGroupBox
    Left = 0
    Top = 116
    Width = 404
    Height = 188
    Align = alClient
    Caption = #37038#20214#20869#23481
    Color = clSkyBlue
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object EMailMemo: TMemo
      Left = 2
      Top = 14
      Width = 400
      Height = 172
      Align = alClient
      Color = clSkyBlue
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        #35831#36755#20837#20320#30340#37038#20214#20869#23481)
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 224
    Top = 184
  end
  object SMTP: TIdSMTP
    MaxLineAction = maException
    ReadTimeout = 0
    Host = 'SMTP.263.net'
    Port = 25
    AuthenticationType = atNone
    Password = 'jlr0828a'
    Username = 'journer'
    Left = 192
    Top = 184
  end
  object MsgSend: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    Encoding = meMIME
    Recipients = <>
    ReplyTo = <>
    Left = 160
    Top = 184
  end
end