Cxgrid 单元格 内容 颜色 关键字高…

cxgrid 列表的列一定要手动提前绑定好。后期绑定的，颜色是会变不了的。注意了。因为我的列表全部都是自动从数据库加载的。搞了好几天。手动绑定列表之后。才可以变颜色了。

 

效果图片如下显示：
procedure TXXXXXForm.GridViewCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

var
  I,I1,I2,I3,I4: Integer;
  ViewCaption: string;
  ARec: TRect;  
  Column1,Column2,Column3,Column4: TcxGridColumn;
begin
  inherited;
  //变整行颜色
 { with ACanvas do
  begin
    if not VarIsNull(TcxGridDBTableView(Sender).DataController.DataSource.DataSet.FieldByName('C1').Value) then
    if  AViewInfo.GridRecord.DisplayTexts[TcxGridDBTableView(Sender).GetColumnByFieldName('C1').Index] = '空闲' then
    begin  //标识负数记录
      Canvas.Brush.Color:= $00669900;
      Canvas.Font.Color:= clWhite;//clActiveCaption
    end;
  }
{颜色分为四种：空闲 $00669900 试用 $00FF99FF  使用 $00CA66FF  请假 $0033CCFF }
   I1 := -1;
   I2 := -1;
   I3 := -1;
   I4 := -1;
   with  (Sender as TcxGridDBTableView) do
   begin
     for I := 0 to ColumnCount - 1 do
     begin
       if UpperCase(Columns[I].DataBinding.FieldName)='C1' then
       begin
         I1 := I;
         Column1 := GetColumnByFieldName('C1');
       end
       else if UpperCase(Columns[I].DataBinding.FieldName)='C2' then
       begin
         I2 := I;
         Column2 := GetColumnByFieldName('C2');
       end
       else
       if UpperCase(Columns[I].DataBinding.FieldName)='C3' then
       begin
         I3 := I;
         Column3 := GetColumnByFieldName('C3');
       end
       else if UpperCase(Columns[I].DataBinding.FieldName)='C4' then
       begin
         I4 := I;
         Column4 := GetColumnByFieldName('C4');
       end;
     end;
   end;
   if (Column1 = nil) and (Column2=nil) and (Column3 = nil) and (Column4=nil)  then
     Exit;

   //这个条件用来限制是否只Paint指定的单元格, 去掉则Paint整行.
    if SameText(AViewInfo.Item.Name, Column1.Name) then
   begin             
     if AViewInfo.GridRecord.Values[I1] = null then Exit;
     ViewCaption := AViewInfo.GridRecord.Values[I1]; //获取单元格
     //以下是满足条件的字体变色
      if Pos('空闲',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00669900;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('试用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00FF99FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('使用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00CA66FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('请假',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $0033CCFF;
         ACanvas.Font.Color := clblack ;
      end
      else
      begin
         ACanvas.Font.Color := clWhite;
         ACanvas.Brush.Color := clblack ;
      end;
   end
   else if SameText(AViewInfo.Item.Name, Column2.Name) then
   begin
     if AViewInfo.GridRecord.Values[I2] = null then Exit;
     ViewCaption := AViewInfo.GridRecord.Values[I2]; //获取单元格
     //以下是满足条件的字体变色
      if Pos('空闲',ViewCaption) > 0  then
      begin
         ACanvas.Brush.Color := $00669900;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('试用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00FF99FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('使用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00CA66FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('请假',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $0033CCFF;
         ACanvas.Font.Color := clblack ;
      end
      else
      begin
         ACanvas.Font.Color := clWhite;
         ACanvas.Brush.Color := clblack ;
      end;
   end
   else if SameText(AViewInfo.Item.Name, Column3.Name) then
   begin
     if AViewInfo.GridRecord.Values[I3] = null then Exit;
     ViewCaption := AViewInfo.GridRecord.Values[I3]; //获取单元格
     //以下是满足条件的字体变色
      if Pos('空闲',ViewCaption) > 0  then
      begin
         ACanvas.Brush.Color := $00669900;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('试用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00FF99FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('使用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00CA66FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('请假',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $0033CCFF;
         ACanvas.Font.Color := clBlack;
      end
      else
      begin
         ACanvas.Font.Color := clWhite;
         ACanvas.Brush.Color := clblack ;
      end;
   end
   else if SameText(AViewInfo.Item.Name, Column4.Name) then
   begin
     if AViewInfo.GridRecord.Values[I4] = null then Exit;
     ViewCaption := AViewInfo.GridRecord.Values[I4]; //获取单元格
     //以下是满足条件的字体变色
      if Pos('空闲',ViewCaption) > 0  then
      begin
         ACanvas.Brush.Color := $00669900;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('试用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00FF99FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('使用',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $00CA66FF;
         ACanvas.Font.Color := clWhite ;
      end
      else if Pos('请假',ViewCaption) > 0 then
      begin
         ACanvas.Brush.Color := $0033CCFF;
         ACanvas.Font.Color := clblack ;
      end
      else
      begin
         ACanvas.Font.Color := clWhite;
         ACanvas.Brush.Color := clblack ;
      end;
   end ;
end;

 

效果图片如下显示：