object Form1: TForm1
  Left = 491
  Top = 129
  AutoScroll = False
  Caption = 'EhLib Main Complex Demo'
  ClientHeight = 590
  ClientWidth = 966
  Color = clBtnFace
  ParentFont = True
  Icon.Data = {
    [encoded data, 6464 characters]
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 217
    Top = 29
    Width = 6
    Height = 542
    ResizeStyle = rsUpdate
  end
  object Panel1: TPanel
    Left = 223
    Top = 29
    Width = 743
    Height = 542
    Align = alClient
    BevelOuter = bvNone
    Caption = 'To Do'
    TabOrder = 0
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 1
      Height = 542
      Align = alLeft
      Shape = bsLeftLine
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 571
    Width = 966
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 
      'EhLib Main Demo. Shows All Major Features and Functions of the L' +
      'ibrary'
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 29
    Width = 217
    Height = 542
    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
    OnGetCellParams = DBGridEh1GetCellParams
    Columns = <
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'MenuName'
        Footers = <>
        Width = 149
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 966
    Height = 29
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 3
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 741
      Height = 29
      Align = alClient
      ButtonHeight = 26
      ButtonWidth = 26
      Caption = 'ToolBar1'
      EdgeBorders = [ebRight, ebBottom]
      Images = ImageList16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnCustomDraw = ToolBar1CustomDraw
      object ToolButton6: TToolButton
        Left = 0
        Top = 0
        Action = actExit
      end
      object ToolButton7: TToolButton
        Left = 26
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 34
        Top = 0
        Action = actPreview
      end
      object ToolButton14: TToolButton
        Left = 60
        Top = 0
        Action = actExportToExcel
      end
      object ToolButton15: TToolButton
        Left = 86
        Top = 0
        Action = actExportToTextFile
      end
      object ToolButton2: TToolButton
        Left = 112
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 120
        Top = 0
        Action = EditCopy1
      end
      object ToolButton4: TToolButton
        Left = 146
        Top = 0
        Action = EditPaste1
      end
      object ToolButton5: TToolButton
        Left = 172
        Top = 0
        Action = EditSelectAll1
      end
      object ToolButton8: TToolButton
        Left = 198
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton10: TToolButton
        Left = 206
        Top = 0
        Action = actShowObjInspector
      end
      object ToolButton13: TToolButton
        Left = 232
        Top = 0
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object ToolButton12: TToolButton
        Left = 240
        Top = 0
        Action = actRightToLeft
      end
      object ToolButton11: TToolButton
        Left = 266
        Top = 0
        Width = 8
        Caption = 'ToolButton11'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object ToolButton9: TToolButton
        Left = 274
        Top = 0
        Action = actAbout
      end
    end
    object PanelXEStyles: TPanel
      Left = 741
      Top = 0
      Width = 225
      Height = 29
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object PaintBox1: TPaintBox
        Left = 0
        Top = 0
        Width = 225
        Height = 29
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnPaint = PaintBox1Paint
      end
      object DBComboBoxEh1: TDBComboBoxEh
        Left = 87
        Top = 5
        Width = 134
        Height = 21
        DynProps = <>
        DropDownBox.Rows = 20
        DropDownBox.Sizable = True
        EditButtons = <>
        TabOrder = 0
        Text = 'cbXEStyles'
        Visible = True
        OnChange = DBComboBoxEh1Change
      end
      object stVCLStyle: TStaticText
        Left = 5
        Top = 8
        Width = 76
        Height = 17
        AutoSize = False
        Caption = 'VCL Style'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 177
    Top = 53
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
    object miLanguage: TMenuItem
      Caption = 'Language'
    end
    object miAbout: TMenuItem
      Caption = 'About'
      OnClick = miAboutClick
    end
  end
  object ADOConnectionProviderEh1: TADOConnectionProviderEh
    InlineConnection.Connected = True
    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 = <>
    AfterScroll = MemTableEh1AfterScroll
    Left = 184
    Top = 312
    object MemTableEh1MenuName: TWideStringField
      DisplayWidth = 100
      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 = fdtWideStringEh
          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 = (
          (
            '   Main Grid'
            nil
            nil)
          (
            '   Master Detail'
            nil
            nil)
          (
            '   Edit Controls'
            nil
            nil)
          (
            '   Edit Conrols 2'
            nil
            nil)
          (
            '   Fish Fact'
            nil
            nil)
          (
            '   Vertical Grid'
            nil
            nil)
          (
            '   Cell Data Is Link'
            nil
            nil)
          (
            '   Cell Edit Buttons'
            nil
            nil)
          (
            '   DropDown Forms'
            nil
            nil)
          (
            '   Row Detail Panel'
            nil
            nil)
          (
            '   Row As Panel'
            nil
            nil)
          (
            '   Tree View'
            nil
            nil)
          (
            '   Data Grouping'
            nil
            nil)
          (
            '   Background Images'
            nil
            nil)
          (
            '   Search Panel'
            nil
            nil)
          (
            '   Mail Box'
            nil
            nil)
          (
            '   Import/Export'
            nil
            nil)
          (
            'MemTableEh'
            nil
            nil)
          (
            '   Save/Load Data'
            nil
            nil)
          (
            '   Live restructure'
            nil
            nil)
          (
            '   Working with huge data'
            nil
            nil)
          (
            'PivotGrid'
            nil
            nil)
          (
            'Planner'
            nil
            nil)
          (
            'DataSet'
            nil
            nil)
          (
            '  Export to Text File'
            nil
            nil)
          (
            '  Import from Text File'
            nil
            nil))
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 184
    Top = 373
  end
  object ADOConnectionProviderEh2: TADOConnectionProviderEh
    InlineConnection.Connected = True
    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 ImageList16: TImageList
    Left = 406
    Top = 40
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
  object ActionList1: TActionList
    Images = ImageList16
    OnUpdate = ActionList1Update
    Left = 438
    Top = 101
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll1: TEditSelectAll
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ImageIndex = 4
      ShortCut = 16449
    end
    object actPreview: TAction
      Caption = 'Preview'
      Hint = 'Preview'
      ImageIndex = 3
      OnExecute = actPreviewExecute
    end
    object actExit: TAction
      Caption = 'actExit'
      Hint = 'Exit'
      ImageIndex = 5
      OnExecute = actExitExecute
    end
    object actAbout: TAction
      Caption = 'actAbout'
      Hint = 'About'
      ImageIndex = 6
      OnExecute = actAboutExecute
    end
    object actShowObjInspector: TAction
      Caption = 'Object Inspector'
      Hint = 'Object Inspector'
      ImageIndex = 7
      OnExecute = actShowObjInspectorExecute
    end
    object actRightToLeft: TAction
      Caption = 'RightToLeft'
      Hint = 'RightToLeft Layout'
      ImageIndex = 8
      OnExecute = actRightToLeftExecute
      OnUpdate = actRightToLeftUpdate
    end
    object actExportToExcel: TAction
      Caption = 'Export to Excel'
      Hint = 'Export to Excel'
      ImageIndex = 9
      OnExecute = actExportToExcelExecute
    end
    object actExportToTextFile: TAction
      Caption = 'Export to Text file'
      Hint = 'Export to Text file'
      ImageIndex = 10
      OnExecute = actExportToTextFileExecute
    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 = 245
  end
  object ImageList32: TImageList
    Height = 32
    Width = 32
    Left = 550
    Top = 40
    Bitmap = {
      [encoded data, 101696 characters]
      000000000000}
  end
  object ImageList24: TImageList
    Height = 24
    Width = 24
    Left = 478
    Top = 40
    Bitmap = {
      [encoded data, 57344 characters]
      000000000000}
  end
end
