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;
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;