object Form1: TForm1
  Left = 207
  Top = 221
  Width = 878
  Height = 746
  Caption = 'EhLib Main Demo'
  Color = clBtnFace
  ParentFont = True
  Icon.Data = {
    [encoded data, 6464 characters]
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 137
    Top = 29
    Width = 5
    Height = 640
    ResizeStyle = rsUpdate
  end
  object Panel1: TPanel
    Left = 142
    Top = 29
    Width = 720
    Height = 640
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 1
      Height = 640
      Align = alLeft
      Shape = bsLeftLine
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 669
    Width = 862
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 'EhLib Main Demo'
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 29
    Width = 137
    Height = 640
    Align = alLeft
    AutoFitColWidths = True
    Border.Color = clBtnShadow
    Border.EdgeBorders = [ebRight]
    Color = clBtnFace
    ColumnDefValues.Layout = tlCenter
    Ctl3D = True
    DataSource = DataSource1
    DynProps = <>
    Flat = True
    IndicatorOptions = []
    Options = [dgColumnResize, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ReadOnly = True
    RowHeight = 2
    RowLines = 2
    TabOrder = 2
    VertScrollBar.SmoothStep = True
    Columns = <
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'MenuName'
        Footers = <>
        Width = 149
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 862
    Height = 29
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 3
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 862
      Height = 29
      Align = alClient
      ButtonWidth = 25
      Caption = 'ToolBar1'
      EdgeBorders = [ebRight, ebBottom]
      Images = ImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnCustomDraw = ToolBar1CustomDraw
      object ToolButton6: TToolButton
        Left = 0
        Top = 2
        Action = actExit
      end
      object ToolButton7: TToolButton
        Left = 25
        Top = 2
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 33
        Top = 2
        Action = EditCopy1
      end
      object ToolButton4: TToolButton
        Left = 58
        Top = 2
        Action = EditPaste1
      end
      object ToolButton5: TToolButton
        Left = 83
        Top = 2
        Action = EditSelectAll1
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 177
    Top = 53
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
  end
  object ADOConnectionProviderEh1: TADOConnectionProviderEh
    InlineConnection.ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%PROJECT_PATH%\..\D' +
      'ata\DBTest.mdb;Persist Security Info=False'
    InlineConnection.Mode = cmShareDenyNone
    InlineConnection.Provider = 'Microsoft.Jet.OLEDB.4.0'
    ServerType = 'MSAccess'
    InlineConnectionBeforeConnect = ADOConnectionProviderEh1InlineConnectionBeforeConnect
    Left = 296
    Top = 56
  end
  object MemTableEh1: TMemTableEh
    Active = True
    Params = <>
    Left = 184
    Top = 328
    object MemTableEh1MenuName: TStringField
      DisplayWidth = 30
      FieldName = 'MenuName'
      Size = 100
    end
    object MemTableEh1RefFrameClass: TRefObjectField
      DisplayWidth = 10
      FieldName = 'RefFrameClass'
    end
    object MemTableEh1RefFrame: TRefObjectField
      DisplayWidth = 10
      FieldName = 'RefFrame'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object MenuName: TMTStringDataFieldEh
          FieldName = 'MenuName'
          StringDataType = fdtStringEh
          DisplayWidth = 50
          Size = 100
        end
        object RefFrameClass: TMTRefObjectFieldEh
          FieldName = 'RefFrameClass'
          DisplayWidth = 10
        end
        object RefFrame: TMTRefObjectFieldEh
          FieldName = 'RefFrame'
          DisplayWidth = 10
        end
      end
      object RecordsList: TRecordsListEh
        Data = (
          (
            '   DataSet Text Exporter'
            nil
            nil)
          (
            '   DataSet Text Importer'
            nil
            nil))
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 184
    Top = 373
  end
  object ADOConnectionProviderEh2: TADOConnectionProviderEh
    InlineConnection.ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%PROJECT_PATH%\..\D' +
      'ata\BioLife.mdb;Persist Security Info=False'
    InlineConnection.Mode = cmShareDenyNone
    InlineConnection.Provider = 'Microsoft.Jet.OLEDB.4.0'
    ServerType = 'MSAccess'
    InlineConnectionBeforeConnect = ADOConnectionProviderEh2InlineConnectionBeforeConnect
    Left = 296
    Top = 104
  end
  object ImageList1: TImageList
    Left = 182
    Top = 104
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 182
    Top = 133
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 3
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 4
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ImageIndex = 7
      ShortCut = 16449
    end
    object actPreview: TAction
      Caption = 'Preview'
      Hint = 'Preview'
      ImageIndex = 6
    end
    object actExit: TAction
      Caption = 'actExit'
      Hint = 'Exit'
      ImageIndex = 8
      OnExecute = actExitExecute
    end
    object actAbout: TAction
      Caption = 'actAbout'
      Hint = 'About'
      ImageIndex = 9
    end
  end
  object PrintDBGridEh1: TPrintDBGridEh
    Options = []
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 182
    Top = 173
  end
end
