object frmEmailList: TfrmEmailList Left = 7 Top = 12 Width = 625 Height = 449 BorderIcons = [biSystemMenu, biMaximize] Caption = 'E-mail List' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 617 Height = 33 Align = alTop TabOrder = 0 object SpeedButton2: TSpeedButton Left = 8 Top = 4 Width = 25 Height = 25 Hint = 'Delete Message' Glyph.Data = { 36030000424D360300000000000036000000280000000F000000100000000100 1800000000000003000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF000000BFBFBFFFFFFFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF 000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000 00BFBFBFBFBFBF7F0000BFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF BFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBF BFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BF BFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000 0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BF BFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF 000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBF BFBFBFBFBFBFBF000000BFBFBF000000000000000000000000BFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBF000000BFBFBF000000 000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000 00000000BFBFBFD80800BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF6C7068BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBF6E7461BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton6: TSpeedButton Left = 41 Top = 4 Width = 25 Height = 25 Hint = 'Find' Glyph.Data = { AA030000424DAA03000000000000360000002800000011000000110000000100 1800000000007403000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBF000000000000BFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF00BFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF00000000 0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBF000000000000000000BFBFBF7F 7F7F0000000000000000000000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBF00BFBF BFBFBFBFBFBFBFBFBFBF000000000000000000000000BFBFBFBFBFBFBFBFBFBF BFBF000000000000BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF BF0000007F7F7FFFFF00FFFF00BFBFBFBFBFBFBFBFBFBFBFBF7F7F7F000000BF BFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF7F7F7F000000BFBFBFFFFF00BFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7FBFBFBF00BFBFBFBFBFBF BFBFBFBFBFBF000000BFBFBFFFFF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBF000000BFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF BF00BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFFFFF00BFBFBF000000BFBFBF00BFBFBFBFBFBFBFBFBFBF BFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFF00 BFBFBF000000BFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF7F7F7F000000BFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFF00FFFF000000007F7F7FBFBFBF00BFBF BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7FBFBFBFBFBFBFBFBFBFFFFF00FF FF00FFFF007F7F7F000000BFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBF BFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F0000 000000000000000000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBF00} ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object Search: TSpeedButton Left = 66 Top = 4 Width = 25 Height = 25 Hint = 'Search' Glyph.Data = { 0E030000424D0E030000000000003600000028000000110000000E0000000100 180000000000D802000000000000000000000000000000000000BFBFBF000000 000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000 00000000000000000000BFBFBFFFBFBFBF000000FFFFFF000000000000000000 BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFF000000000000000000BFBF BFFFBFBFBF000000FFFFFF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF BFBFBF000000FFFFFF000000000000000000BFBFBFFFBFBFBF00000000000000 0000000000000000000000000000BFBFBF000000000000000000000000000000 000000000000BFBFBFFFBFBFBF000000000000FFFFFF00000000000000000000 0000000000000000FFFFFF000000000000000000000000000000BFBFBFFFBFBF BF000000000000FFFFFF000000000000000000BFBFBF000000000000FFFFFF00 0000000000000000000000000000BFBFBFFFBFBFBF000000000000FFFFFF0000 00000000000000BFBFBF000000000000FFFFFF00000000000000000000000000 0000BFBFBFFFBFBFBFBFBFBF0000000000000000000000000000000000000000 00000000000000000000000000000000000000BFBFBFBFBFBFFFBFBFBFBFBFBF BFBFBF000000FFFFFF000000000000000000BFBFBF000000FFFFFF0000000000 00000000BFBFBFBFBFBFBFBFBFFFBFBFBFBFBFBFBFBFBF000000000000000000 000000000000BFBFBF000000000000000000000000000000BFBFBFBFBFBFBFBF BFFFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBF 000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBF BFBF000000FFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFF000000BFBFBF BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BF BFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00} ParentShowHint = False ShowHint = True OnClick = SearchClick end object SpeedButton8: TSpeedButton Left = 129 Top = 4 Width = 25 Height = 25 Hint = 'Save Message As ...' Glyph.Data = { B6030000424DB603000000000000360000002800000012000000100000000100 1800000000008003000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7FFFBFBFBFBFBFBFBFBFBF0000000000 0000000000000000000000000000000000000000000000000000000000000000 0000BFBFBFBFBFBFFFFFBFBFBFBFBFBF000000007F7F007F7F00000000000000 0000000000000000000000BFBFBFBFBFBF000000007F7F000000BFBFBFBFBFBF FFFFBFBFBFBFBFBF000000007F7F007F7F000000000000000000000000000000 000000BFBFBFBFBFBF000000007F7F000000BFBFBFBFBFBFFEFFBFBFBFBFBFBF 000000007F7F007F7F000000000000000000000000000000000000BFBFBFBFBF BF000000007F7F000000BFBFBFBFBFBFFFFFBFBFBFBFBFBF000000007F7F007F 7F000000000000000000000000000000000000000000000000000000007F7F00 0000BFBFBFBFBFBF7FFFBFBFBFBFBFBF000000007F7F007F7F007F7F007F7F00 7F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000BFBFBFBFBFBF FFFFBFBFBFBFBFBF000000007F7F007F7F000000000000000000000000000000 000000000000000000007F7F007F7F000000BFBFBFBFBFBFFFFFBFBFBFBFBFBF 000000007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF000000007F7F000000BFBFBFBFBFBFFEFFBFBFBFBFBFBF000000007F7F0000 00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000007F7F00 0000BFBFBFBFBFBFFFFFBFBFBFBFBFBF000000007F7F000000BFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000007F7F000000BFBFBFBFBFBF 0000BFBFBFBFBFBF000000007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF000000007F7F000000BFBFBFBFBFBF0000BFBFBFBFBFBF 000000007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF000000000000000000BFBFBFBFBFBF0000BFBFBFBFBFBF000000007F7F0000 00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF00 0000BFBFBFBFBFBF0000BFBFBFBFBFBF00000000000000000000000000000000 0000000000000000000000000000000000000000000000000000BFBFBFBFBFBF 0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000} ParentShowHint = False ShowHint = True OnClick = SpeedButton8Click end object SpeedButton1: TSpeedButton Left = 154 Top = 4 Width = 25 Height = 25 Hint = 'Report' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000 00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0 00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF 0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF 0033333337FFFFFF7733333330000000033333333777777773330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object btnGoToUrl: TSpeedButton Left = 98 Top = 4 Width = 24 Height = 25 Hint = 'Go To Contact' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = btnGoToUrlClick end object SpeedButton9: TSpeedButton Left = 179 Top = 4 Width = 25 Height = 25 Hint = 'Print The Selected Message' Glyph.Data = { EE030000424DEE03000000000000360000002800000012000000110000000100 180000000000B803000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000 00000000000000000000000000000000000000000000000000000000BFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBFBF 7F00BFBFBF000000000000000000000000000000000000000000000000000000 000000000000000000000000BFBFBF000000BFBFBFBFBFBF7F00BFBFBF000000 BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF00FFFF00FFFFBFBFBFBFBF BF000000000000000000BFBFBFBFBFBF7F00BFBFBF000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF000000BFBFBF00 0000BFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000000000 0000000000000000000000000000000000000000BFBFBFBFBFBF000000BFBFBF BFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBF000000BFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBFBFBFBF 000000000000000000000000000000000000000000000000000000000000BFBF BF000000BFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBF000000BF BFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFF00000000 0000000000000000000000FFFFFF000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF000000FFFFFF000000000000000000000000000000FFFF FF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000 0000000000000000000000000000000000000000000000BFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF309D} ParentShowHint = False ShowHint = True OnClick = SpeedButton9Click end object BitBtn1: TBitBtn Left = 516 Top = 4 Width = 67 Height = 25 TabOrder = 0 OnClick = BitBtn1Click Kind = bkClose end object cmbInOut: TComboBox Left = 278 Top = 6 Width = 93 Height = 21 ItemHeight = 13 Items.Strings = ( 'All' 'Sent' 'Received') TabOrder = 1 Text = 'All' OnChange = cmbInOutChange end object Button1: TButton Left = 210 Top = 4 Width = 61 Height = 25 Caption = 'Attached' TabOrder = 2 OnClick = Button1Click end end object grdEmailList: TwwDBGrid Left = 0 Top = 33 Width = 617 Height = 304 Selected.Strings = ( 'Subject'#9'30'#9'Subject' 'SenderName'#9'20'#9'From/To Name' 'SenderEmail'#9'25'#9'From/To E-mail' 'DateCreated'#9'10'#9'Created' 'Remark'#9'40'#9'Remark' 'statusField'#9'10'#9'Status') TitleColor = 8388672 FixedCols = 0 ShowHorzScrollBar = True Align = alClient Color = 14417919 DataSource = frmDataModule.DSEmailFull Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 TitleAlignment = taCenter TitleFont.Color = clAqua TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [fsBold] TitleLines = 1 TitleButtons = True OnCalcTitleAttributes = grdEmailListCalcTitleAttributes OnTitleButtonClick = grdEmailListTitleButtonClick OnDblClick = btnGoToUrlClick IndicatorColor = icYellow end object Splitter: TPanel Left = 0 Top = 337 Width = 617 Height = 4 Cursor = crVSplit Align = alBottom Color = 10485760 TabOrder = 2 OnMouseDown = SplitterMouseDown OnMouseMove = SplitterMouseMove OnMouseUp = SplitterMouseUp end object pnlMemo: TPanel Left = 0 Top = 341 Width = 617 Height = 81 Align = alBottom TabOrder = 3 object DBEmailBody: TDBMemo Left = 1 Top = 1 Width = 615 Height = 79 Align = alClient Color = 14417919 DataField = 'Body' DataSource = frmDataModule.DSEmailFull ScrollBars = ssVertical TabOrder = 0 end end object srcEmailFull: TwwSearchDialog GridTitleAlignment = taLeftJustify GridColor = clWhite Options = [opShowOKCancel, opShowSearchBy, opGroupControls, opFixFirstColumn] GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit] SearchTable = frmDataModule.TBLEmailFull Caption = 'Search' MaxWidth = 0 MaxHeight = 209 CharCase = ecNormal Left = 132 Top = 70 end object fndEmailFull: TwwLocateDialog Caption = 'Locate Field Value' DataSource = frmDataModule.DSEmailFull SearchField = 'SenderName' MatchType = mtPartialMatchStart CaseSensitive = False SortFields = fsSortByFieldName DefaultButton = dbFindNext FieldSelection = fsAllFields ShowMessages = True Left = 172 Top = 66 end end