object FBrowseDirectory: TFBrowseDirectory Left = 478 Top = 316 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Select from Directory' ClientHeight = 341 ClientWidth = 313 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object BCancel: TButton Left = 230 Top = 310 Width = 75 Height = 23 Caption = '&Cancel' TabOrder = 0 OnClick = BCancelClick end object BOK: TButton Left = 150 Top = 310 Width = 75 Height = 23 Caption = '&OK' TabOrder = 1 OnClick = BOKClick end object PMain: TExtPageControl Left = 8 Top = 14 Width = 297 Height = 289 ActivePage = TNDS TabHeight = 21 TabOrder = 2 TabWidth = 65 TabActiveColor = clBtnFace TabActiveFont.Charset = DEFAULT_CHARSET TabActiveFont.Color = clWindowText TabActiveFont.Height = -11 TabActiveFont.Name = 'MS Sans Serif' TabActiveFont.Style = [] TabInactiveColor = clBtnFace TabInactiveFont.Charset = DEFAULT_CHARSET TabInactiveFont.Color = clWindowText TabInactiveFont.Height = -11 TabInactiveFont.Name = 'MS Sans Serif' TabInactiveFont.Style = [] object TNDS: TTabSheet Caption = 'NDS' object Image1: TImage Left = 8 Top = 8 Width = 41 Height = 33 Picture.Data = {} end object LMsg: TLabel Left = 49 Top = 18 Width = 175 Height = 13 Caption = 'Select a user from the NDS directory.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False WordWrap = True end object NDS1: TTreeView Left = 16 Top = 48 Width = 257 Height = 193 ShowButtons = False ShowRoot = False ReadOnly = True HideSelection = False Indent = 19 OnChange = NDS1Change Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] TabOrder = 0 OnMouseDown = NDS1MouseDown ParentFont = False Images = FMain.Objects1 end end object TBindery: TTabSheet Caption = 'Bindery' object Image2: TImage Left = 8 Top = 8 Width = 41 Height = 33 Picture.Data = {} end object Label1: TLabel Left = 49 Top = 18 Width = 187 Height = 13 Caption = 'Select a user from the Bindery directory.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] ParentFont = False WordWrap = True end object Bindery1: TTreeView Left = 16 Top = 48 Width = 257 Height = 193 ShowButtons = False ShowRoot = False ReadOnly = True HideSelection = False Indent = 19 OnChange = Bindery1Change Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] TabOrder = 0 OnMouseDown = Bindery1MouseDown ParentFont = False Images = FMain.Objects1 end end end end