【结】DataGrid栏颜色设置问题**

jianth2005

单击栏目的时候颜色怎么变了?想要默认还是页眉颜色,不知道是哪个属性了?
帮忙找找,谢谢.
--------------------------------
object DataGrid2: TDataGrid
  Left = 0
  Top = 0
  Width = 830
  Height = 413
  Bands = <
    item
    end>
  HeaderPanelRowCount = 1
  Align = alClient
  Color = clWhite
  Ctl3D = True
  ParentCtl3D = False
  TabOrder = 0
  OnDblClick = DataGrid2DblClick
  BandColor = clWindow
  GroupPanelColor = clWindow
  GroupPanelFontColor = clWindowText
  GroupNodeColor = clWindow
  HeaderColor = 14258944
  HideSelectionColor = 14258944
  HighlightColor = 14258944
  LookAndFeel = lfUltraFlat
  OptionsBehavior = [edgoAutoSort, edgoDblClick, edgoDragScroll, edgoEditing, edgoTabs, edgoTabThrough, edgoVertThrough]
  OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnSizing]
  OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap, edoControlDraw]
  ScrollBars = ssHorizontal
  OnCustomDrawCell = DataGrid2CustomDrawCell
  TreeLineColor = clGrayText
  ShowIndicator = True
  DataSource = DataSource1
  Filter.Criteria = {00000000}
  ShowRowNumber = True
  ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
  UseDefaultPopupMenu = False
  DefaultFields = False
  SummaryGroups = <>
  SummarySeparator = ', '
  object DataGridColumn1: TDataGridColumn
    Alignment = taLeftJustify
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SQBM'
  end
  object DataGridColumn2: TDataGridColumn
    HeaderAlignment = taCenter
    Sorted = csDown
    Width = 199
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SQMC'
  end
  object DataGridColumn3: TDataGridColumn
    HeaderAlignment = taCenter
    Width = 315
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SQDZ'
  end
  object DataGridColumn4: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SQMJ'
  end
  object DataGridColumn5: TDataGridColumn
    HeaderAlignment = taCenter
    Width = 86
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'FZR'
  end
  object DataGridColumn6: TDataGridColumn
    HeaderAlignment = taCenter
    Width = 142
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'LXDH'
  end
  object DataGridColumn7: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'CZ'
  end
  object DataGridColumn8: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'YB'
  end
  object DataGridColumn9: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'BZ'
  end
  object DataGridColumn10: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'ZT'
  end
  object DataGridColumn11: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'GSZH'
  end
  object DataGridColumn12: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 116
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SQRS'
  end
  object DataGridColumn13: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 671
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'JTHS'
  end
  object DataGridColumn14: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 225
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SQJBXZ'
  end
  object DataGridColumn15: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 634
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'QZCZRK'
  end
  object DataGridColumn16: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'YWYFMJ'
  end
  object DataGridColumn17: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SQMFTG'
  end
  object DataGridColumn18: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'ZY'
  end
  object DataGridColumn19: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 158
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'ZY1'
  end
  object DataGridColumn20: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 129
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SFNRYB'
  end
  object DataGridColumn21: TDataGridColumn
    HeaderAlignment = taCenter
    Visible = False
    Width = 209
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'SFZKZYTSFW'
  end
end

jianth2005

顶顶!一早上了

lixy

楼主自己试验吧，这个没什么技术含量，是要花很长功夫的。上次给你解决一个类似问题了，这个问题留给楼主自己看看。

jianth2005

好

jianth2005

LookAndFeel = lfUltraFlat

这句...

揭贴吧