---改变正行或者特定单元格的颜色-----
procedure TZXRateForm.TableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
CheckValue: Boolean;
IsChange : Integer;
cxColumn: TcxGridColumn;
begin
cxColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('IsChange'); --IsChangeField标示这行数据是否改变,改变后才改变颜色
if cxColumn = nil then
Exit;
IsChange := AViewInfo.GridRecord.Values[colIsChange.Index];
if IsChange = 1 then
begin
if SameText(AViewInfo.Item.Name, ChangeName) then --判断是否是特定单元格(ChangeName是修改的单元格的名字),去掉这行代码就是正行修改
ACanvas.Font.Color := clRed
else
ACanvas.Font.Color := clBlack;
end;
end;
浙公网安备 33010602011771号