cxgrid 根据条件设置单元格颜色

最新推荐文章于 2024-02-23 11:56:56 发布

转载最新推荐文章于 2024-02-23 11:56:56 发布 · 2.8k 阅读

本文介绍了一种在Delphi中使用cxGrid组件时如何根据记录值动态改变表格样式的实现方法。具体来说，根据记录中特定字段的值('a' 或 'b')来改变单元格背景及字体颜色。

procedure TFQueryBuilding.cxGrid2DBCardView1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
ADisplayStyle: TcxStyle;
begin
if trim(vartostr(ARecord.Values[1])) = 'a ' then
begin
ADisplayStyle := TcxStyle.Create(Self);
ADisplayStyle.Color := RGB(96, 186, 3);
ADisplayStyle.Font.Color := RGB(255, 255, 255);
AStyle := ADisplayStyle;
end
else if trim(vartostr(ARecord.Values[1])) = 'b ' then
begin
ADisplayStyle := TcxStyle.Create(Self);
ADisplayStyle.Color := RGB(96, 166, 234);
ADisplayStyle.Font.Color := RGB(255, 255, 255);
AStyle := ADisplayStyle;
end;

end;