frmmain.dfm

一些关于电子邮件SMTP`POP3 MIME`的源码·个人感觉还不错

object FMain: TFMain
  Left = 242
  Top = 25
  Width = 718
  Height = 510
  Caption = 'FTP '#19979#36733#23458#25143#31471#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 129
    Width = 710
    Height = 2
    Cursor = crVSplit
    Align = alTop
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 396
    Width = 710
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Splitter3: TSplitter
    Left = 358
    Top = 131
    Width = 2
    Height = 265
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 710
    Height = 41
    Align = alTop
    TabOrder = 0
    object EditFTPAddr: TLabeledEdit
      Left = 96
      Top = 13
      Width = 113
      Height = 21
      EditLabel.Width = 80
      EditLabel.Height = 13
      EditLabel.Caption = 'FTP'#20027#26426#22320#22336#65306
      LabelPosition = lpLeft
      TabOrder = 0
      Text = '127.0.0.1'
    end
    object EditPortNum: TLabeledEdit
      Left = 271
      Top = 13
      Width = 41
      Height = 21
      EditLabel.Width = 48
      EditLabel.Height = 13
      EditLabel.Caption = #31471#21475#21495#65306
      LabelPosition = lpLeft
      TabOrder = 1
      Text = '21'
    end
    object EditUserName: TLabeledEdit
      Left = 374
      Top = 13
      Width = 113
      Height = 21
      EditLabel.Width = 48
      EditLabel.Height = 13
      EditLabel.Caption = #29992#25143#21517#65306
      LabelPosition = lpLeft
      TabOrder = 2
      Text = 'anonymous'
    end
    object EditPassWord: TLabeledEdit
      Left = 532
      Top = 13
      Width = 113
      Height = 21
      EditLabel.Width = 36
      EditLabel.Height = 13
      EditLabel.Caption = #23494#30721#65306
      LabelPosition = lpLeft
      TabOrder = 3
      Text = '[e-mail]'
    end
    object BitBtn1: TBitBtn
      Left = 649
      Top = 9
      Width = 45
      Height = 29
      Action = QuickConnect
      TabOrder = 4
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F000000000000186300001F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F00000000186300000000186300001F7C
        1F7C1F7C1F7C1F7C1F7C1F7CFF7F000000000000000000000000000018631F7C
        1F7C1F7C1F7C1F7C1F7C0000FF7F00000000FF7F1863104200000000FF7F0000
        1F7C1F7C1F7C1F7C1F7C0000FF7F00000000FF7FFF7F186300000000FF7F0000
        1F7C1F7C1F7C1F7C1F7C0000FF7F0000000000000000000000000000FF7F0000
        1F7C1F7C1F7C1F7C1F7C1F7CFF7FFF7F00000000FF7F00000000FF7FFF7F1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF7F000000000000FF7FFF7F00001F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF7F0000FF7FFF7F00001F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C18631F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7CFF7F1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7CFF7F1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7CFF7F1F7C1F7C1F7C1F7C1F7CFF7F1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F00001F7C0000FF7F00001F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF7FFF7F00001F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
  end
  object MemoMsg: TMemo
    Left = 0
    Top = 41
    Width = 710
    Height = 88
    Align = alTop
    PopupMenu = PopRemote
    ReadOnly = True
    TabOrder = 1
  end
  object QueueList: TListView
    Left = 0
    Top = 399
    Width = 710
    Height = 84
    Align = alBottom
    Columns = <
      item
        Caption = #39033#30446
      end
      item
        Caption = #26412#22320#22320#22336
        Width = 150
      end
      item
        Caption = #25991#20214#22823#23567
        Width = 150
      end
      item
        Caption = '<->'
      end
      item
        Caption = #29366#24577
      end
      item
        Caption = #36828#31243#22320#22336
        Width = 150
      end>
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 2
    ViewStyle = vsReport
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 131
    Width = 358
    Height = 265
    Align = alLeft
    TabOrder = 3
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 354
      Height = 33
      Align = alTop
      TabOrder = 0
      object BitBtn2: TBitBtn
        Left = 276
        Top = 4
        Width = 42
        Height = 26
        Action = LocalDirUp
        TabOrder = 0
        Glyph.Data = {
          42020000424D4202000000000000420000002800000010000000100000000100
          1000030000000002000000000000000000000000000000000000007C0000E003
          00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C10421F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C104210401F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1042104210401F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1042104010401F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C10421042104010401F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C104210401F0010401F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C1042104210401F0010401F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1F7C1F7C1F7C104210401F001F0010401042104210421042
          104210421F7C1F7C1F7C1F7C1042104210401F001F0010401F001F001F001F00
          1F001F001F001F7C1F7C1F7C104210401F001F001F001F001F001F001F00FF7F
          1F001F7C1F7C1F7C1F7C1042104210401F001F001F001F001F00FF7F1F001F7C
          1F7C1F7C1F7C1F7C1F7C104210401F001F001F001F00FF7F1F001F7C1F7C1F7C
          1F7C1F7C1F7C1F7C1042104210401F001F00FF7F1F001F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C104210401F00FF7F1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C10421F7CFF7F1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C1F7C10401F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
          1F7C1F7C1F7C}
      end
      object DriveComboBox1: TDriveComboBox
        Left = 8
        Top = 8
        Width = 249
        Height = 19
        TabOrder = 1
        OnChange = DriveComboBox1Change
      end
    end
    object LocalFileList: TListView
      Left = 2
      Top = 48
      Width = 354
      Height = 215
      Align = alClient
      Columns = <
        item
          Caption = #21517#31216
          Width = 150
        end
        item
          Caption = #31867#22411
        end
        item
          Caption = #22823#23567
        end
        item
          Caption = #26085#26399
        end>
      LargeImages = ImageList1
      MultiSelect = True
      ReadOnly = True
      PopupMenu = PopLocal
      SmallImages = ImageList1
      StateImages = ImageList1
      TabOrder = 1
      ViewStyle = vsReport
      OnContextPopup = LocalFileListContextPopup
      OnDblClick = LocalFileListDblClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 360
    Top = 131
    Width = 350
    Height = 265
    Align = alClient
    TabOrder = 4
    object Panel2: TPanel
      Left = 2
      Top = 15
      Width = 346
      Height = 33
      Align = alTop
      TabOrder = 0
      object ComboHistory: TComboBox
        Left = 7