unit1.dfm

Ehlib.v3.4.for.Delphi5678.rar是DELPHI的三方控件源码.此控件适用于DELPHI5,6,7,8.

object Form1: TForm1
  Left = 275
  Top = 114
  Width = 540
  Height = 410
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 16
    Top = 64
    Width = 505
    Height = 305
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    HorzScrollBar.Tracking = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    VertScrollBar.Tracking = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'NAME'
        Footers = <>
        ShowImageAndText = False
      end
      item
        EditButtons = <>
        FieldName = 'ID'
        Footers = <>
        ShowImageAndText = False
      end
      item
        EditButtons = <>
        FieldName = 'ID_PARENT'
        Footers = <>
        ShowImageAndText = False
      end
      item
        EditButtons = <>
        FieldName = 'Expanded'
        Footers = <>
        ShowImageAndText = False
      end
      item
        EditButtons = <>
        FieldName = 'Visible'
        Footers = <>
        ShowImageAndText = False
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 280
    Top = 32
    Width = 240
    Height = 25
    DataSource = DataSource1
    Flat = True
    TabOrder = 1
  end
  object MemTableEh1: TMemTableEh
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ID_PARENT'
        DataType = ftInteger
      end
      item
        Name = 'NAME'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Expanded'
        DataType = ftInteger
      end
      item
        Name = 'Visible'
        DataType = ftInteger
      end>
    FetchAllOnOpen = True
    Params = <>
    DataDriver = DataSetDriverEh1
    Left = 8
    Top = 16
  end
  object DataSetDriverEh1: TDataSetDriverEh
    ProviderDataSet = Table1
    ResolveToDataSet = False
    Left = 48
    Top = 16
  end
  object Table1: TTable
    DatabaseName = 'C:\Delphi5\EhLib\MemTableEh\DEMOS\TreeView\'
    TableName = 'testTree'
    Left = 80
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 8
    Top = 48
  end
end