Delphi DbGridEh比较好看的样式

object DBGridEh_Log: TDBGridEh
      Left = 2
      Top = 2
      Width = 635
      Height = 475
      Align = alClient
      AllowedOperations = [alopUpdateEh]
      ColumnDefValues.AlwaysShowEditButton = True
      DataGrouping.Color = clWindow
      DataGrouping.GroupLevels = <>
      DataGrouping.ParentColor = False
      Flat = True
      FooterColor = clInfoBk
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      ImeName = '中文 (简体) - 搜狗拼音输入法'
      IndicatorTitle.ShowDropDownSign = True
      IndicatorTitle.TitleButton = True
      OddRowColor = 15073253
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghShowRecNo, dghColumnResize, dghColumnMove]
      ReadOnly = True
      RowDetailPanel.Color = clBtnFace
      RowHeight = 2
      RowLines = 1
      SortLocal = True
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UseMultiTitle = True
      Columns = <
        item
          EditButtons = <>
          Footers = <>
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end