如果列名包含特定文本，如何更改 cxGrid 中所有列的颜色

Question

我正在使用 SQL 在 cxGrid2DBTableView 中水平创建日历 table，具体取决于用户选择的开始日期和结束日期。因为列名总是不同的，下图中的示例：

我想更改非工作日值的颜色，这意味着我必须标记所有包含 %Sub% 或 %Ned% 的列并更改它们的颜色。

这是我知道列名时使用的代码示例：

procedure TForm1.cxGrid1DBTableView1VremeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
ACanvas.Font.Color := clBlack;
ACanvas.Brush.Color := clMoneyGreen;   
end;

Answer 1

您可以将 GridView 的 OnCustomDrawCell 事件处理程序与 AViewInfo.Item.Name 一起使用。

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if(Pos('Sub', AViewInfo.Item.Name) <> 0) or (Pos('Ned', AViewInfo.Item.Name) <> 0) then
  begin
    ACanvas.Font.Color := clBlack;
    ACanvas.Brush.Color := clMoneyGreen;
  end;
end;

如果您更喜欢使用字幕，可以使用 AViewInfo.Item.Caption 而不是 AViewInfo.Item.Name。无论如何，我建议您永远不要使用字幕，因为它们可能会在多语言应用程序中发生变化。

而如果要绘制列的 header，可以使用 GridView 的 OnCustomDrawColumnHeader 事件处理程序：

procedure TForm1.cxGrid1DBTableView1CustomDrawColumnHeader(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
begin
  if(Pos('Sub', AViewInfo.Column.Name) <> 0) or (Pos('Ned', AViewInfo.Column.Name) <> 0) then
  begin
    ACanvas.Font.Color := clBlack;
    ACanvas.Brush.Color := clMoneyGreen;
  end;
end;

如果列名包含特定文本，如何更改 cxGrid 中所有列的颜色

How to change color of all columns in cxGrid if column name contains specific text

delphi

devexpress