【搞定】DataGridCustomDrawCell事件**

liubin

if not (ASelected or AFocused) then // 如果是当前行，则默认系统的反白显示
  begin
    if ANode.HasChildren then
    begin
      AColor := $0E0FFFF;  // 分组颜色
      exit;
    end;

    if (ANode.Index mod 2) = 1 then
      AColor := $EAEAEA;  // 奇数行颜色
  end;
  if TDataGridColumn(AColumn).FieldName = 'F_PLANDATE' then
  begin
    if DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
      FieldByName('F_PLANDATE').AsDateTime) <= 0 then
      AFont.Color := Business.System.Graphics.clRed;
    if (DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
      FieldByName('F_PLANDATE').AsDateTime) < 5) and
      (DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
      FieldByName('F_PLANDATE').AsDateTime) > 0) then
      AFont.Color := Business.System.Graphics.clYellow;
   end;


分组后有问题, 分组后点中变色的列,所有列都会变了


分组前的图片

liubin

分组后的图片

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=5502

liubin

var
  I: Integer;
begin
  if (ANode.Index mod 2) = 1 then
    AColor := $EAEAEA;  // 奇数行颜色

  if ANode.HasChildren then // 如果是当前行，则默认系统的反白显示
  begin
    if (ASelected or AFocused) then
    begin
      //AColor := $0E0FFFF;  // 分组颜色
      for I := 0 to DataGrid.ColumnCount - 1 do
      begin
  //循环取列找到相应的项（由于列允许移动位置和分组，所以不能固定），并判断其值
      if (DataGrid.Columns[I].FieldName = 'F_PLANDATE') then
      begin
        if DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
        FieldByName('F_PLANDATE').AsDateTime) <= 0 then
        AFont.Color := Business.System.Graphics.clRed;
        if (DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
        FieldByName('F_PLANDATE').AsDateTime) < 5) and
        (DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
        FieldByName('F_PLANDATE').AsDateTime) > 0) then
        AFont.Color := Business.System.Graphics.clYellow;
      end;
        exit;
      end;
    end;
  end;

  if not (ASelected or AFocused) then // 如果是当前行，则默认系统的反白显示
  begin

  if TDataGridColumn(AColumn).FieldName = 'F_PLANDATE' then
  begin
    if DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
      FieldByName('F_PLANDATE').AsDateTime) <= 0 then
      AFont.Color := Business.System.Graphics.clRed;
    if (DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
      FieldByName('F_PLANDATE').AsDateTime) < 5) and
      (DaysBetween(SysService.Time,TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
      FieldByName('F_PLANDATE').AsDateTime) > 0) then
      AFont.Color := Business.System.Graphics.clYellow;
   end;
end;

没有效果,还是有问题,请问我哪里写的有毛病

atiger

楼主，看我3楼给你的连接了吗？

liubin

恩,就是模仿3楼的改的

liubin

效果还是1,2楼的图那样, 1楼1条红色的日期列,  在分组后选中该条红色列,所有的都红了,怎么解决?

atiger

哦，你设置断点跟踪了吗？是否按你的意愿在执行呢？看代码好像看不出啥问题。

liubin

if (ASelected or AFocused) then   3楼的意思 我理解是点中的数据才会变色,我的需求是没点中的就要变色,但分组是不乱就可以(分组可以不变色)

liubin

现在有没有能判断是否分组了的代码, 如果分组了,什么也不做(不变色了)  , 有明白人解释下吗?