请教各位大哥,我怎样使满足条件数据行变成其他的颜色

解决方案 »

  1.   

    procedure TFrmBackGoods.cxGRecmasterDBTableView1CustomDrawCell(
      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    var
      str:string;
    begin
      str:=trim(VarAsType(AViewInfo.GridRecord.DisplayTexts[对应列的Index], varString));
      if str='是' then
      begin
       ACanvas.Canvas.Brush.Color :=$00FFEFE7;
       ACanvas.canvas.Font.Color := clBlack;
      end;
      if AViewInfo.Selected then
        if str='是' then
        begin
          ACanvas.Canvas.Font.Color := clwhite;
          ACanvas.Canvas.Brush.Color :=clTeal;
        end
        else
        begin
          ACanvas.Canvas.Font.Color := clwhite;
          ACanvas.Canvas.Brush.Color :=clblue;
        end;
    end;