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 = {} 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 = {} 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 = {} 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 = {} 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 john@aol.com)' 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 = {} 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 = {} 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 = {} 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