DBGrid中分行分列、单元格的颜色设置

最新推荐文章于 2024-09-19 11:41:13 发布

原创最新推荐文章于 2024-09-19 11:41:13 发布 · 3.7k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

〖Delphi〗专栏收录该内容

13 篇文章

订阅专栏

博客介绍了DBGridEh控件的颜色设置方法，包括分行设置不同字体颜色、分行设置不同背景颜色，以及符合条件的单元格颜色或背景颜色设置，均在DBGridEh1DrawColumnCell中编写代码实现。

（1）分行不同颜色设置；在DBGridEh1DrawColumnCell中写；

    if ADOQuery1.RecNo mod 2=0 then
    begin
        DBGridEh1.Canvas.Font.Color := clRed;
        DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end
    else begin
        DBGridEh1.Canvas.Font.Color := clGreen;
        DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

（2）分行不同背景颜色设置；在DBGridEh1DrawColumnCell中写；

    if ADOQuery1.RecNo mod 2=0 then
    begin
        DBGridEh1.Canvas.Brush.Color := clRed;
        DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end
    else begin
        DBGridEh1.Canvas.Brush.Color := clGreen;
        DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

（3）符合条件的单元格颜色或者背景颜色设置；在DBGridEh1DrawColumnCell中写；

    if Column.FieldName='价格' then
    begin
        if ADOQuery1.FieldByName('价格').AsFloat<0 then
        begin
            DBGridEh1.Canvas.Font.Color := clRed;
            DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
        end;
    end;