cxGrid根据条件改变文字颜色

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

原创最新推荐文章于 2024-02-23 11:56:56 发布 · 2.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

Delphi 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一种使用 Delphi 的 CxGrid 控件实现 CustomDrawCell 的方法，通过判断单元格显示文本的不同来改变单元格背景颜色及字体颜色。具体实现了根据不同文本“A”、“B”、“C”分别设置红色、绿色、黄色背景的功能。

下面为在CxGrid的CustomDrawCell的代码
procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  vStr:string;
begin
  vStr:=Trim(VarAsType(AViewInfo.GridRecord.DisplayTexts[cxGrid1DBTableView1Column3.Index],varString));
  if vStr='A' then
  begin
    ACanvas.Canvas.Brush.Color   :=clred;
    ACanvas.canvas.Font.Color    :=clblack;
  end
  else if vStr='B' then
  begin
    ACanvas.Canvas.Brush.Color   :=clgreen;
    ACanvas.canvas.Font.Color    :=clblack;
  end
    else if vStr='C' then
  begin
    ACanvas.Canvas.Brush.Color   :=clYellow;
    ACanvas.canvas.Font.Color    :=clblack;
  end;


  if AViewInfo.Selected then
  begin
    ACanvas.Canvas.Font.Color   :=clwhite;
    ACanvas.Canvas.Brush.Color  :=clNavy;
  end;
end;