PC World Komputer 1998 July & August/Pcwk78a98.iso/E-MAIL/Eremove/eremov11.exe/eremove.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-04-07 | 11.1 KB | 481 lines

object mainForm: TmainForm
  Left = 143
  Top = 138
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Email Remover'
  ClientHeight = 330
  ClientWidth = 538
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 24
    Top = 272
    Width = 465
    Height = 2
  end
  object Notebook1: TNotebook
    Left = 24
    Top = 8
    Width = 481
    Height = 265
    PageIndex = 1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnPageChanged = Notebook1PageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'CopyRight'
      object Image5: TImage
        Left = 32
        Top = 30
        Width = 100
        Height = 180
        Picture.Data = {<image000.bmp>}
        Stretch = True
      end
      object TitleLabel: TLabel
        Left = 152
        Top = 24
        Width = 130
        Height = 13
        Caption = 'Email Remover Ver 0.0'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object CopyRightLabel: TLabel
        Left = 152
        Top = 40
        Width = 262
        Height = 13
        Caption = 'Copyright, Mar 3, 1998.  Victor Javier (c) Virtual Net Inc.'
      end
      object Bevel5: TBevel
        Left = 32
        Top = 30
        Width = 100
        Height = 180
      end
      object descLabel: TLabel
        Left = 152
        Top = 64
        Width = 305
        Height = 105
        AutoSize = False
        Caption = 'More message here ...'
      end
      object TipImage: TImage
        Left = 424
        Top = 8
        Width = 32
        Height = 32
        Hint =
          'If you want to delete junk mail without reviewing,  select downl' +
          'oad email size only.'
        AutoSize = True
        Picture.Data = {<image001.ico>}
      end
      object accountGroup: TGroupBox
        Left = 152
        Top = 168
        Width = 169
        Height = 73
        TabOrder = 1
        object userIDLabel: TLabel
          Left = 8
          Top = 22
          Width = 25
          Height = 13
          Caption = 'useid'
        end
        object popServerLabel: TLabel
          Left = 9
          Top = 38
          Width = 72
          Height = 13
          Caption = 'po.domain.com'
        end
        object portLabel: TLabel
          Left = 8
          Top = 54
          Width = 24
          Height = 13
          Caption = 'pop3'
        end
        object ChangeAccountCheck: TCheckBox
          Left = 8
          Top = 0
          Width = 137
          Height = 17
          Caption = 'Change Account Setup'
          TabOrder = 0
        end
      end
      object MethodRadio: TRadioGroup
        Left = 328
        Top = 168
        Width = 137
        Height = 73
        Caption = ' Download '
        ItemIndex = 0
        Items.Strings = (
          'mail size only'
          'Include mail headers')
        TabOrder = 0
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'page_1'
      object Label1: TLabel
        Left = 144
        Top = 24
        Width = 228
        Height = 19
        Caption = 'Enter Email Account Information'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Image1: TImage
        Left = 24
        Top = 30
        Width = 100
        Height = 180
        Picture.Data = {<image002.bmp>}
        Stretch = True
      end
      object Bevel2: TBevel
        Left = 24
        Top = 30
        Width = 100
        Height = 180
      end
      object Label2: TLabel
        Left = 144
        Top = 56
        Width = 289
        Height = 65
        AutoSize = False
        Caption =
          'The Wizard needs to know below information in order to connect t' +
          'o your email server.  Click next will bring you to the pre-conne' +
          'ction screen.  You can still modify the settings later if you wi' +
          'sh.'
      end
      object Image6: TImage
        Left = 417
        Top = 8
        Width = 32
        Height = 32
        Hint =
          'These information can be obtained from your Internet Service pro' +
          'vider.  It is also available in your email client (eg. Eudora)'
        AutoSize = True
        Picture.Data = {<image003.ico>}
      end
      object C: TGroupBox
        Left = 144
        Top = 120
        Width = 297
        Height = 105
        TabOrder = 0
        object Label12: TLabel
          Left = 32
          Top = 27
          Width = 36
          Height = 13
          Caption = 'User ID'
        end
        object Label13: TLabel
          Left = 15
          Top = 77
          Width = 53
          Height = 13
          Caption = 'Pop Server'
        end
        object Label14: TLabel
          Left = 198
          Top = 76
          Width = 19
          Height = 13
          Caption = 'Port'
        end
        object Label15: TLabel
          Left = 22
          Top = 52
          Width = 46
          Height = 13
          Caption = 'Password'
        end
        object userIDEdit: TEdit
          Left = 80
          Top = 20
          Width = 65
          Height = 21
          Hint =
            'Also call account.  It is usually the first part of your email a' +
            'ddress. (eg. john of [e-mail])'
          TabOrder = 0
        end
        object popServerEdit: TEdit
          Left = 80
          Top = 71
          Width = 113
          Height = 21
          Hint = 'Your email server. (eg. po.pacific.net.sg)'
          TabOrder = 3
        end
        object portEdit: TEdit
          Left = 224
          Top = 70
          Width = 41
          Height = 21
          Hint =
            'Default port is 110 which should work for most cases.  Change on' +
            'ly when instructed by your ISP.'
          TabOrder = 4
          Text = '110'
        end
        object passWordEdit: TEdit
          Left = 80
          Top = 46
          Width = 65
          Height = 21
          Hint = 'Enter your password here'
          PasswordChar = '*'
          TabOrder = 1
        end
        object SavePasswordCheck: TCheckBox
          Left = 152
          Top = 49
          Width = 57
          Height = 17
          Hint = 'Allows you to save your password'
          Caption = 'save'
          TabOrder = 2
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'page_2'
      object Image4: TImage
        Left = 0
        Top = 0
        Width = 33
        Height = 25
        Picture.Data = {<image004.ico>}
      end
      object SelectMailLabel: TLabel
        Left = 38
        Top = 24
        Width = 379
        Height = 49
        AutoSize = False
        Caption = 'explanation here ...'
      end
      object Label8: TLabel
        Left = 40
        Top = 0
        Width = 160
        Height = 19
        Caption = 'Choose Emails to delete'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Image7: TImage
        Left = 424
        Top = 8
        Width = 32
        Height = 32
        Hint =
          'Right click on the email # and select peek will allow you to pre' +
          'view 1st 100 lines of the email'
        AutoSize = True
        Picture.Data = {<image005.ico>}
      end
      object ListView1: TListView
        Left = 8
        Top = 72
        Width = 457
        Height = 185
        Columns = <
          item
            Caption = '#'
            Width = 19
            WidthType = (
              -2)
          end
          item
            Alignment = taRightJustify
            Caption = 'Size (kb)'
            Width = 53
            WidthType = (
              -2)
          end
          item
            Alignment = taCenter
            Caption = '??'
            Width = 24
            WidthType = (
              -2)
          end
          item
            Alignment = taRightJustify
            Caption = 'Date'
            Width = 75
          end
          item
            Caption = 'Sender'
            Width = 100
          end
          item
            Caption = 'Subject'
            Width = 160
          end
          item
            Caption = 'Attach'
            Width = 12
            WidthType = (
              -1)
          end>
        ReadOnly = True
        OnMouseUp = ListView1MouseUp
        TabOrder = 0
        ViewStyle = vsReport
        OnKeyUp = ListView1KeyUp
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'page_3'
      object Image2: TImage
        Left = 24
        Top = 32
        Width = 100
        Height = 180
        AutoSize = True
        Picture.Data = {<image006.bmp>}
      end
      object Bevel3: TBevel
        Left = 24
        Top = 32
        Width = 100
        Height = 180
      end
      object FinishLabel: TLabel
        Left = 144
        Top = 64
        Width = 321
        Height = 129
        AutoSize = False
        Caption = 'Finish message here...'
      end
      object Label5: TLabel
        Left = 144
        Top = 32
        Width = 221
        Height = 19
        Caption = 'Thanks for using Email Remover'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object LaunchCheck: TCheckBox
        Left = 152
        Top = 216
        Width = 249
        Height = 17
        Caption = 'Launch my favorite email client upon exit'
        TabOrder = 0
        OnMouseUp = LaunchCheckMouseUp
      end
    end
  end
  object BackButton: TButton
    Left = 256
    Top = 288
    Width = 75
    Height = 25
    Caption = 'BackButton'
    TabOrder = 1
    OnClick = BackButtonClick
  end
  object NextButton: TButton
    Left = 336
    Top = 288
    Width = 75
    Height = 25
    Caption = 'NextButton'
    TabOrder = 2
    OnClick = NextButtonClick
  end
  object CancelButton: TButton
    Left = 416
    Top = 288
    Width = 75
    Height = 25
    Caption = 'CancelButton'
    TabOrder = 3
    OnClick = CancelButtonClick
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 112
    Top = 272
    object Select1: TMenuItem
      Caption = '&Select'
      ShortCut = 32
      OnClick = Select1Click
    end
    object SelectAll1: TMenuItem
      Caption = 'Select &All'
      ShortCut = 16449
      OnClick = SelectAll1Click
    end
    object UnselectAll1: TMenuItem
      Caption = '&Unselect All'
      ShortCut = 16469
      OnClick = UnselectAll1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Peek1: TMenuItem
      Caption = '&Peek (first 100 lines)'
      ShortCut = 13
      OnClick = Peek1Click
    end
    object Read1: TMenuItem
      Caption = '&Read (entire message)'
      ShortCut = 0
      OnClick = Read1Click
    end
  end
end