DBGrid Row Color

Kadang jika data yang ditampilkan disebuah DBGrid jumlahnya sudah ratusan akan sangat susah melihatnya dengan nyaman. Karena itu diperlukan untuk memberikan warna berselang-seling antar row/baris nya sehingga data yang ditampilkan lebih jelas pemisahannya dan nyaman untuk dilihat.

procedure TFrmForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if not(gdSelected in State) then
begin
if (DataSet1.RecNo mod 2) = 0 then
DBGrid1.Canvas.Brush.Color := clSkyBlue;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;


Sudah aku buat sesingkat mungkin. Logikanya berdasarkan itu row ganjil atau genap. Serta ditambahkan fungsi jika row tersebut dalam kondisi selected/dipilih maka tidak perlu diganti warnanya, karena kalau diganti akan tidak tampak di select. Jangan lupa sesuaikan teks yang berwarna merah dengan program kamu.