Cara Mewarnai Baris pada DBGid Delphi

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

var x,y:Integer;

begin
x:=Q.RecNo;
y:=x mod 2;

case y of
0: DBGrid1.Canvas.Brush.Color := clWhite;
1: DBGrid1.Canvas.Brush.Color := clMoneyGreen;
end;
DBGrid1.Canvas.Brush.Color :=ClBlack;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Lihat Hasil