unit1.dfm

最新的 DBGRIDEH4.0

object Form1: TForm1
  Left = 311
  Top = 158
  Width = 531
  Height = 350
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  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
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghAutoSortMarking, dghMultiSortMarking, dghPreferIncSearch, dghRowHighlight, dghDialogFind]
    ParentShowHint = False
    RowHeight = 2
    RowLines = 1
    ShowHint = True
    SortLocal = True
    STFilter.Local = True
    STFilter.Visible = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    VertScrollBar.Tracking = True
    OnGetCellParams = DBGridEh1GetCellParams
    Columns = <
      item
        EditButtons = <>
        FieldName = 'FileDirName'
        Footers = <>
        ImageList = ToolbarImages
        ShowImageAndText = True
        Width = 206
        OnGetCellParams = DBGridEh1Columns0GetCellParams
      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
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    HorzScrollBar.Tracking = True
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    VertScrollBar.Tracking = True
    OnGetCellParams = DBGridEh2GetCellParams
    Columns = <
      item
        EditButtons = <>
        FieldName = 'FileDirName'
        Footers = <>
        ImageList = TreeImages
        ShowImageAndText = True
        Width = 121
        OnGetCellParams = DBGridEh2Columns0GetCellParams
      end
      item
        EditButtons = <>
        FieldName = 'FileDirAttributes'
        Footers = <>
        Width = 84
      end
      item
        EditButtons = <>
        FieldName = 'FileSize'
        Footers = <>
        Width = 84
      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
      DefaultExpression = 'False'
      FieldName = 'SubcLoaded'
    end
    object MemTableEh1IntegerField: TIntegerField
      FieldName = 'ImageIndex'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object Id: TMTNumericDataFieldEh
          FieldName = 'Id'
          NumericDataType = fdtAutoIncEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          currency = False
          Precision = 0
        end
        object RefParent: TMTNumericDataFieldEh
          FieldName = 'RefParent'
          NumericDataType = fdtIntegerEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          currency = False
          Precision = 0
        end
        object FileDirName: TMTStringDataFieldEh
          FieldName = 'FileDirName'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 255
          Transliterate = False
        end
        object FileDirPath: TMTStringDataFieldEh
          FieldName = 'FileDirPath'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          Size = 2000
          Transliterate = False
        end
        object FileDirAttributes: TMTNumericDataFieldEh
          FieldName = 'FileDirAttributes'
          NumericDataType = fdtIntegerEh
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
          currency = False
          Precision = 0
        end
        object IsDir: TMTBooleanDataFieldEh
          FieldName = 'IsDir'
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
        end
        object SubcLoaded: TMTBooleanDataFieldEh
          FieldName = 'SubcLoaded'
          Alignment = taLeftJustify
          DisplayWidth = 0
          Required = False
          Visible = False
        end
        object ImageIndex: TMTNumericDataFieldEh
          FieldName = 'ImageIndex'