自己定义BGrid行的颜色，怎么样实现？

[xah_JD]

谢

[songcallray]

UP

[jpyc]

http://218.56.11.178:8020/web/index.aspx

-> 下载基地->例程-数据库/报表->控制数据表每行的颜色控制数据表每行的颜色

[stevenpeng]

使用DXGRID控件吧,控制就简单了

[xah_JD]

哪有下载.

[FrameSniper]

如果是DBGrid就直接在OnDrawColumnCell事件中设置Canvas.Brush.Color属性值

楼主说的是不是DBGrid？

[tiexinliu]

在DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
中写代码

if query1.FieldByName('seqno').asinteger>30 then
begin
DBGrid1.Canvas.Brush.Color := clMoneyGreen;
DBGrid1.Canvas.Font.Color := clGreen;
DBGrid1.Canvas.FillRect(Rect);
end;
if query1.FieldByName('seqno').asinteger<=30 then
begin
DBGrid1.Canvas.Brush.Color := clMoneyGreen;
DBGrid1.Canvas.Font.Color := clBlue;
DBGrid1.Canvas.FillRect(Rect);
end;
if quey1.FieldByName('seqno').asinteger<=20 then
begin
DBGrid1.Canvas.Brush.Color := clMoneyGreen;
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
end;
if quey1.FieldByName('seqno').asinteger<=10 then
begin
DBGrid1.Canvas.Brush.Color := clMoneyGreen;
DBGrid1.Canvas.Font.Color := clYellow;
DBGrid1.Canvas.FillRect(Rect);
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);