博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

cxGrid用法

Posted on 2015-07-06 11:55  first_start  阅读(211)  评论(0)    收藏  举报

---改变正行或者特定单元格的颜色-----

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;