object DirReport: TDirReport
  Left = 200
  Top = 149
  Width = 435
  Height = 300
  Caption = 'Report'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Tree: TTreeView
    Left = 0
    Top = 0
    Width = 427
    Height = 254
    Indent = 19
    Align = alClient
    ParentColor = False
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 400
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object New1: TMenuItem
        Caption = '&New'
        ShortCut = 0
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Open'
        ShortCut = 0
        OnClick = Open1Click
      end
      object InsertFile1: TMenuItem
        Caption = 'Insert File'
        Enabled = False
        ShortCut = 0
      end
      object Save1: TMenuItem
        Caption = '&Save'
        Enabled = False
        ShortCut = 0
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        ShortCut = 0
        OnClick = SaveAs1Click
      end
      object Print1: TMenuItem
        Caption = 'Print'
        Enabled = False
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      Enabled = False
      ShortCut = 0
      object Delete1: TMenuItem
        Caption = '&Delete'
        ShortCut = 0
      end
    end
    object View1: TMenuItem
      Caption = '&Tree Depth'
      Enabled = False
      ShortCut = 0
      object RecursionLevel1: TMenuItem
        Caption = '&1'
        ShortCut = 0
      end
      object N21: TMenuItem
        Caption = '&2'
        ShortCut = 0
      end
      object N31: TMenuItem
        Caption = '&3'
        ShortCut = 0
      end
      object N41: TMenuItem
        Caption = '&4'
        ShortCut = 0
      end
      object Userdefined1: TMenuItem
        Caption = '&User defined...'
        ShortCut = 0
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.tree'
    FileEditStyle = fsEdit
    Filter = 'Tree files|*.tre'
    Title = 'Save tree as'
    Left = 368
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.tree'
    FileEditStyle = fsEdit
    Filter = 'Tree files|*.tre'
    Title = 'Open tree'
    Left = 336
  end
end