object frmMain: TfrmMain
  Left = 221
  Top = 137
  Width = 681
  Height = 454
  BorderWidth = 5
  Caption = 'Indy Mail Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 371
    Width = 663
    Height = 19
    Panels = <    
      item
        Text = 'No message selected'
        Width = 160
      end    
      item
        Width = 50
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 663
    Height = 28
    AutoSize = True
    ButtonHeight = 24
    ButtonWidth = 32
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    Images = ImageList1
    TabOrder = 1
    Transparent = True
    Wrapable = False
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Hint = 'Connect to POP server and download headers'
      Action = CheckMail
      Caption = 'Connect'
    end
    object ToolButton2: TToolButton
      Left = 32
      Top = 0
      Action = Disconnect
    end
    object ToolButton8: TToolButton
      Left = 64
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton3: TToolButton
      Left = 72
      Top = 0
      Action = Retrieve
    end
    object ToolButton4: TToolButton
      Left = 104
      Top = 0
      Action = Delete
    end
    object ToolButton5: TToolButton
      Left = 136
      Top = 0
      Action = Purge
    end
    object ToolButton9: TToolButton
      Left = 168
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 176
      Top = 0
      Hint = 'Compose a new message'
      Action = Send
    end
    object ToolButton10: TToolButton
      Left = 208
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 216
      Top = 0
      Action = Setup
    end
    object ToolButton11: TToolButton
      Left = 248
      Top = 0
      Width = 23
      Caption = 'ToolButton11'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object ToolButton12: TToolButton
      Left = 271
      Top = 0
      Width = 55
      Caption = 'ToolButton12'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object pnlServerName: TPanel
      Left = 326
      Top = 0
      Width = 233
      Height = 24
      Align = alRight
      BevelOuter = bvNone
      Caption = 'No server'
      TabOrder = 0
      OnClick = pnlServerNameClick
    end
  end
  object pnlMain: TPanel
    Left = 0
    Top = 28
    Width = 663
    Height = 343
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 0
      Top = 161
      Width = 663
      Height = 6
      Cursor = crVSplit
      Align = alTop
    end
    object pnlBottom: TPanel
      Left = 0
      Top = 167
      Width = 663
      Height = 176
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 663
        Height = 85
        Align = alTop
        BevelOuter = bvLowered
        Color = 13295059
        TabOrder = 0
        object Label4: TLabel
          Left = 4
          Top = 4
          Width = 28
          Height = 13
          Caption = 'From'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label5: TLabel
          Left = 4
          Top = 24
          Width = 16
          Height = 13
          Caption = 'To'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 4
          Top = 44
          Width = 16
          Height = 13
          Caption = 'Cc'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label7: TLabel
          Left = 4
          Top = 64
          Width = 44
          Height = 13
          Caption = 'Subject'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label8: TLabel
          Left = 332
          Top = 4
          Width = 28
          Height = 13
          Caption = 'Date'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label9: TLabel
          Left = 332
          Top = 24
          Width = 40
          Height = 13
          Caption = 'Priority'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label10: TLabel
          Left = 332
          Top = 44
          Width = 45
          Height = 13
          Caption = 'Receipt'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label11: TLabel
          Left = 332
          Top = 64
          Width = 72
          Height = 13
          Caption = 'Organization'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object From: TLabel
          Left = 52
          Top = 4
          Width = 270
          Height = 13
          AutoSize = False
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object Recipients: TLabel
          Left = 52
          Top = 24
          Width = 270
          Height = 13
          AutoSize = False
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object Cc: TLabel
          Left = 52
          Top = 44
          Width = 270
          Height = 13
          AutoSize = False
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object Subject: TLabel
          Left = 52
          Top = 64
          Width = 270
          Height = 13
          AutoSize = False
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object Date: TLabel
          Left = 404
          Top = 4
          Width = 3
          Height = 13
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object Priority: TLabel
          Left = 404
          Top = 24
          Width = 3
          Height = 13
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object Receipt: TLabel
          Left = 404
          Top = 44
          Width = 3
          Height = 13
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
        object Organization: TLabel
          Left = 404
          Top = 64
          Width = 3
          Height = 13
          Color = clBtnFace
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          Transparent = True
        end
      end
      object pnlBottomBottom: TPanel
        Left = 0
        Top = 85
        Width = 663
        Height = 91
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object pnlAttachments: TPanel
          Left = 485
          Top = 0
          Width = 178
          Height = 91
          Align = alRight
          BevelOuter = bvNone
          Caption = 'pnlAttachments'
          TabOrder = 0
          Visible = False
          DesignSize = (
            178
            91
          )
          object Label1: TLabel
            Left = 9
            Top = 4
            Width = 59
            Height = 13
            Anchors = [akTop, akRight]
            Caption = 'Attachments'
          end
          object lvMessageParts: TListView
            Left = 0
            Top = 20
            Width = 177
            Height = 108
            Anchors = [akLeft, akTop, akRight, akBottom]
            Columns = <            
              item
                Caption = 'Fille Name'
                Width = 150
              end            
              item
                Caption = 'Content Type'
                Width = 150
              end>
            MultiSelect = True
            ReadOnly = True
            SmallImages = ImageList1
            TabOrder = 0
            ViewStyle = vsList
            OnClick = lvMessagePartsClick
          end
          object Button1: TBitBtn
            Left = 56
            Top = 132
            Width = 116
            Height = 25
            Hint = 'Save selected attachment as a file'
            Anchors = [akRight, akBottom]
            Caption = 'Save Attachment'
            TabOrder = 1
            OnClick = Button1Click
            Glyph.Data = {
              F6000000424DF600000000000000760000002800000010000000100000000100
              04000000000080000000CE0E0000C40E00001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
              2222220000000000000220330000008803022033000000880302203300000088
              0302203300000000030220333333333333022033000000003302203088888888
              0302203088888888030220308888888803022030888888880302203088888888
              0002203088888888080220000000000000022222222222222222
            }
          end
        end
        object Memo1: TMemo
          Left = 0
          Top = 0
          Width = 485
          Height = 91
          Align = alClient
          ScrollBars = ssBoth
          TabOrder = 1
        end
      end
    end
    object pnlTop: TPanel
      Left = 0
      Top = 0
      Width = 663
      Height = 161
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object lvHeaders: TListView
        Left = 0
        Top = 0
        Width = 663
        Height = 142
        Align = alClient
        Columns = <        
          item
            Caption = 'Subject'
            Width = 200
          end        
          item
            Caption = 'From'
            Width = 150
          end        
          item
            Caption = 'Date'
            Width = 80
          end        
          item
            Caption = 'Byte(s)'
            Width = 60
          end        
          item
            Caption = 'UIDL'
            Width = 150
          end>
        ReadOnly = True
        RowSelect = True
        SmallImages = ImageList1
        StateImages = ImageList1
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = lvHeadersDblClick
      end
      object StatusBar2: TStatusBar
        Left = 0
        Top = 142
        Width = 663
        Height = 19
        Panels = <        
          item
            Width = 60
          end        
          item
            Width = 50
          end>
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 7
    Top = 93
    object Exit1: TMenuItem
      Caption = 'E&xit'
      OnClick = Exit1Click
      Left = 845
      Top = 478
    end
    object Actions1: TMenuItem
      Caption = 'Message &Functions'
      Left = 845
      Top = 478
      object Checkmail1: TMenuItem
        Action = CheckMail
        Caption = '&Connect/get headers'
        Left = 845
        Top = 478
      end
      object Retrievecurrentmessage1: TMenuItem
        Action = Retrieve
        Caption = '&Retrieve current message'
        Left = 845
        Top = 478
      end
      object Deletecurrentmessage1: TMenuItem
        Action = Delete
        Caption = '&Mark for Deletion'
        Left = 845
        Top = 478
      end
      object Selectfromdeletion1: TMenuItem
        Caption = 'Select * for deletion'
        OnClick = Selectfromdeletion1Click
      end
      object Purgemarkedmessages1: TMenuItem
        Action = Purge
        Caption = '&Purge marked'
        Left = 845
        Top = 478
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Send1: TMenuItem
        Action = Send
        Caption = 'C&ompose message'
        Left = 845
        Top = 478
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Disconnect1: TMenuItem
        Action = Disconnect
        Caption = '&Disconnect from server'
        Left = 845
        Top = 478
      end
    end
    object Setup1: TMenuItem
      Action = Setup
      Left = 845
      Top = 478
    end
  end
  object POP: TIdPOP3
    MaxLineAction = maException
    RecvBufferSize = 1024
    Left = 402
    Top = 83
  end
  object SaveDialog1: TSaveDialog
    Left = 122
    Top = 83
  end
  object ImageList1: TImageList
    Left = 202
    Top = 71
    Bitmap = {
      [encoded data, 34112 characters]
      000000000000
    }
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 150
    Top = 127
    object CheckMail: TAction
      Caption = 'Check mail'
      Hint = 'Connect to server and get headers'
      ImageIndex = 0
      OnExecute = CheckMailExecute
      Left = 845
      Top = 478
    end
    object Retrieve: TAction
      Caption = 'Retrieve'
      Hint = 'Retrieve current message'
      ImageIndex = 2
      OnExecute = RetrieveExecute
      Left = 845
      Top = 478
    end
    object Delete: TAction
      Caption = 'Delete'
      Hint = 'Mark current message for deletion'
      ImageIndex = 3
      OnExecute = DeleteExecute
      Left = 845
      Top = 478
    end
    object Purge: TAction
      Caption = 'Purge '
      Hint = 'Purge marked messages'
      ImageIndex = 4
      OnExecute = PurgeExecute
      Left = 845
      Top = 478
    end
    object Disconnect: TAction
      Caption = 'Disconnect'
      Hint = 'Disconnect from server without purging'
      ImageIndex = 1
      OnExecute = DisconnectExecute
      Left = 845
      Top = 478
    end
    object Setup: TAction
      Caption = 'Setup'
      Hint = 'Setup POP/SMTP'
      ImageIndex = 6
      OnExecute = SetupExecute
      Left = 845
      Top = 478
    end
    object Send: TAction
      Caption = 'Send'
      Hint = 'Send a new message'
      ImageIndex = 5
      OnExecute = SendExecute
      Left = 845
      Top = 478
    end
  end
  object Msg: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    ContentType = 'text/plain'
    DeleteTempFiles = False
    Encoding = meMIME
    Recipients = <>
    ReplyTo = <>
    Left = 285
    Top = 133
  end
  object IdAntiFreeze1: TIdAntiFreeze
    OnlyWhenIdle = False
    Left = 448
    Top = 82
  end
end
