object frVertGrid: TfrVertGrid
  Left = 0
  Height = 317
  Top = 0
  Width = 605
  ClientHeight = 317
  ClientWidth = 605
  TabOrder = 0
  DesignLeft = 492
  DesignTop = 240
  object Panel1: TPanel
    Left = 0
    Height = 33
    Top = 0
    Width = 605
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 33
    ClientWidth = 605
    TabOrder = 0
    object PaintBox1: TPaintBox
      Left = 0
      Height = 33
      Top = 0
      Width = 605
      Align = alClient
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      ParentFont = False
      OnPaint = PaintBox1Paint
    end
    object Label1: TLabel
      Left = 0
      Height = 1
      Top = 0
      Width = 1
      ParentColor = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Height = 284
    Top = 33
    Width = 605
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    ClientHeight = 284
    ClientWidth = 605
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 277
      Height = 284
      Top = 0
      Width = 6
      Align = alRight
      ResizeAnchor = akRight
    end
    object gridFish: TDBGridEh
      Left = 0
      Height = 284
      Top = 0
      Width = 277
      Align = alClient
      Border.EdgeBorders = [ebTop, ebBottom]
      ColumnDefValues.AlwaysShowEditButton = True
      ColumnDefValues.Title.TitleButton = True
      DataSource = DataSource1
      DrawGraphicData = True
      DrawMemoText = True
      DynProps = <>
      EditActions = [geaCopyEh, geaSelectAllEh]
      Flat = True
      FooterParams.Color = clBtnFace
      GridLineParams.ColorScheme = glcsThemedEh
      IndicatorOptions = [gioShowRecNoEh]
      IndicatorTitle.ShowDropDownSign = True
      IndicatorTitle.TitleButton = True
      IndicatorTitle.UseGlobalMenu = False
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghShowRecNo, dghColumnResize, dghColumnMove, dghAutoFitRowHeight, dghHotTrack, dghExtendVertLines]
      ParentShowHint = False
      ShowHint = True
      SortLocal = True
      STFilter.Local = True
      STFilter.Location = stflInTitleFilterEh
      STFilter.Visible = True
      SumList.Active = True
      TabOrder = 0
      TitleParams.MultiTitle = True
      VertScrollBar.SmoothStep = True
      Columns = <      
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'SpeciesId'
          Footers = <>
          Width = 49
        end      
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Category'
          Footers = <>
          Width = 52
        end      
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Common_name'
          Footers = <>
          Width = 122
        end      
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Species_Name'
          Footers = <>
          Width = 130
        end      
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Length'
          Footers = <>
          Width = 49
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end
    object Panel3: TPanel
      Left = 283
      Height = 284
      Top = 0
      Width = 322
      Align = alRight
      BevelOuter = bvNone
      Caption = 'Panel3'
      ClientHeight = 284
      ClientWidth = 322
      TabOrder = 1
      object DBVertGridEh1: TDBVertGridEh
        Left = 0
        Height = 256
        Top = 28
        Width = 322
        Align = alClient
        AllowedSelections = []
        RowCategories.Active = True
        RowCategories.CategoryProps = <        
          item
            Name = 'Main fields'
            DefaultExpanded = True
          end        
          item
            Name = 'Additional fields'
          end>
        RowCategories.ExpandingGlyphStyle = tvgsExplorerThemedEh
        DataSource = DataSource1
        DrawGraphicData = True
        DrawMemoText = True
        Flat = True
        GridLineParams.ColorScheme = glcsThemedEh
        RowsDefValues.FitRowHeightToData = True
        TabOrder = 0
        LabelColWidth = 96
        OnRowEnter = DBVertGridEh1RowEnter
        Rows = <        
          item
            DynProps = <>
            EditButtons = <>
            FieldName = 'SpeciesId'
            CategoryName = 'Main fields'
          end        
          item
            DynProps = <>
            EditButtons = <>
            FieldName = 'Species_Name'
            RowLabel.Caption = 'Species Name'
            CategoryName = 'Main fields'
          end        
          item
            DynProps = <>
            EditButtons = <>
            FieldName = 'Category'
            CategoryName = 'Main fields'
          end        
          item
            DynProps = <>
            EditButtons = <>
            FieldName = 'Length'
            CategoryName = 'Main fields'
          end        
          item
            DynProps = <>
            EditButtons = <>
            FieldName = 'Common_name'
            RowLabel.Caption = 'Common name'
            CategoryName = 'Main fields'
          end        
          item
            DynProps = <>
            EditButtons = <>
            FieldName = 'Graphic'
            CategoryName = 'Additional fields'
          end        
          item
            DynProps = <>
            EditButtons = <>
            FieldName = 'Notes'
            CategoryName = 'Additional fields'
          end>
      end
      object ToolBar1: TToolBar
        Left = 0
        Height = 28
        Top = 0
        Width = 322
        BorderWidth = 1
        Caption = 'ToolBar1'
        EdgeBorders = [ebLeft, ebTop]
        Images = ImageList1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        object ToolButton1: TToolButton
          Left = 3
          Hint = 'Group by Category'
          Top = 2
          AllowAllUp = True
          Caption = 'ToolButton1'
          Down = True
          Grouped = True
          ImageIndex = 0
          OnClick = ToolButton1Click
          Style = tbsCheck
        end
        object ToolButton2: TToolButton
          Left = 26
          Hint = 'Group by Empty Not Empty Value'
          Top = 2
          AllowAllUp = True
          Caption = 'ToolButton2'
          Grouped = True
          ImageIndex = 1
          OnClick = ToolButton2Click
          Style = tbsCheck
        end
        object ToolButton3: TToolButton
          Left = 49
          Hint = 'Group by Data Type'
          Top = 2
          AllowAllUp = True
          Caption = 'ToolButton3'
          Grouped = True
          ImageIndex = 2
          OnClick = ToolButton3Click
          Style = tbsCheck
        end
        object ToolButton4: TToolButton
          Left = 72
          Top = 2
          Width = 10
          Caption = 'ToolButton4'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object tbVerGridSorted: TToolButton
          Left = 82
          Hint = 'Sort Alphabetically'
          Top = 2
          AllowAllUp = True
          Caption = 'tbVerGridSorted'
          Grouped = True
          ImageIndex = 3
          OnClick = tbVerGridSortedClick
          Style = tbsCheck
        end
        object ToolButton6: TToolButton
          Left = 105
          Top = 2
          Width = 10
          Caption = 'ToolButton6'
          ImageIndex = 5
          Style = tbsSeparator
        end
        object ToolButton5: TToolButton
          Left = 115
          Top = 2
          Caption = 'ToolButton5'
          Enabled = False
          ImageIndex = 4
          OnClick = ToolButton5Click
        end
        object ToolButton7: TToolButton
          Left = 138
          Top = 2
          Caption = 'ToolButton7'
          Enabled = False
          ImageIndex = 5
          OnClick = ToolButton7Click
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    left = 8
    top = 184
  end
  object MemTableEh1: TMemTableEh
    CachedUpdates = True
    Params = <>
    DataDriver = SQLDataDriverEh1
    left = 56
    top = 184
    object MemTableEh1Category: TWideStringField
      DisplayWidth = 50
      FieldKind = fkData
      FieldName = 'Category'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 50
    end
    object MemTableEh1Common_name: TWideStringField
      DisplayWidth = 255
      FieldKind = fkData
      FieldName = 'Common_name'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 255
    end
    object MemTableEh1Graphic: TBlobField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'Graphic'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      BlobType = ftGraphic
    end
    object MemTableEh1Length: TFloatField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'Length'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      MaxValue = 0
      MinValue = 0
    end
    object MemTableEh1Notes: TMemoField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'Notes'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      BlobType = ftMemo
      Transliterate = False
    end
    object MemTableEh1Species_Name: TWideStringField
      DisplayWidth = 255
      FieldKind = fkData
      FieldName = 'Species_Name'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 255
    end
    object MemTableEh1SpeciesId: TAutoIncField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'SpeciesId'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInWhere]
      ReadOnly = True
      Required = False
    end
  end
  object SQLDataDriverEh1: TSQLDataDriverEh
    DeleteCommand.Params = <>
    DynaSQLParams.Options = []
    GetrecCommand.Params = <>
    InsertCommand.Params = <>
    SelectCommand.Params = <>
    SelectCommand.CommandText.Strings = (
      'select'
      '  Category'
      '  ,Common_name'
      '  ,Graphic'
      '  ,Length'
      '  ,Notes'
      '  ,Species_Name'
      '  ,SpeciesId'
      'from'
      '  Biolife'
    )
    UpdateCommand.Params = <>
    ConnectionProvider = Form1.SQLDBConnectionProviderEh2
    MacroVars.Macros = <>
    left = 112
    top = 184
  end
  object ImageList1: TImageList
    left = 65528
    top = 65528
    Bitmap = {
      [encoded data, 12288 characters]
      0000000000000000000000000000
    }
  end
end
