delphi7 TdxDBGrid控件更改指定记录颜色

最新推荐文章于 2019-08-28 12:32:00 发布

搬砖的码农

最新推荐文章于 2019-08-28 12:32:00 发布

阅读量1.7k

点赞数

分类专栏： delphi开发文章标签： delphi TdxDBGrid控件行变色

本文链接：https://blog.csdn.net/zhurcn/article/details/40535151

版权

delphi开发专栏收录该内容

2 篇文章 0 订阅

订阅专栏

为自己及有需要的人记录。

在TdxDBGrid控件的OnCustomDrawCell事件中处理相关设置，参考代码如下：

procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
var
  sValues : string;
begin
 if not VarIsNull(ANode.Values[dxDBGrid1Price.Index]) then
 begin
    sValues :=ANode.Values[dxDBGrid1Price.Index];  //dxDBGrid1Price为dxDBGrid1控件SummaryGroups的Columns的某个列名
    if strtocurr(sValues) <> 0 then      //判断该行的dxDBGrid1Price列值，如果不为零，则字体变红  【acolor:=clred 这是将背景变红】
       afont.Color:=clred;
 end;
end;