Cara Mewarnai Baris Tertentu pada DBGrid 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);
if Q.FieldByName('nama_pt').AsString='LPBM Teknokrat' then
DBGrid1.Canvas.Brush.Color := clYellow;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Lihat Hasilnya

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