DBGridEh里行变颜色

Delphi 7里DBGridEh里行变颜色的代码

 

例如在DBGridEh的OnDrawColumnCell事件里输入如下代码：

 

if  ADOQuery1.FieldByName('status').AsString='True'  then   //如果条件成立
     begin
       DBGridEh1.Canvas.Brush.Color:=clSilver;         //行底色变色
       DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     end;

 

另一种：

 

if  ADOQuery1.FieldByName('status').AsString='True'  then   //如果条件成立
     begin
       DBGridEh1.Canvas.Font.Color:=clMaroon;     //行字体变颜色
       DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     end;