object LocalMailForm: TLocalMailForm Left = 13 Top = 104 Width = 602 Height = 293 HelpContext = 820 Caption = 'LocalMailForm' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnClose = FormClose OnResize = FormResize PixelsPerInch = 120 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 594 Height = 28 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 239 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 = 594 Height = 41 Align = alBottom BevelOuter = bvLowered TabOrder = 1 object Button1: TButton Left = 15 Top = 8 Width = 69 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 = 84 Top = 8 Width = 82 Height = 27 Caption = 'Delete Mail' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button3Click end object ProgressBar1: TProgressBar Left = 434 Top = 10 Width = 143 Height = 21 Min = 0 Max = 100 TabOrder = 2 Visible = False end object Button2: TButton Left = 166 Top = 8 Width = 125 Height = 27 Caption = 'Add to Address Book' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = Button2Click end end object Panel4: TPanel Left = 0 Top = 28 Width = 594 Height = 191 Align = alClient Caption = 'Panel4' TabOrder = 2 object StringGrid1: TSortGrid Left = 1 Top = 1 Width = 592 Height = 189 Hint = 'Click right button to activate menu' Align = alClient ColCount = 4 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 ShowHint = True TabOrder = 0 OnDblClick = StringGrid1DblClick OnMouseUp = StringGrid1MouseUp MultiSelect = True OnEndSort = StringGrid1EndSort ColWidths = ( 159 190 160 74) end end object PopupMenu1: TPopupMenu Left = 114 Top = 9 object ViewMail1: TMenuItem Caption = 'View Mail' HelpContext = 1110 ShortCut = 0 OnClick = ViewMail1Click end object DeleteMail1: TMenuItem Caption = 'Delete Mail' HelpContext = 1120 ShortCut = 0 OnClick = DeleteMail1Click end object AddtoAddressBook1: TMenuItem Caption = 'Add to Address Book' HelpContext = 1130 ShortCut = 0 OnClick = AddtoAddressBook1Click end object Setconfirmtodeletemail1: TMenuItem Caption = 'Set confirm to delete' HelpContext = 1140 ShortCut = 0 OnClick = Setconfirmtodeletemail1Click end end end