PC World Komputer 1998 July & August/Pcwk78a98.iso/Wtestowe/Netshift/_SETUP.1/NetShift.exe/0/RCDATA/TFORMEMAIL/TFORMEMAIL.txt

Text File | 1998-03-06 | 10KB | 421 lines

object FormEmail: TFormEmail
  Left = 276
  Top = 212
  BorderStyle = bsNone
  Caption = 'FormEmail'
  ClientHeight = 249
  ClientWidth = 700
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OnCreate = FormCreate
  OnHide = FormHide
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MemoMessage: TMemo
    Left = 0
    Top = 57
    Width = 700
    Height = 192
    Align = alClient
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 0
    WantTabs = True
  end
  object Notebook: TNotebook
    Left = 0
    Top = 0
    Width = 700
    Height = 57
    Align = alTop
    TabOrder = 1
    OnPageChanged = NotebookPageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'ServerInfo'
      object Label1: TLabel
        Left = 9
        Top = 9
        Width = 40
        Height = 16
        Alignment = taRightJustify
        Caption = 'Server'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 20
        Top = 33
        Width = 29
        Height = 16
        Alignment = taRightJustify
        Caption = 'User'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 264
        Top = 33
        Width = 65
        Height = 16
        Alignment = taRightJustify
        Caption = 'Password'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TiledBitmap1: TTiledBitmap
        Left = 0
        Top = 0
        Width = 700
        Height = 57
        Align = alClient
      end
      object BCancel1: TSpeedButton
        Tag = 4
        Left = 635
        Top = 8
        Width = 57
        Height = 41
        Caption = 'Cancel'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BCancel1Click
      end
      object BNew: TSpeedButton
        Tag = 4
        Left = 571
        Top = 8
        Width = 57
        Height = 41
        Caption = 'New'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BNewClick
      end
      object BGet: TSpeedButton
        Tag = 4
        Left = 507
        Top = 8
        Width = 57
        Height = 41
        Caption = 'Get Mail'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BGetClick
      end
      object EServer: TEdit
        Left = 56
        Top = 4
        Width = 441
        Height = 24
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'mail.shift-f7.com'
      end
      object EUser: TEdit
        Left = 56
        Top = 28
        Width = 153
        Height = 24
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = 'sf7k'
      end
      object EPassword: TEdit
        Left = 336
        Top = 28
        Width = 161
        Height = 24
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PasswordChar = '*'
        TabOrder = 2
        Text = 'k01:YHNU'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'GetMail'
      object TiledBitmap2: TTiledBitmap
        Left = 497
        Top = 0
        Width = 203
        Height = 57
        Align = alClient
      end
      object BReply: TSpeedButton
        Tag = 4
        Left = 507
        Top = 8
        Width = 57
        Height = 41
        Caption = 'Reply'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BReplyClick
      end
      object BDelete: TSpeedButton
        Tag = 4
        Left = 571
        Top = 8
        Width = 57
        Height = 41
        Caption = 'Delete'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BDeleteClick
      end
      object BCancel2: TSpeedButton
        Tag = 4
        Left = 635
        Top = 8
        Width = 57
        Height = 41
        Caption = 'Cancel'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BCancel2Click
      end
      object ListMessages: TListBox
        Left = 0
        Top = 0
        Width = 497
        Height = 57
        Align = alLeft
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 0
        OnClick = ListMessagesClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'SendMail'
      object Label7: TLabel
        Left = 232
        Top = 9
        Width = 40
        Height = 16
        Caption = 'cc Self'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 4
        Top = 33
        Width = 45
        Height = 16
        Alignment = taRightJustify
        Caption = 'Subject'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 18
        Top = 9
        Width = 31
        Height = 16
        Alignment = taRightJustify
        Caption = 'From'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 320
        Top = 9
        Width = 17
        Height = 16
        Alignment = taRightJustify
        Caption = 'To'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TiledBitmap3: TTiledBitmap
        Left = 0
        Top = 0
        Width = 700
        Height = 57
        Align = alClient
      end
      object BSend: TSpeedButton
        Tag = 4
        Left = 571
        Top = 8
        Width = 57
        Height = 41
        Caption = 'Send'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BSendClick
      end
      object BCancel3: TSpeedButton
        Tag = 4
        Left = 635
        Top = 8
        Width = 57
        Height = 41
        Caption = 'Cancel'
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = BCancel3Click
      end
      object ESubject: TEdit
        Left = 56
        Top = 28
        Width = 441
        Height = 24
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        Text = 'mail.shift-f7.com'
      end
      object EFrom: TEdit
        Left = 56
        Top = 4
        Width = 153
        Height = 24
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'sf7k'
      end
      object ETo: TEdit
        Left = 344
        Top = 4
        Width = 153
        Height = 24
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = 'k01:YHNU'
      end
      object CBccSelf: TCheckBox
        Left = 216
        Top = 11
        Width = 13
        Height = 13
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        State = cbChecked
        TabOrder = 1
      end
    end
  end
  object POP: TmsRemotePOP
    WinsockLoaded = True
    DefaultPort = 110
    OnOpen = Open
    OnClosed = Closed
    OnUserMessageSave = POPUserMessageSave
    Left = 72
    Top = 96
  end
  object Msg: TmsMessage
    ContentType = 'text/plain'
    ReturnReceipt = False
    Left = 112
    Top = 96
  end
  object SMTP: TmsSMTP
    WinsockLoaded = True
    DefaultPort = 25
    OnOpen = Open
    OnClosed = Closed
    MailMessage = Msg
    Left = 72
    Top = 136
  end
  object Timer: TTimer
    Enabled = False
    Interval = 1
    OnTimer = TimerTimer
    Left = 72
    Top = 176
  end
end