procedure TfrmMain.cxGridDBTableView_List_PSSJCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var strValue:string; var iRow,iRol,iI:Integer; begin //这是找到了当前数据行 iRow :=AViewInfo.RecordViewInfo.Index; iRol := -1; //如何根据Caption找到列 with (Sender as TcxGridDBTableView) do begin for iI := 0 to ColumnCount-1 do begin if UpperCase(Columns[iI].DataBinding.FieldName)='加急' then begin iRol := iI; Break; end; end; end;
if iRol >= 0 then
begin
strValue := VarToStr(cxGridDBTableView_List.DataController.GetValue(iRow, iRol));
if strValue = 'T' then
begin
ACanvas.Brush.Color := clRed;
ACanvas.Font.Color := clWhite;
end;
end;
end;