frmreadusermail.dfm

Mailserver Source code - Delphi. Simple Mail server source code. SMTP and POP3 protocols.

object FrmReadUserMail1: TFrmReadUserMail1
  Left = 178
  Top = 131
  Align = alClient
  BorderStyle = bsNone
  Caption = 'FrmReadUserMail1'
  ClientHeight = 348
  ClientWidth = 535
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 128
    Top = 56
    Width = 8
    Height = 292
    Beveled = True
    ResizeStyle = rsUpdate
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 535
    Height = 23
    Align = alTop
    BevelOuter = bvLowered
    Caption = #29992#25143#37038#20214#26597#35810
    Color = clGray
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 23
    Width = 535
    Height = 3
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
  end
  object Panel5: TPanel
    Left = 0
    Top = 26
    Width = 535
    Height = 30
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 84
      Height = 12
      Caption = #36873#25321#25152#23646#22495#21517#65306
    end
    object ComboBox1: TComboBox
      Left = 96
      Top = 3
      Width = 145
      Height = 20
      Style = csDropDownList
      Ctl3D = True
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      OnSelect = ComboBox1Select
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 56
    Width = 128
    Height = 292
    Align = alLeft
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 126
      Height = 49
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 84
        Height = 12
        Caption = #36873#25321#37038#20214#29366#24577#65306
      end
      object ComboBox2: TComboBox
        Left = 8
        Top = 24
        Width = 113
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 0
        OnSelect = ListView1Click
        Items.Strings = (
          #25910#20214#31665
          #21457#20214#31665
          #25910#34255#31665
          #22403#22334#31665
          #24050#21024#38500#37038#20214
          #24453#36716#21457#37038#20214
          #24050#36716#21457#37038#20214
          #36716#21457#22833#36133#37038#20214)
      end
    end
    object ListView1: TListView
      Left = 0
      Top = 73
      Width = 126
      Height = 217
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Columns = <
        item
          Width = 20
        end
        item
          Caption = 'ID'
          Width = 0
        end
        item
          Caption = #24080#21495#21517#31216
          Width = 100
        end>
      ColumnClick = False
      HideSelection = False
      ReadOnly = True
      RowSelect = True
      SmallImages = ImageList1
      SortType = stBoth
      TabOrder = 1
      ViewStyle = vsReport
      OnClick = ListView1Click
    end
    object Panel6: TPanel
      Left = 0
      Top = 49
      Width = 126
      Height = 22
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 84
        Height = 12
        Caption = #36873#25321#29992#25143#24080#21495#65306
      end
    end
    object Panel7: TPanel
      Left = 0
      Top = 71
      Width = 126
      Height = 2
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 3
    end
  end
  object Panel8: TPanel
    Left = 136
    Top = 56
    Width = 399
    Height = 292
    Align = alClient
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 4
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 399
      Height = 292
      Align = alClient
      Ctl3D = False
      DataSource = UnitDataModule1.DS_RUMail
      Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'MAILID'
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MAILFROM'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SUBJECT'
          Width = 160
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MAILDATE'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MAILSIZE'
          Visible = True
        end>
    end
  end
  object ImageList1: TImageList
    Height = 14
    Left = 457
    Top = 296
    Bitmap = {
      494C010101000400040010000E00FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000000E00000001001000000000000007
      00000000000000000000000000000000000000000000A530A530A530A530A530
      A530A530A5303967000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A5302F77CC6AAB66AB668A66
      8A668A668A66A530396700000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530927F507B2F770E770E77
      2D7B2D7BEB76A530396700000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530B57F947F917F707F4F7F
      4F7FA530A530A530396700000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530B67FB47F927F717F507B
      A530ED72CC6AA530396700000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530D77FB57F937F927F5177
      2F770E73ED6EA530396700000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530D87FB67FB47F937F927F
      717B2F77A530A530A53039670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530D97FD77FD57FB47FB47F
      927F5177EF6ACD66A53039670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530F97FD87FD67FD57FB57F
      B47FB57F927F0F6FA53039670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530FA7FF97FD77FD67FB57F
      B47F2108B57F3173A53039670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530FA7FF97FF87FF77FB67B
      74772108947B316FA53039670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530FB7FFB7FFA7FFA7FF97F
      D77FD67FD67F7373A53039670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000A530FD7FFD7FFC7FFC7FFC7F
      FB7FFB7FFA7FD77FA53039670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000A530A530A530A530A530
      A530A530A530A530A53000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      28000000400000000E0000000100010000000000700000000000000000000000
      000000000000000000000000FFFFFF00C01F000000000000800F000000000000
      800F000000000000800F000000000000800F000000000000800F000000000000
      8007000000000000800700000000000080070000000000008007000000000000
      800700000000000080070000000000008007000000000000C00F000000000000
      00000000000000000000000000000000000000000000}
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = PopupMenu1Popup
    Left = 424
    Top = 296
    object N1: TMenuItem
      Caption = #26597#30475#37038#20214
      OnClick = DBGrid1DblClick
    end
    object N2: TMenuItem
      Caption = #32479#35745#20449#24687
      OnClick = N2Click
    end
  end
end