object AddressSelector: TAddressSelector Left = 219 Top = 121 BorderIcons = [biSystemMenu, biMaximize] AutoScroll = False Caption = 'Pick e-mail addresses' ClientHeight = 336 ClientWidth = 492 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object pnClient: TPanel Left = 0 Top = 0 Width = 492 Height = 295 Align = alClient TabOrder = 0 object pnSeparator: TSplitter Left = 250 Top = 1 Width = 3 Height = 293 Cursor = crHSplit MinSize = 150 end object pnBook: TPanel Left = 1 Top = 1 Width = 249 Height = 293 Align = alLeft BevelOuter = bvNone TabOrder = 0 object pnButtons: TPanel Left = 222 Top = 32 Width = 27 Height = 261 Align = alRight BevelOuter = bvNone TabOrder = 2 object bAdd: TButton Left = 1 Top = 17 Width = 24 Height = 24 Caption = '>' TabOrder = 1 OnClick = bAddClick end object bDel: TButton Left = 2 Top = 97 Width = 24 Height = 24 Caption = '<' TabOrder = 2 OnClick = bDelClick end object bDelAll: TButton Left = 2 Top = 129 Width = 24 Height = 24 Caption = '<<' TabOrder = 3 OnClick = bDelAllClick end object bDel_All: TButton Left = 2 Top = 161 Width = 24 Height = 24 Caption = '<<<' TabOrder = 4 OnClick = bDel_AllClick end object bMenu: TButton Left = 2 Top = 198 Width = 24 Height = 24 Caption = '&?' TabOrder = 0 OnClick = bMenuClick end object bAddAll: TButton Left = 1 Top = 48 Width = 24 Height = 24 Caption = '>>' TabOrder = 5 OnClick = bAddAllClick end end object pnTop: TPanel Left = 0 Top = 0 Width = 249 Height = 32 Align = alTop BevelOuter = bvNone TabOrder = 0 OnResize = pnTopResize object cbBook: TComboBox Left = 2 Top = 3 Width = 241 Height = 26 Style = csOwnerDrawFixed ItemHeight = 20 TabOrder = 0 OnChange = cbBookChange OnDrawItem = cbBookDrawItem end end object pnAddr: TPanel Left = 0 Top = 32 Width = 222 Height = 261 Align = alClient BevelOuter = bvNone BorderWidth = 2 TabOrder = 1 object gAddr: TAddressBookGrid Left = 2 Top = 19 Width = 218 Height = 203 Align = alClient DefaultRowHeight = 18 DefaultDrawing = False FixedRows = 0 Options = [goThumbTracking] PopupMenu = GridPopup TabOrder = 0 OnDblClick = gAddrDblClick OnKeyPress = gAddrKeyPress OnMouseDown = gAddrMouseDown Header = hBook ReadOnly = True RowHeights = ( 18 18 18 18 18) end object hBook: THeaderControl Left = 2 Top = 2 Width = 218 Height = 17 Hint = 'nograb' Sections = < item AllowClick = False MaxWidth = 20 MinWidth = 20 Width = 20 end item Text = 'Name' Width = 150 end> OnSectionResize = hBookSectionResize end object pnSearch: TPanel Left = 2 Top = 222 Width = 218 Height = 37 Align = alBottom BevelOuter = bvNone TabOrder = 2 OnResize = pnSearchResize object lSearch: TLabel Left = 8 Top = 12 Width = 66 Height = 13 Caption = '&Quick search:' FocusControl = eSearch end object eSearch: TEdit Left = 80 Top = 8 Width = 129 Height = 21 PopupMenu = pmSearch TabOrder = 0 OnChange = eSearchChange end end end end object xPages: TPageControl Left = 253 Top = 1 Width = 238 Height = 293 ActivePage = tsTo Align = alClient TabOrder = 1 OnChange = xPagesChange OnDragDrop = xPagesDragDrop OnDragOver = xPagesDragOver object tsTo: TTabSheet Caption = 'TO' OnDragOver = xPagesDragOver object l_To: TListBox Left = 0 Top = 0 Width = 230 Height = 265 Align = alClient DragMode = dmAutomatic ItemHeight = 13 MultiSelect = True Sorted = True TabOrder = 0 OnDragDrop = l_ToDragDrop OnDragOver = l_ToDragOver OnKeyDown = l_BCCKeyDown end end object tsCC: TTabSheet Tag = 1 Caption = 'CC' OnDragOver = xPagesDragOver object l_CC: TListBox Left = 0 Top = 0 Width = 230 Height = 265 Align = alClient DragMode = dmAutomatic ItemHeight = 13 MultiSelect = True Sorted = True TabOrder = 0 OnDragDrop = l_ToDragDrop OnDragOver = l_ToDragOver OnKeyDown = l_BCCKeyDown end end object tsBCC: TTabSheet Caption = 'BCC' OnDragOver = xPagesDragOver object l_BCC: TListBox Left = 0 Top = 0 Width = 230 Height = 265 Align = alClient DragMode = dmAutomatic ItemHeight = 13 MultiSelect = True Sorted = True TabOrder = 0 OnDragDrop = l_ToDragDrop OnDragOver = l_ToDragOver OnKeyDown = l_BCCKeyDown end end end end object pnBottom: TPanel Left = 0 Top = 295 Width = 492 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 1 object cbAddAll: TCheckBox Left = 7 Top = 13 Width = 306 Height = 17 Caption = '&Add secondary addresses to BCC' TabOrder = 0 end object pnBottomBtn: TPanel Left = 312 Top = 0 Width = 180 Height = 41 Align = alRight BevelOuter = bvNone TabOrder = 1 object bOK: TButton Left = 3 Top = 7 Width = 76 Height = 25 Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = bOKClick end object bCancel: TButton Left = 88 Top = 7 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end end end object pmSearch: TPopupMenu Left = 116 Top = 193 object msFilter: TMenuItem Caption = '&Filter' Default = True ShortCut = 13 OnClick = msFilterClick end object msFilterColumn: TMenuItem Caption = 'Filter &Column' ShortCut = 8205 OnClick = msFilterColumnClick end object msFindNext: TMenuItem Caption = 'Find &Next' ShortCut = 16397 OnClick = msFindNextClick end object msFindPrev: TMenuItem Tag = 1 Caption = 'Find &Previous' ShortCut = 24589 OnClick = msFindNextClick end object N11: TMenuItem Caption = '-' ShortCut = 0 end object msUndo: TMenuItem Caption = '&Undo' ShortCut = 0 OnClick = msUndoClick end object N13: TMenuItem Caption = '-' ShortCut = 0 end object msCut: TMenuItem Caption = 'C&ut' ShortCut = 16472 OnClick = msCutClick end object msCopy: TMenuItem Caption = 'C&opy' ShortCut = 16451 OnClick = msCopyClick end object msPaste: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = msPasteClick end object N12: TMenuItem Caption = '-' ShortCut = 0 end object msSelectAll: TMenuItem Caption = 'Select all' ShortCut = 16449 OnClick = msSelectAllClick end object qsAdd: TMenuItem Caption = 'Add' ShortCut = 32817 Visible = False OnClick = bAddClick end object qsAddAll: TMenuItem Caption = 'Add All' ShortCut = 32818 Visible = False OnClick = mgAddAllClick end object qsRemove: TMenuItem Caption = 'Remove' ShortCut = 32819 Visible = False OnClick = bDelClick end object qsRemoveAll: TMenuItem Caption = 'Remove All' ShortCut = 32820 Visible = False OnClick = bDelAllClick end object qsRemoveTOCCBCC: TMenuItem Caption = 'Remove TO/CC/BCC' ShortCut = 32821 Visible = False OnClick = bDel_AllClick end end object LDAP1: TLDAPClient AutoBind = True SearchDerefAliases = ldaNever SearchScope = lssWholeSubtree SearchSizeLimit = 0 SearchTimeLimit = 0 Port = 389 Authentication = laNone OnConnectFail = LDAP1ConnectFail OnBind = LDAP1Bind OnBindFail = LDAP1BindFail OnFound = LDAP1Found OnSearchDone = LDAP1SearchDone Left = 177 Top = 113 end object tmSearch: TTimer Enabled = False Interval = 200 OnTimer = tmSearchTimer Left = 57 Top = 105 end object tmLdapSearch: TTimer Enabled = False Interval = 2000 OnTimer = tmLdapSearchTimer Left = 113 Top = 137 end object GridPopup: TPopupMenu Left = 73 Top = 193 object mgAdd: TMenuItem Caption = 'Add' ShortCut = 32817 OnClick = bAddClick end object mgAddAll: TMenuItem Caption = 'Add All' ShortCut = 32818 OnClick = mgAddAllClick end object mgRemove: TMenuItem Caption = 'Remove' ShortCut = 32819 OnClick = bDelClick end object mgRemoveAll: TMenuItem Caption = 'Remove All' ShortCut = 32820 OnClick = bDelAllClick end object mgRemoveTOCCBCC: TMenuItem Caption = 'Remove TO/CC/BCC' ShortCut = 32821 OnClick = bDel_AllClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object mgSelectAll: TMenuItem Caption = 'Select All' ShortCut = 16449 OnClick = mgSelectAllClick end end end