网络收藏

我想在数据网格中，将某个记录用红色表示，或用别的颜色表示，以区别别的记录。  
  请问怎么实现。

推荐阅读

procedure   tform1.dbgrid1drawcolumncell(sender:   tobject;  
      const   rect:   trect;   datacol:   integer;   column:   tcolumn;  
      state:   tgriddrawstate);  
  begin  
      if   此记录满足某条件   then   with   tdbgrid(sender)   do  
      begin  
            canvas.brush.color   :=   clred;   //红色  
            defaultdrawcolumncell(rect,   datacol,   column,   state);  
      end;  
  end;  
   
  ————————————————————————————————————  
  宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。  
  ————————————————————————————————————