main.dfm

C++Builder程序员编程手记《配书光盘》

object MainForm: TMainForm
  Left = 82
  Top = 60
  Width = 686
  Height = 501
  Caption = '我的邮件系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 135
    Width = 595
    Height = 3
    Cursor = crHSplit
    Align = alNone
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 252
    Width = 678
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 255
    Width = 678
    Height = 181
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 436
    Width = 678
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 172
    Width = 678
    Height = 80
    Align = alTop
    AutoSize = True
    BorderStyle = bsNone
    TabOrder = 2
    object ListView1: TListView
      Left = 0
      Top = 0
      Width = 678
      Height = 80
      Align = alClient
      Columns = <
        item
          AutoSize = True
          Caption = '序号'
        end
        item
          Caption = '大小'
          Width = 100
        end
        item
          Caption = '主题'
          Width = 250
        end>
      FlatScrollBars = True
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = ListView1DblClick
      OnSelectItem = ListView1SelectItem
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 678
    Height = 40
    AutoSize = True
    ButtonHeight = 38
    ButtonWidth = 39
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object ToolButton4: TToolButton
      Left = 0
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object GetButton: TToolButton
      Left = 8
      Top = 0
      Hint = '接收邮件'
      Caption = '文件&F'
      ImageIndex = 0
      OnClick = GetButtonClick
    end
    object SendButton: TToolButton
      Left = 47
      Top = 0
      Hint = '发送邮件'
      Caption = 'SendButton'
      ImageIndex = 1
      OnClick = SendButtonClick
    end
    object ConnectButton: TToolButton
      Left = 86
      Top = 0
      Hint = '连接'
      Caption = 'ConnectButton'
      ImageIndex = 2
      OnClick = ConnectButtonClick
    end
    object ToolButton3: TToolButton
      Left = 125
      Top = 0
      Hint = '断开连接'
      Caption = 'ToolButton3'
      ImageIndex = 3
      OnClick = ToolButton3Click
    end
    object ToolButton1: TToolButton
      Left = 164
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 172
      Top = 0
      Hint = '设置帐户属性'
      Caption = 'ToolButton2'
      ImageIndex = 4
      OnClick = C1Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 40
    Width = 678
    Height = 132
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 4
    object Label1: TLabel
      Left = 6
      Top = 12
      Width = 51
      Height = 13
      Caption = '发件人&S：'
      FocusControl = FromEdit
    end
    object Label2: TLabel
      Left = 6
      Top = 35
      Width = 51
      Height = 13
      Caption = '主    题&L：'
      FocusControl = SubjectEdit
    end
    object Label3: TLabel
      Left = 6
      Top = 59
      Width = 52
      Height = 13
      Caption = '收件人&R：'
      FocusControl = ToEdit
    end
    object Label4: TLabel
      Left = 7
      Top = 84
      Width = 52
      Height = 13
      Caption = '附    件&A：'
      OnClick = Label4Click
    end
    object FromEdit: TEdit
      Left = 56
      Top = 3
      Width = 460
      Height = 21
      TabOrder = 0
    end
    object SubjectEdit: TEdit
      Left = 56
      Top = 27
      Width = 460
      Height = 21
      TabOrder = 1
    end
    object ToEdit: TEdit
      Left = 56
      Top = 51
      Width = 460
      Height = 21
      TabOrder = 2
    end
    object AttachList: TListView
      Left = 56