如何为DBGrid的行设置交替颜色？

[netrobo]

?

[wingbroken]

{//显示斑马线
procedure TClientInfoForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
with DBGrid1 do
begin
if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then
begin
Canvas.Font.Color :=ClYellow;
Canvas.Brush.Color :=ClNavy;
end
else
begin
if DataSource1.DataSet.RecNo mod 2< >0 then //判断当前数据是奇数还是偶数行
Canvas.brush.Color :=ClWhite //如果是奇数行，DBGrid背景以白色显示
else
Canvas.brush.Color :=$00EAEAEA; 如果是偶数行，DBGrid背景以浅灰色显示
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State); 这行很关键的，一定不要遗漏了
end;

end;

[netrobo]

用以上方法能解决将RowSelect设为True出现的选择行无颜色的问题吗？

[swayi21]

DrawColumnCell();
begin

if gdSelected in State then
Exit;
if Table1.RecNo mod 2 = 0 then
DBGrid1.Canvas.Brush.Color := clInfoBk
else
DBGrid1.Canvas.Brush.Color := RGB(191, 255, 223);
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

DBGrid1.Canvas.Pen.Color := $00C08000;
DBGrid1.Canvas.MoveTo(Rect.Left, Rect.Bottom);
DBGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

DBGrid1.Canvas.MoveTo(Rect.Right, Rect.Top);
DBGrid1.Canvas.LineTo(Rect.Right, Rect.Bottom);

end;