DBGridEH 如何设置某一行的颜色

[iefus]

DBGridEH的某一列的值有Y和N，
现在要把值为Y的那一行设置颜色，怎样实现

[abcdwell]

根据字段值内容的不同在dbgridEH中来分颜色显示

procedure   TfrmBdDetail.DBGridEh1DrawColumnCell(Sender:   TObject;   
      const   Rect:   TRect;   DataCol:   Integer;   Column:   TColumnEh;   
      State:   TGridDrawState);   
  begin   
      if   adoquery1.fieldbyname('合计数量').AsInteger>   adoquery1.fieldbyname('KC').AsInteger   then   
      begin   
                    (Sender   as   TDBGridEH).Canvas.Brush.Color   :=   $008080FF;   
      end;   
      DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);   
  end;  

[abcdwell]

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;

[kye_jufei]

DBGridEh1.Canvas.Brush.Color:=clSilver;        
DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

[iefus]

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  if (column.FieldName = 'DEL') and (column.Field.Value = 'Y') then
  begin
    DBGridEh1.Canvas.Brush.Color := clYellow;
  end;
  DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

我写了这行代码，但是DEL列中值为Y的一行，颜色没有变化

[dropme]

帮顶，蹭分~

[luquansen]

总共20分你也蹭啊 呵呵

[Quote=引用 5 楼 dropme 的回复:]
帮顶，蹭分~
[/Quote]