如何制做一个可以自己定义行颜色的DBGrid

Question

最近我对做控件比较感兴趣,也看不少关于这方面的书,不过总是没有什么眉目.请各位大哥帮帮心,推介几书这种好书,谢谢了!

Answer 1

DbGrid的每一个单元格Cell实际上是画出来的.你可以在OnDrawColum事件中修改某一行的颜色Brush.Color

Answer 2

抄一段来程序设置；
procedure Tinfo.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if query1.FieldByName(’all’).asstring>40 then
      begin
         dbgrid1.Canvas.Font.Color:=clred;
         dbgrid1.Canvas.Brush.color:=clyellow;
      end
      else
      begin
         dbgrid1.Canvas.Font.Color:=clblue;
         dbgrid1.Canvas.Brush.color:=clyellow;
      end;
    dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
****************************
*Second
if (ADOTable1.RecNo mod 5)=0 then
        dbGrid1.Canvas.Brush.Color:=clred
   else
        dbGrid1.canvas.Brush.Color:=clblue;
   dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);