object frVertGrid: TfrVertGrid
  Left = 0
  Top = 0
  Width = 650
  Height = 661
  TabOrder = 0
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 650
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    ParentBackground = False
    TabOrder = 0
    object PaintBox1: TPaintBox
      Left = 0
      Top = 0
      Width = 650
      Height = 33
      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 Label1: TLabel
      Left = 22
      Top = 4
      Width = 164
      Height = 23
      Caption = 'Fish Vertical Fact'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 33
    Width = 650
    Height = 628
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 322
      Top = 0
      Width = 6
      Height = 628
      Align = alRight
      ResizeStyle = rsUpdate
    end
    object gridFish: TDBGridEh
      Left = 0
      Top = 0
      Width = 322
      Height = 628
      Align = alClient
      Border.EdgeBorders = [ebTop, ebBottom]
      ColumnDefValues.AlwaysShowEditButton = True
      ColumnDefValues.Title.TitleButton = True
      Ctl3D = 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]
      ParentCtl3D = False
      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 = 328
      Top = 0
      Width = 322
      Height = 628
      Align = alRight
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 1
      object DBVertGridEh1: TDBVertGridEh
        Left = 0
        Top = 28
        Width = 322
        Height = 600
        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
        Top = 0
        Width = 322
        Height = 28
        BorderWidth = 1
        Caption = 'ToolBar1'
        EdgeBorders = [ebLeft, ebTop]
        Flat = True
        Images = ImageList1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        object ToolButton1: TToolButton
          Left = 0
          Top = 0
          Hint = 'Group by Category'
          AllowAllUp = True
          Caption = 'ToolButton1'
          Down = True
          Grouped = True
          ImageIndex = 0
          Style = tbsCheck
          OnClick = ToolButton1Click
        end
        object ToolButton2: TToolButton
          Left = 23
          Top = 0
          Hint = 'Group by Empty Not Empty Value'
          AllowAllUp = True
          Caption = 'ToolButton2'
          Grouped = True
          ImageIndex = 1
          Style = tbsCheck
          OnClick = ToolButton2Click
        end
        object ToolButton3: TToolButton
          Left = 46
          Top = 0
          Hint = 'Group by Data Type'
          AllowAllUp = True
          Caption = 'ToolButton3'
          Grouped = True
          ImageIndex = 2
          Style = tbsCheck
          OnClick = ToolButton3Click
        end
        object ToolButton4: TToolButton
          Left = 69
          Top = 0
          Width = 8
          Caption = 'ToolButton4'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object tbVerGridSorted: TToolButton
          Left = 77
          Top = 0
          Hint = 'Sort Alphabetically'
          AllowAllUp = True
          Caption = 'tbVerGridSorted'
          Grouped = True
          ImageIndex = 3
          Style = tbsCheck
          OnClick = tbVerGridSortedClick
        end
        object ToolButton6: TToolButton
          Left = 100
          Top = 0
          Width = 8
          Caption = 'ToolButton6'
          ImageIndex = 5
          Style = tbsSeparator
        end
        object ToolButton5: TToolButton
          Left = 108
          Top = 0
          Caption = 'ToolButton5'
          Enabled = False
          ImageIndex = 4
          OnClick = ToolButton5Click
        end
        object ToolButton7: TToolButton
          Left = 131
          Top = 0
          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
    Active = True
    CachedUpdates = True
    Params = <>
    DataDriver = ADODataDriverEh1
    Left = 40
    Top = 184
    object MemTableEh1Category: TWideStringField
      FieldName = 'Category'
      Size = 50
    end
    object MemTableEh1Common_name: TWideStringField
      FieldName = 'Common_name'
      Size = 255
    end
    object MemTableEh1Graphic: TBlobField
      FieldName = 'Graphic'
      BlobType = ftGraphic
    end
    object MemTableEh1Length: TFloatField
      FieldName = 'Length'
    end
    object MemTableEh1Notes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
    end
    object MemTableEh1Species_Name: TWideStringField
      FieldName = 'Species_Name'
      Size = 255
    end
    object MemTableEh1SpeciesId: TAutoIncField
      FieldName = 'SpeciesId'
    end
  end
  object ADODataDriverEh1: TADODataDriverEh
    ConnectionProvider = Form1.ADOConnectionProviderEh2
    DynaSQLParams.Options = []
    MacroVars.Macros = <>
    SelectCommand.CommandText.Strings = (
      'select'
      '  Category'
      '  ,Common_name'
      '  ,Graphic'
      '  ,Length'
      '  ,Notes'
      '  ,Species_Name'
      '  ,SpeciesId'
      'from'
      '  Biolife')
    SelectCommand.Parameters = <>
    UpdateCommand.Parameters = <>
    InsertCommand.Parameters = <>
    DeleteCommand.Parameters = <>
    GetrecCommand.Parameters = <>
    Left = 72
    Top = 184
  end
  object ImageList1: TImageList
    Left = 65528
    Top = 65528
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
end
