object Form1: TForm1
  Left = 369
  Height = 478
  Top = 155
  Width = 737
  Caption = 'EhLib Main Complex Demo Project (Lazarus Edition)'
  ClientHeight = 458
  ClientWidth = 737
  Color = clBtnFace
  KeyPreview = True
  Menu = MainMenu1
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  ParentFont = True
  Position = poScreenCenter
  LCLVersion = '1.6.4.0'
  object Splitter1: TSplitter
    Left = 137
    Height = 406
    Top = 29
    Width = 5
  end
  object Panel1: TPanel
    Left = 142
    Height = 406
    Top = 29
    Width = 595
    Align = alClient
    BevelOuter = bvNone
    Caption = 'To Do'
    ClientHeight = 406
    ClientWidth = 595
    TabOrder = 0
    object Bevel1: TBevel
      Left = 0
      Height = 406
      Top = 0
      Width = 1
      Align = alLeft
      Shape = bsLeftLine
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 435
    Width = 737
    Panels = <>
    SimpleText = 'EhLib Main Complex Demo Project. Shows All Major Features and Functions of the Library'
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Height = 406
    Top = 29
    Width = 137
    Align = alLeft
    AutoFitColWidths = True
    Border.Color = clBtnShadow
    Border.EdgeBorders = [ebRight]
    Color = clBtnFace
    ColumnDefValues.Layout = tlCenter
    DataSource = DataSource1
    DynProps = <>
    Flat = True
    IndicatorOptions = []
    Options = [dgColumnResize, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    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
    Height = 29
    Top = 0
    Width = 737
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Panel2'
    ClientHeight = 29
    ClientWidth = 737
    TabOrder = 3
    object ToolBar1: TToolBar
      Left = 0
      Height = 29
      Top = 0
      Width = 552
      Align = alClient
      ButtonWidth = 25
      Caption = 'ToolBar1'
      EdgeBorders = [ebRight, ebBottom]
      Images = ImageList1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object ToolButton6: TToolButton
        Left = 1
        Top = 0
        Action = actExit
      end
      object ToolButton7: TToolButton
        Left = 26
        Height = 22
        Top = 0
        Width = 10
        Caption = 'ToolButton7'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 36
        Top = 0
        Action = actPreview
      end
      object ToolButton2: TToolButton
        Left = 61
        Height = 22
        Top = 0
        Width = 10
        Caption = 'ToolButton2'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 71
        Top = 0
        Action = EditCopy1
      end
      object ToolButton4: TToolButton
        Left = 96
        Top = 0
        Action = EditPaste1
      end
      object ToolButton5: TToolButton
        Left = 121
        Top = 0
        Action = EditSelectAll1
      end
      object ToolButton8: TToolButton
        Left = 146
        Height = 22
        Top = 0
        Width = 10
        Caption = 'ToolButton8'
        ImageIndex = 8
        Style = tbsSeparator
      end
      object ToolButton10: TToolButton
        Left = 156
        Top = 0
        Action = actShowObjInspector
      end
      object ToolButton11: TToolButton
        Left = 181
        Height = 22
        Top = 0
        Width = 10
        Caption = 'ToolButton11'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object ToolButton9: TToolButton
        Left = 191
        Top = 0
        Action = actAbout
      end
    end
    object PanelXEStyles: TPanel
      Left = 552
      Height = 29
      Top = 0
      Width = 185
      Align = alRight
      BevelOuter = bvNone
      ClientHeight = 29
      ClientWidth = 185
      TabOrder = 1
      object PaintBox1: TPaintBox
        Left = 0
        Height = 29
        Top = 0
        Width = 185
        Align = alClient
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        ParentFont = False
        OnPaint = PaintBox1Paint
      end
      object DBComboBoxEh1: TDBComboBoxEh
        Left = 54
        Height = 23
        Top = 2
        Width = 121
        ControlLabel.ParentColor = False
        CharCase = ecNormal
        DynProps = <>
        DropDownBox.Rows = 20
        DropDownBox.Sizable = True
        EditButtons = <>
        MaxLength = 0
        TabOrder = 0
        Visible = True
        OnChange = DBComboBoxEh1Change
      end
      object StaticText1: TStaticText
        Left = 3
        Height = 17
        Top = 6
        Width = 51
        Caption = 'XE2 Style'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object MainMenu1: TMainMenu
    left = 177
    top = 53
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
    object About1: TMenuItem
      Caption = 'About'
      OnClick = About1Click
    end
  end
  object MemTableEh1: TMemTableEh
    Params = <>
    AfterScroll = MemTableEh1AfterScroll
    left = 184
    top = 320
    object MemTableEh1MenuName: TStringField
      DisplayWidth = 30
      FieldKind = fkData
      FieldName = 'MenuName'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 100
    end
    object MemTableEh1RefFrameClass: TRefObjectField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'RefFrameClass'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object MemTableEh1RefFrame: TRefObjectField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'RefFrame'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    left = 184
    top = 373
  end
  object ImageList1: TImageList
    left = 182
    top = 104
    Bitmap = {
      [encoded data, 22528 characters]
      80FF808080FF0000000000000000
    }
  end
  object ActionList1: TActionList
    Images = ImageList1
    OnUpdate = ActionList1Update
    left = 182
    top = 176
    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
      OnExecute = actPreviewExecute
    end
    object actExit: TAction
      Caption = 'actExit'
      Hint = 'Exit'
      ImageIndex = 8
      OnExecute = actExitExecute
    end
    object actAbout: TAction
      Caption = 'actAbout'
      Hint = 'About'
      ImageIndex = 9
      OnExecute = actAboutExecute
    end
    object actShowObjInspector: TAction
      Caption = 'Object Inspector'
      Hint = 'Object Inspector'
      ImageIndex = 10
      OnExecute = actShowObjInspectorExecute
    end
  end
  object SQLTransaction1: TSQLTransaction
    Active = True
    Action = caNone
    Database = ODBCConnection1
    Options = []
    left = 496
    top = 96
  end
  object SQLQuery1: TSQLQuery
    FieldDefs = <>
    Database = ODBCConnection1
    Transaction = SQLTransaction1
    Options = []
    Params = <>
    UsePrimaryKeyAsKey = False
    left = 496
    top = 152
  end
  object ODBCConnection1: TODBCConnection
    Connected = True
    LoginPrompt = False
    BeforeConnect = ODBCConnection1BeforeConnect
    KeepConnection = False
    Params.Strings = (
      'DBQ=C:\Delphi7\EhLib\Demos\Data\DBTest.mdb'
    )
    Transaction = SQLTransaction1
    LogEvents = []
    Options = []
    Driver = 'Microsoft Access Driver (*.mdb)'
    left = 496
    top = 48
  end
  object ODBCConnection2: TODBCConnection
    Connected = True
    LoginPrompt = False
    BeforeConnect = ODBCConnection2BeforeConnect
    KeepConnection = False
    Params.Strings = (
      'DBQ=C:\Delphi7\EhLib\Demos\Data\Biolife.mdb'
    )
    Transaction = SQLTransaction2
    LogEvents = []
    Options = []
    Driver = 'Microsoft Access Driver (*.mdb)'
    left = 608
    top = 48
  end
  object SQLTransaction2: TSQLTransaction
    Active = True
    Action = caNone
    Database = ODBCConnection2
    Options = []
    left = 608
    top = 96
  end
  object SQLQuery2: TSQLQuery
    IndexName = 'DEFAULT_ORDER'
    FieldDefs = <    
      item
        Name = 'Notes'
        DataType = ftMemo
        Precision = -1
      end>
    Active = True
    Database = ODBCConnection2
    Transaction = SQLTransaction2
    ReadOnly = True
    SQL.Strings = (
      'select Notes from biolife'
    )
    Options = []
    Params = <>
    ParseSQL = False
    UpdateMode = upWhereAll
    UsePrimaryKeyAsKey = False
    left = 608
    top = 152
  end
  object SQLDBConnectionProviderEh1: TSQLDBConnectionProviderEh
    Connection = ODBCConnection1
    left = 480
    top = 304
  end
  object SQLDBConnectionProviderEh2: TSQLDBConnectionProviderEh
    Connection = ODBCConnection2
    left = 616
    top = 296
  end
end
