【结贴】datagrid行颜色变化问题

lijunfeng

我设了一个主从数据集，我在从数据集里设了分组，并且在从数据集里设了根据某个字段（yqqk非分组字段）的值设置datagrid行的颜色，但是现在出现问题，分组加上去之后，datagrid全部没有颜色，如果鼠标点击到应该显示颜色的行，则全部行都有颜色了。代码如下：
procedure TXMSKQKFRM.DataGrid1CustomDrawCell(Sender: Tobject;ACanvas: TCanvas;ARect: TRec;ANode:TTreelistNode;AColumn:TTreelistColumn;ASelected,AFocused,ANewItemRow:bollean;Var AText:string;Var AColor:integer;AFont: TFont;Var AAlignment:TAlignment;Var ADone:Boolean)
Var
yqqk:string;
begin
//inherited
yqqk:=dsmain.DataSet.FieldByName('yqqk').AsInteger;
if not (ASELECTED OR AFOCUSED) then
  begin
      if yqqk>0 then AColor:=$05421ED;
  end;
end;

shangxy

楼主看看这个贴纸能发帮上你？
http://bbs.justep.com/forum.php?mod=viewthread&tid=18101

lijunfeng

OK，就是DataGridCustomDrawCell事件在分组情况下的处理问题，问题已解决，可以结贴。