要求对某个Cell中符合条件的数据显示不同的颜色

解决方案 »

  1.   

    ACol=10为第11列
      if (ARow<>0) and (ACol=10) then
      begin
        if StgJG.Cells[10,ARow]='' then
          exit;
      case StgJG.Cells[10,ARow] of
        条件1: StgJG.Canvas.Font.Color :=RGB(0,200,0);
        条件2:StgJG.Canvas.Font.Color :=clRed;
        条件3:StgJG.Canvas.Font.Color :=RGB(0,0,250);
        条件3:StgJG.Canvas.Font.Color :=clBlack;
      end;
      StgJG.Canvas.FillRect(Rect);
      DrawText(StgJG.Canvas.Handle,pChar(StgJG.Cells[ACol,ARow]),
          Length(StgJG.Cells[ACol,ARow]),Rect,DT_Left);
      

  2.   

    能不在OnDrawCell中处理吗?
    因为我是用在关键词搜索中,从每个记录的每个字段中搜索出关键词,然后以突出的显示这个字段的值。
      

  3.   

    上面这些语句就是在OnDrawCell中处理的呀
      

  4.   

    我是说能 不 在OnDrawCell中处理吗?