main.dfm

这是一套全面的网络组件

object MainWindow: TMainWindow
  Left = 202
  Top = 114
  Width = 680
  Height = 538
  Caption = 'clIMAP4 test application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDefault
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 396
    Width = 672
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    Beveled = True
    ResizeStyle = rsUpdate
  end
  object Splitter2: TSplitter
    Left = 157
    Top = 0
    Width = 2
    Height = 396
    Beveled = True
    ResizeStyle = rsUpdate
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 399
    Width = 672
    Height = 85
    Align = alBottom
    Caption = 'Events'
    TabOrder = 0
    object Events: TMemo
      Left = 2
      Top = 15
      Width = 668
      Height = 68
      Align = alClient
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
      WordWrap = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 157
    Height = 396
    Align = alLeft
    Caption = 'Folders'
    TabOrder = 1
    object Folders: TTreeView
      Left = 2
      Top = 15
      Width = 153
      Height = 379
      Align = alClient
      ChangeDelay = 100
      HideSelection = False
      Images = Images
      Indent = 19
      PopupMenu = FolderPopup
      ReadOnly = True
      SortType = stText
      TabOrder = 0
      OnChange = FoldersChange
    end
  end
  object gbFolderInfo: TGroupBox
    Left = 159
    Top = 0
    Width = 513
    Height = 396
    Align = alClient
    Caption = 'Folder info'
    TabOrder = 2
    object Panel1: TPanel
      Left = 2
      Top = 163
      Width = 509
      Height = 231
      Align = alClient
      BevelOuter = bvNone
      BorderWidth = 5
      TabOrder = 1
      object MsgList: TListView
        Left = 5
        Top = 5
        Width = 499
        Height = 221
        Align = alClient
        Columns = <
          item
            Caption = 'Number'
            Width = 41
          end
          item
            Caption = 'Size'
            Width = 41
          end
          item
            Caption = 'Date'
            Width = 57
          end
          item
            Caption = 'From'
            Width = 81
          end
          item
            Caption = 'To'
            Width = 81
          end
          item
            Caption = 'Subject'
            Width = 81
          end
          item
            Caption = 'Flags'
            Width = 57
          end>
        ReadOnly = True
        RowSelect = True
        PopupMenu = MsgPopup
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = actMsgViewExecute
      end
    end
    object Panel2: TPanel
      Left = 2
      Top = 15
      Width = 509
      Height = 148
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        509
        148)
      object Label1: TLabel
        Left = 7
        Top = 3
        Width = 28
        Height = 13
        Caption = 'Name'
      end
      object Label2: TLabel
        Left = 7
        Top = 52
        Width = 47
        Height = 13
        Caption = 'ReadOnly'
      end
      object Label3: TLabel
        Left = 7
        Top = 76
        Width = 75
        Height = 13
        Caption = 'ExistsMessages'
      end
      object Label4: TLabel
        Left = 7
        Top = 101
        Width = 83
        Height = 13
        Caption = 'RecentMessages'
      end
      object Label5: TLabel
        Left = 7
        Top = 124
        Width = 56
        Height = 13
        Caption = 'FirstUnseen'
      end
      object Label7: TLabel
        Left = 7
        Top = 28
        Width = 53
        Height = 13
        Caption = 'Subscribed'
      end
      object edFldName: TEdit
        Left = 104
        Top = 0
        Width = 267
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 0
      end
      object edFldRO: TEdit
        Left = 305
        Top = 49
        Width = 66
        Height = 21
        Anchors = [akTop, akRight]
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 1
      end
      object edFldExists: TEdit
        Left = 305
        Top = 73
        Width = 66
        Height = 21
        Anchors = [akTop, akRight]
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 2
      end
      object edFldResent: TEdit
        Left = 305
        Top = 98
        Width = 66
        Height = 21
        Anchors = [akTop, akRight]
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 3
      end
      object edFld1Unseen: TEdit
        Left = 305
        Top = 121
        Width = 66
        Height = 21
        Anchors = [akTop, akRight]
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 4
      end
      object edSubscribed: TEdit
        Left = 305
        Top = 24
        Width = 66
        Height = 21
        Anchors = [akTop, akRight]
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 5
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 160
    Top = 48
    object mnFile: TMenuItem
      Caption = '&File'
      object mnLogin: TMenuItem
        Action = actLogin
      end
      object mnLogout: TMenuItem
        Action = actLogout
      end
      object mnFileBreak1: TMenuItem
        Caption = '-'
      end
      object mnExit: TMenuItem
        Caption = 'Exit'
        ShortCut = 32883
        OnClick = mnExitClick
      end
    end
    object mnFolder: TMenuItem
      Caption = '&Folder'
      object Newfolder1: TMenuItem
        Action = actFolderNew
      end
      object Deletefolder1: TMenuItem
        Action = actFolderDelete
      end
      object Subscribe1: TMenuItem
        Action = actFolderSubscribe
      end
      object Unsubscribe1: TMenuItem
        Action = actFolderUnsubscribe
      end
      object Searchmessages1: TMenuItem
        Action = actMsgSearch
      end
    end
    object Message1: TMenuItem
      Caption = '&Message'
      object Appendmessage1: TMenuItem
        Action = actMsgAppend
      end
      object Copymessage1: TMenuItem
        Action = actMsgCopy
      end
      object Deletemessage1: TMenuItem
        Action = actMsgDelete
      end
      object Purgemessages1: TMenuItem
        Action = actMsgPurge
      end
      object Viewmessage1: TMenuItem
        Action = actMsgView
      end
      object Viewmessagesource1: TMenuItem
        Action = actMsgViewSrc
      end
    end
    object mnView: TMenuItem
      Caption = '&View'
      object Allfolders1: TMenuItem
        Action = actFolderViewAll
        RadioItem = True
      end
      object Subscribedfolders1: TMenuItem
        Action = actFolderViewSub
        RadioItem = True
      end
      object mnBreak: TMenuItem