object frmBrowse1: TfrmBrowse1 Left = 500 Top = 245 Width = 250 Height = 341 BorderIcons = [biSystemMenu] BorderStyle = bsSizeToolWin Caption = 'Browse for a folder' Color = clBtnFace Constraints.MinHeight = 300 Constraints.MinWidth = 250 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poMainFormCenter OnClose = FormClose OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object bvBottom1: TBevel Left = 0 Top = 303 Width = 242 Height = 4 Align = alBottom Shape = bsSpacer end object bvLeft1: TBevel Left = 0 Top = 4 Width = 4 Height = 299 Align = alLeft Shape = bsSpacer end object bvRight1: TBevel Left = 238 Top = 4 Width = 4 Height = 299 Align = alRight Shape = bsSpacer end object Bevel1: TBevel Left = 0 Top = 0 Width = 242 Height = 4 Align = alTop Shape = bsSpacer end object pnlBack1: TPanel Left = 4 Top = 4 Width = 234 Height = 299 Align = alClient BevelOuter = bvNone TabOrder = 0 object pnlLeftMiddle1: TPanel Left = 0 Top = 0 Width = 234 Height = 299 Align = alClient BevelOuter = bvNone TabOrder = 0 object shlTree1: TShellTreeView Left = 0 Top = 0 Width = 234 Height = 253 ObjectTypes = [otFolders, otHidden] Root = 'rfDesktop' UseShellImages = True Align = alClient AutoRefresh = False HideSelection = False Indent = 19 ParentColor = False RightClickSelect = True ShowRoot = False TabOrder = 0 OnChange = shlTree1Change OnExpanding = shlTree1Expanding OnCollapsing = shlTree1Collapsing OnCollapsed = shlTree1Collapsed OnExpanded = shlTree1Expanded OnEditing = shlTree1Editing end object pnlBottom1: TPanel Left = 0 Top = 253 Width = 234 Height = 46 Align = alBottom BevelOuter = bvNone TabOrder = 1 DesignSize = ( 234 46) object lblPath1: TLabel Left = 35 Top = 8 Width = 195 Height = 11 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = '---' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Bevel2: TBevel Left = 0 Top = 2 Width = 234 Height = 5 Align = alTop Shape = bsTopLine end object Bevel3: TBevel Left = 0 Top = 0 Width = 234 Height = 2 Align = alTop Shape = bsSpacer end object Label1: TLabel Left = 4 Top = 8 Width = 25 Height = 11 Anchors = [akLeft, akTop, akRight] Caption = 'Path: ' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object btnClose1: TButton Left = 156 Top = 21 Width = 75 Height = 23 Anchors = [akRight, akBottom] Caption = 'C&lose' TabOrder = 0 OnClick = btnClose1Click end object btnAdd1: TButton Left = 3 Top = 21 Width = 75 Height = 23 Anchors = [akLeft, akBottom] Caption = '&Add' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = btnAdd1Click end end end end end