object Form1: TForm1 Left = 193 Top = 114 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Directory Outline Example' ClientHeight = 379 ClientWidth = 620 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 18 Top = 61 Width = 50 Height = 13 Caption = 'Directories' end object Label1: TLabel Left = 18 Top = 13 Width = 25 Height = 13 Caption = 'Drive' end object Label3: TLabel Left = 194 Top = 13 Width = 24 Height = 13 Caption = 'Filter' end object Label5: TLabel Left = 194 Top = 61 Width = 21 Height = 13 Caption = 'Files' end object Label4: TLabel Left = 362 Top = 13 Width = 61 Height = 13 Caption = 'File Contents' end object DriveComboBox1: TDriveComboBox Left = 18 Top = 29 Width = 161 Height = 22 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnChange = DriveComboBox1Change end object Edit1: TEdit Left = 194 Top = 29 Width = 153 Height = 24 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Text = '*.*' OnChange = Edit1Change end object FileListBox1: TFileListBox Left = 194 Top = 81 Width = 153 Height = 285 FileType = [ftReadOnly, ftHidden, ftSystem, ftVolumeID, ftNormal] Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False ShowGlyphs = True TabOrder = 3 OnChange = FileListBox1Change end object Memo1: TMemo Left = 362 Top = 29 Width = 241 Height = 337 Lines.Strings = ( 'Memo1') OEMConvert = True ReadOnly = True TabOrder = 2 end object DirectoryOutline1: TDirectoryOutline Left = 18 Top = 81 Width = 161 Height = 285 TabStop = True OnChange = DirectoryOutline1Change ItemHeight = 13 Options = [ooDrawFocusRect, ooStretchBitmaps] ParentColor = False PictureLeaf.Data = {}