Chip 2004 April/CMCD0404.ISO/Software/Shareware/Comunicatii/thebat/the_bat2.04.07.exe/thebat.exe/0/RCDATA/TADDRESSSELECTOR/TADDRESSSELECTOR.txt

Text File | 2004-02-23 | 14.3 KB | 606 lines

object AddressSelector: TAddressSelector
  Left = 306
  Top = 128
  Width = 546
  Height = 361
  ActiveControl = eSearch
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Pick e-mail addresses'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnClient: TPanel
    Left = 0
    Top = 0
    Width = 538
    Height = 286
    Align = alClient
    TabOrder = 0
    object pnSeparator: TSplitter
      Left = 250
      Top = 1
      Height = 284
      MinSize = 150
    end
    object pnBook: TPanel
      Left = 1
      Top = 1
      Width = 249
      Height = 284
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object pnButtons: TPanel
        Left = 222
        Top = 32
        Width = 27
        Height = 252
        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 = 252
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        TabOrder = 1
        object pnSearch: TPanel
          Left = 2
          Top = 213
          Width = 218
          Height = 37
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 0
          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
        object nBook: TNotebook
          Left = 2
          Top = 2
          Width = 218
          Height = 211
          Align = alClient
          TabOrder = 1
          object TPage
            Left = 0
            Top = 0
            Caption = 'Default'
            object pnAB: TPanel
              Left = 0
              Top = 0
              Width = 218
              Height = 211
              Align = alClient
              BevelOuter = bvNone
              TabOrder = 0
              object hBook: THeaderControl
                Left = 0
                Top = 0
                Width = 218
                Height = 17
                Hint = 'nograb'
                Sections = <
                  item
                    AllowClick = False
                    ImageIndex = -1
                    MaxWidth = 20
                    MinWidth = 20
                    Width = 20
                  end
                  item
                    ImageIndex = -1
                    MaxWidth = 0
                    Text = 'Name'
                    Width = 0
                  end>
                OnSectionResize = hBookSectionResize
              end
              object gAddr: TAddressBookGrid
                Left = 0
                Top = 17
                Width = 218
                Height = 194
                Align = alClient
                DefaultRowHeight = 18
                DefaultDrawing = False
                FixedRows = 0
                GridLineWidth = 0
                Options = [goThumbTracking]
                PopupMenu = GridPopup
                TabOrder = 1
                OnClick = gAddrClick
                OnDblClick = gAddrDblClick
                OnKeyDown = gAddrKeyDown
                OnKeyPress = gAddrKeyPress
                OnMouseDown = gAddrMouseDown
                Header = hBook
                ReadOnly = True
                RowHeights = (
                  18
                  18
                  18
                  18
                  18)
              end
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'DBpage'
            object pnDB: TPanel
              Left = 0
              Top = 0
              Width = 218
              Height = 213
              Align = alClient
              BevelOuter = bvNone
              TabOrder = 0
              object dbHeader: THeaderControl
                Left = 0
                Top = 0
                Width = 218
                Height = 17
                Sections = <
                  item
                    ImageIndex = -1
                    MaxWidth = 24
                    MinWidth = 24
                    Width = 24
                  end
                  item
                    ImageIndex = -1
                    Width = 200
                  end>
                OnSectionResize = dbHeaderSectionResize
              end
              object dbGrid: TADBGrid
                Left = 0
                Top = 17
                Width = 218
                Height = 196
                Align = alClient
                ColCount = 2
                DefaultDrawing = False
                FixedCols = 0
                FixedRows = 0
                GridLineWidth = 0
                Options = []
                TabOrder = 1
                OnMouseDown = dbGridMouseDown
                SortBy = 0
                Header = dbHeader
              end
            end
          end
        end
      end
    end
    object pnLists: TPanel
      Left = 253
      Top = 1
      Width = 284
      Height = 284
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object xPages: TPageControl
        Left = 0
        Top = 0
        Width = 284
        Height = 243
        ActivePage = tsTo
        Align = alClient
        TabOrder = 0
        OnChange = xPagesChange
        OnDragDrop = xPagesDragDrop
        OnDragOver = xPagesDragOver
        object tsTo: TTabSheet
          Caption = 'TO'
          OnDragOver = xPagesDragOver
          object l_To: TListBox
            Left = 0
            Top = 0
            Width = 276
            Height = 215
            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 = 276
            Height = 215
            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 = 276
            Height = 215
            Align = alClient
            DragMode = dmAutomatic
            ItemHeight = 13
            MultiSelect = True
            Sorted = True
            TabOrder = 0
            OnDragDrop = l_ToDragDrop
            OnDragOver = l_ToDragOver
            OnKeyDown = l_BCCKeyDown
          end
        end
      end
      object pnAdd: TPanel
        Left = 0
        Top = 243
        Width = 284
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        Constraints.MinWidth = 150
        TabOrder = 1
        OnResize = pnAddResize
        object eAdd: TEdit
          Left = 8
          Top = 10
          Width = 185
          Height = 21
          TabOrder = 0
          OnChange = eAddEnter
          OnEnter = eAddEnter
          OnExit = eAddEnter
        end
        object bAddToList: TButton
          Left = 200
          Top = 8
          Width = 81
          Height = 25
          Caption = 'Add'
          Enabled = False
          TabOrder = 1
          OnClick = bAddToListClick
        end
      end
    end
  end
  object pnBottom: TPanel
    Left = 0
    Top = 286
    Width = 538
    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 = 358
      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 = '-'
    end
    object msUndo: TMenuItem
      Caption = '&Undo'
      OnClick = msUndoClick
    end
    object N13: TMenuItem
      Caption = '-'
    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 = '-'
    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
    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
    OnPopup = GridPopupPopup
    Left = 73
    Top = 193
    object mgAdd: TMenuItem
      Caption = 'Add'
      ShortCut = 32817
      OnClick = bAddClick
    end
    object mMsgTo: TMenuItem
      Caption = 'Add address'
      Visible = False
    end
    object mgAddAll: TMenuItem
      Caption = 'Add All'
      ShortCut = 32818
      OnClick = bAddAllClick
    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 = '-'
    end
    object mgSelectAll: TMenuItem
      Caption = 'Select All'
      ShortCut = 16449
      OnClick = mgSelectAllClick
    end
  end
end