cxGrid根据条件改变文字颜色

最新推荐文章于 2022-05-30 16:30:47 发布

THQWS

最新推荐文章于 2022-05-30 16:30:47 发布

阅读量2.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： c

本文链接：https://blog.youkuaiyun.com/xfxlylove/article/details/7546991

Delphi 专栏收录该内容

16 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下面为在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;