frmreceive.dfm

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

object FrmReceive1: TFrmReceive1
  Left = 112
  Top = 71
  Align = alClient
  BorderStyle = bsNone
  Caption = 'FrmReceive1'
  ClientHeight = 418
  ClientWidth = 648
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 648
    Height = 23
    Align = alTop
    BevelOuter = bvLowered
    Caption = #26597#35810#25509#25910#37038#20214'('#31354#30333#20026#24573#30053#35813#26465#20214')'
    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 = 648
    Height = 3
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
  end
  object Panel3: TPanel
    Left = 0
    Top = 26
    Width = 648
    Height = 78
    Align = alTop
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label1: TLabel
      Left = 192
      Top = 2
      Width = 60
      Height = 12
      Caption = #29992#25143#24080#21495#65306
    end
    object Label2: TLabel
      Left = 334
      Top = 2
      Width = 198
      Height = 12
      Caption = #25509#25910#26085#26399#65306'(eg:2003-2-19 16:20:08)'
    end
    object Label3: TLabel
      Left = 538
      Top = 2
      Width = 78
      Height = 12
      Caption = #21457#20449#20154'email'#65306
    end
    object Label4: TLabel
      Left = 5
      Top = 42
      Width = 60
      Height = 12
      Caption = #37038#20214#26631#39064#65306
    end
    object Label5: TLabel
      Left = 180
      Top = 42
      Width = 132
      Height = 12
      Caption = #37038#20214#22823#23567#65306'(eg:450'#23383#33410')'
    end
    object Label6: TLabel
      Left = 336
      Top = 43
      Width = 60
      Height = 12
      Caption = #37038#20214#29366#24577#65306
    end
    object Label7: TLabel
      Left = 439
      Top = 43
      Width = 60
      Height = 12
      Caption = #36820#22238#34892#25968#65306
    end
    object Label8: TLabel
      Left = 428
      Top = 22
      Width = 12
      Height = 12
      Caption = '->'
    end
    object Label9: TLabel
      Left = 240
      Top = 59
      Width = 12
      Height = 12
      Caption = '->'
    end
    object Label10: TLabel
      Left = 93
      Top = 2
      Width = 60
      Height = 12
      Caption = #36873#25321#22495#21517#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 544
      Top = 52
      Width = 73
      Height = 22
      Caption = #26597#35810
      Flat = True
      OnClick = SpeedButton1Click
    end
    object Label11: TLabel
      Left = 5
      Top = 2
      Width = 84
      Height = 12
      Caption = #36873#25321#37038#20214#31867#22411#65306
    end
    object Edit1: TEdit
      Left = 192
      Top = 18
      Width = 137
      Height = 18
      TabOrder = 0
      OnKeyPress = EditKeyPress
    end
    object Edit2: TEdit
      Left = 334
      Top = 18
      Width = 92
      Height = 18
      TabOrder = 1
      OnKeyPress = EditKeyPress
    end
    object Edit3: TEdit
      Left = 441
      Top = 18
      Width = 92
      Height = 18
      TabOrder = 2
      OnKeyPress = EditKeyPress
    end
    object Edit4: TEdit
      Left = 538
      Top = 18
      Width = 79
      Height = 18
      TabOrder = 3
      OnKeyPress = EditKeyPress
    end
    object Edit5: TEdit
      Left = 5
      Top = 55
      Width = 164
      Height = 18
      TabOrder = 4
      OnKeyPress = EditKeyPress
    end
    object Edit6: TEdit
      Left = 184
      Top = 55
      Width = 49
      Height = 18
      TabOrder = 5
      OnKeyPress = EditKeyPress
    end
    object Edit7: TEdit
      Left = 256
      Top = 55
      Width = 49
      Height = 18
      TabOrder = 6
      OnKeyPress = EditKeyPress
    end
    object edit8: TComboBox
      Left = 336
      Top = 55
      Width = 89
      Height = 20
      BevelKind = bkFlat
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 7
      OnKeyPress = EditKeyPress
      Items.Strings = (
        #25910#20214#31665
        #21457#20214#31665
        #25910#34255#31665
        #22403#22334#31665
        #24443#24213#21024#38500
        '')
    end
    object Edit9: TEdit
      Left = 440
      Top = 56
      Width = 57
      Height = 18
      TabOrder = 8
      OnKeyPress = EditKeyPress
    end
    object ComboBox1: TComboBox
      Left = 93
      Top = 18
      Width = 92
      Height = 20
      BevelKind = bkFlat
      ItemHeight = 12
      TabOrder = 9
      OnKeyPress = EditKeyPress
    end
    object ComboBox2: TComboBox
      Left = 5
      Top = 18
      Width = 84
      Height = 20
      BevelKind = bkFlat
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 10
      Text = #25509#21463
      OnKeyPress = EditKeyPress
      OnSelect = ComboBox2Select
      Items.Strings = (
        #25509#21463
        #36716#21457)
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 104
    Width = 648
    Height = 314
    Align = alClient
    DataSource = UnitDataModule1.DS_Receive
    Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu1
    TabOrder = 3
    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 = 'USERID'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MAILFROM'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUBJECT'
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MAILDATE'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MAILSIZE'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MAILBOX'
        Visible = True
      end>
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = PopupMenu1Popup
    Left = 400
    Top = 304
    object N1: TMenuItem
      Caption = #26597#30475
      OnClick = DBGrid1DblClick
    end
    object N2: TMenuItem
      Caption = #32479#35745#20449#24687
      OnClick = N2Click
    end
  end
end