object Form1: TForm1
  Left = 311
  Top = 158
  Width = 531
  Height = 350
  Caption = 'DBGridEh.Disk Explorer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    515
    312)
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 236
    Top = 6
    Width = 17
    Height = 17
    Visible = False
    OnClick = SpeedButton1Click
  end
  object DBGridEh1: TDBGridEh
    Left = 14
    Top = 31
    Width = 241
    Height = 271
    Anchors = [akLeft, akTop, akBottom]
    AutoFitColWidths = True
    ColumnDefValues.Title.TitleButton = True
    ColumnDefValues.ToolTips = True
    DataSource = DataSource1
    DynProps = <>
    Flat = True
    FooterParams.Color = clWindow
    IndicatorOptions = []
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind, dghColumnResize, dghColumnMove, dghHotTrack, dghExtendVertLines]
    ParentShowHint = False
    RowHeight = 4
    RowLines = 1
    ShowHint = True
    SortLocal = True
    STFilter.Local = True
    STFilter.Visible = True
    TabOrder = 0
    OnGetCellParams = DBGridEh1GetCellParams
    Columns = <
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'FileDirName'
        Footers = <>
        ImageList = ToolbarImages
        ShowImageAndText = True
        Width = 206
        OnGetCellParams = DBGridEh1Columns0GetCellParams
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 5
    Width = 80
    Height = 20
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 1
  end
  object DBGridEh2: TDBGridEh
    Left = 258
    Top = 30
    Width = 245
    Height = 274
    Anchors = [akLeft, akTop, akRight, akBottom]
    ColumnDefValues.ToolTips = True
    DataSource = dsFileList
    DynProps = <>
    Flat = True
    FooterParams.Color = clWindow
    IndicatorOptions = [gioShowRowIndicatorEh]
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind, dghColumnResize, dghColumnMove, dghHotTrack, dghExtendVertLines]
    ParentShowHint = False
    RowHeight = 4
    RowLines = 1
    ShowHint = True
    TabOrder = 2
    OnGetCellParams = DBGridEh2GetCellParams
    Columns = <
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'FileDirName'
        Footers = <>
        ImageList = TreeImages
        ShowImageAndText = True
        Width = 121
        OnGetCellParams = DBGridEh2Columns0GetCellParams
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'FileDirAttributes'
        Footers = <>
        Width = 35
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'FileSize'
        Footers = <>
        Width = 55
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object MemTableEh1: TMemTableEh
    Active = True
    Filtered = True
    Params = <>
    AfterScroll = MemTableEh1AfterScroll
    Left = 230
    Top = 2
    object MemTableEh1Id: TAutoIncField
      FieldName = 'Id'
    end
    object MemTableEh1RefParent: TIntegerField
      FieldName = 'RefParent'
    end
    object MemTableEh1FileDirName: TStringField
      FieldName = 'FileDirName'
      Size = 255
    end
    object MemTableEh1FileDirPath: TStringField
      FieldName = 'FileDirPath'
      Size = 2000
    end
    object MemTableEh1FileDirAttributes: TIntegerField
      FieldName = 'FileDirAttributes'
    end
    object MemTableEh1IsDir: TBooleanField
      FieldName = 'IsDir'
    end
    object MemTableEh1SubcLoaded: TBooleanField
      FieldName = 'SubcLoaded'
    end
    object MemTableEh1IntegerField: TIntegerField
      FieldName = 'ImageIndex'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object Id: TMTNumericDataFieldEh
          FieldName = 'Id'
          NumericDataType = fdtAutoIncEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
        object RefParent: TMTNumericDataFieldEh
          FieldName = 'RefParent'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
        object FileDirName: TMTStringDataFieldEh
          FieldName = 'FileDirName'
          StringDataType = fdtStringEh
          Visible = False
          Size = 255
        end
        object FileDirPath: TMTStringDataFieldEh
          FieldName = 'FileDirPath'
          StringDataType = fdtStringEh
          Visible = False
          Size = 2000
        end
        object FileDirAttributes: TMTNumericDataFieldEh
          FieldName = 'FileDirAttributes'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
        object IsDir: TMTBooleanDataFieldEh
          FieldName = 'IsDir'
          Visible = False
        end
        object SubcLoaded: TMTBooleanDataFieldEh
          FieldName = 'SubcLoaded'
          Visible = False
        end
        object ImageIndex: TMTNumericDataFieldEh
          FieldName = 'ImageIndex'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
      end
      object RecordsList: TRecordsListEh
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    OnDataChange = DataSource1DataChange
    Left = 246
    Top = 2
  end
  object TreeImages: TImageList
    Left = 454
    Top = 156
    Bitmap = {
      [encoded data, 42560 characters]
      000000000000}
  end
  object mtFileList: TMemTableEh
    Active = True
    FieldDefs = <
      item
        Name = 'Id'
        DataType = ftAutoInc
      end
      item
        Name = 'FileDirName'
        DataType = ftString
        Size = 255
      end
      item
        Name = 'FileDirPath'
        DataType = ftString
        Size = 2000
      end
      item
        Name = 'FileDirAttributes'
        DataType = ftInteger
      end
      item
        Name = 'FileSize'
        DataType = ftInteger
      end
      item
        Name = 'IsDir'
        DataType = ftBoolean
      end
      item
        Name = 'ImageIndex'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'mtFileListIndex1'
      end>
    Params = <>
    StoreDefs = True
    Left = 458
    Top = 2
    object mtFileListId: TAutoIncField
      FieldName = 'Id'
    end
    object mtFileListFileDirName: TStringField
      FieldName = 'FileDirName'
      Size = 255
    end
    object mtFileListFileDirPath: TStringField
      FieldName = 'FileDirPath'
      Size = 2000
    end
    object mtFileListFileDirAttributes: TIntegerField
      FieldName = 'FileDirAttributes'
    end
    object mtFileListFileSize: TIntegerField
      FieldName = 'FileSize'
    end
    object mtFileListBooleanField: TBooleanField
      FieldName = 'IsDir'
    end
    object mtFileListImageIndex: TIntegerField
      FieldName = 'ImageIndex'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object Id: TMTNumericDataFieldEh
          FieldName = 'Id'
          NumericDataType = fdtAutoIncEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
        object FileDirName: TMTStringDataFieldEh
          FieldName = 'FileDirName'
          StringDataType = fdtStringEh
          Visible = False
          Size = 255
        end
        object FileDirPath: TMTStringDataFieldEh
          FieldName = 'FileDirPath'
          StringDataType = fdtStringEh
          Visible = False
          Size = 2000
        end
        object FileDirAttributes: TMTNumericDataFieldEh
          FieldName = 'FileDirAttributes'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
        object FileSize: TMTNumericDataFieldEh
          FieldName = 'FileSize'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
        object IsDir: TMTBooleanDataFieldEh
          FieldName = 'IsDir'
          Visible = False
        end
        object ImageIndex: TMTNumericDataFieldEh
          FieldName = 'ImageIndex'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          Alignment = taLeftJustify
          Visible = False
          currency = False
          Precision = 0
        end
      end
      object RecordsList: TRecordsListEh
      end
    end
  end
  object dsFileList: TDataSource
    DataSet = mtFileList
    Left = 476
    Top = 2
  end
  object ToolbarImages: TImageList
    ShareImages = True
    Left = 64
    Top = 160
  end
end
