如何设置dbGrid每行的颜色?

[dazzling2003]

1.如何设置dbGrid每行的颜色?
2.如何获得每个小单元格的位置及宽高度?

[lxpbuaa]

FAQ中很多，搜索一下

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[madyak]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if Table1.FieldByName('Population').AsInteger > 20000000 then

DBGrid1.Canvas.Font.Color := clBlue;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

[dazzling2003]

谢了
那第二个问题呢?