Cara membuat warna pada DBGrid di delphi

Untuk memperindah view data pada DBGrid di Delphi dengan warna yang berbeda pada setiap recordnya cukup dengan menambahkan code berikut : di DBGRid pada event on DrawColumnCell.

procedure TFkaryawan.dbgkaryawanDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var grid : TDBGrid; row : integer; begin grid := sender as TDBGrid; row := grid.DataSource.DataSet.RecNo; if Odd(row) then grid.Canvas.Brush.Color := $00E1D7D5 else grid.Canvas.Brush.Color := $00C0F1B1; grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ; end; semoga ini bermanfaat walaupun sudah banyak yang posting tentang mewarnai grid..