PC World Komputer 1998 July & August/Pcwk78a98.iso/E-MAIL/Emailnot/_SETUP.1/CIECHECK.exe/0/RCDATA/TFORM2/TFORM2.txt

Text File | 1998-05-06 | 6KB | 285 lines

object Form2: TForm2
  Left = 154
  Top = 87
  Width = 606
  Height = 392
  HelpContext = 20
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'New E-mail !'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 598
    Height = 28
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 232
      Top = 7
      Width = 161
      Height = 16
      Alignment = taCenter
      Caption = 'You have 1 new E-mail  !'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 219
    Width = 598
    Height = 43
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object Button1: TButton
      Left = 4
      Top = 8
      Width = 57
      Height = 27
      Caption = 'View Mail'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 60
      Top = 8
      Width = 62
      Height = 27
      Caption = 'Delete Mail'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 234
      Top = 8
      Width = 91
      Height = 27
      Caption = 'Add to Spam List'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button2: TButton
      Left = 324
      Top = 8
      Width = 119
      Height = 27
      Caption = 'Launch E-mail Reader'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button2Click
    end
    object ProgressBar1: TProgressBar
      Left = 446
      Top = 10
      Width = 143
      Height = 21
      Min = 0
      Max = 100
      TabOrder = 4
      Visible = False
    end
    object Button5: TButton
      Left = 122
      Top = 8
      Width = 112
      Height = 27
      Caption = 'Add to Address Book'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = Button5Click
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 28
    Width = 598
    Height = 191
    Align = alClient
    TabOrder = 2
    object StringGrid1: TSortGrid
      Left = 1
      Top = 1
      Width = 596
      Height = 189
      Hint = 'Click right button to activate menu'
      Align = alClient
      ColCount = 11
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 2
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 0
      OnDblClick = StringGrid1DblClick
      OnMouseUp = StringGrid1MouseUp
      MultiSelect = True
      OnEndSort = StringGrid1EndSort
      ColWidths = (
        84
        192
        105
        49
        47
        107
        2
        2
        2
        2
        2)
    end
    object StringGrid2: TStringGrid
      Left = 499
      Top = 31
      Width = 73
      Height = 49
      ColCount = 6
      TabOrder = 1
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 262
    Width = 598
    Height = 97
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 596
      Height = 95
      Align = alClient
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Lines.Strings = (
        'Memo1')
      ParentFont = False
      TabOrder = 0
    end
    object Memo3: TMemo
      Left = 205
      Top = 1000
      Width = 2400
      Height = 89
      Lines.Strings = (
        'Memo3')
      TabOrder = 1
      Visible = False
    end
    object Memo4: TMemo
      Left = 413
      Top = 1000
      Width = 2400
      Height = 89
      Lines.Strings = (
        'Memo4')
      TabOrder = 2
      Visible = False
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 114
    Top = 6
    object ViewMail1: TMenuItem
      Caption = 'View Mail'
      HelpContext = 310
      ShortCut = 0
      OnClick = ViewMail1Click
    end
    object DeleteMail1: TMenuItem
      Caption = 'Delete Mail'
      HelpContext = 320
      ShortCut = 0
      OnClick = DeleteMail1Click
    end
    object AddtoAddressBook1: TMenuItem
      Caption = 'Add to Address Book'
      HelpContext = 330
      ShortCut = 0
      OnClick = AddtoAddressBook1Click
    end
    object AddtoSpamList1: TMenuItem
      Caption = 'Add to Spam List'
      HelpContext = 340
      ShortCut = 0
      OnClick = AddtoSpamList1Click
    end
    object Setconfirm1: TMenuItem
      Caption = 'Set confirm to delete'
      HelpContext = 350
      ShortCut = 0
      OnClick = Setconfirm1Click
    end
  end
  object msPOP1: TmsRemotePOP
    WinsockLoaded = True
    DefaultPort = 110
    OnProgress = msPOP1Progress
    Left = 67
    Top = 4
  end
  object GoToWeb1: TGoToWeb
    Url = 'http://www.mygale.org/~cresto/'
    EMail = '[e-mail]'
    BrowserState = gwMaximized
    Left = 419
    Top = 280
  end
end