Membuat Baris atau Cell DBGrid Menjadi Berwarna pada Delphi

Komponen DBGrid, tentunya teman - teman tidak asing lgi dengan komonen ini. Komponen ini fungsinya untuk menampilkan isi database dari data yang kita input. Normal dari warna tampilan cell (baris) DBGrid adalah putih.

Namun jika tampilan pada DBGrid semuanya sama dan kebetulan banyak cell pada DBGrid tentunya kita akan mudah bosan jika lama - lama memandang ke Tabel tersebut (DBGgrid), Untuk itu agar para user tidak bosan terhadap tampilan tabel tersebut, kita bisa membuat tampilan DBGrid (Tabel) menajadi Kombinasi Warna Sehingga user akan lebih mudah mengecek dari tabel tersebut.
Caranya adalah sebagai berikut :

• Tentunya sebelum melakukan Hal ini, teman - teman sudah menambahkan Komponen DBGrid diform dan komponen koneksi database, sehingga ketika diaktifkan maka data di dalam database akan tampil di DBGrid (Hal ini tidak dijelaskan lagi, sebab tentunya teman - teman sudah mengetahuinya langkah - langkahnya)
• Klik Komponen DBGrid kemudian pada Object Inspector Pilih Events trus pilih event DrawColumnCell klik 2 X (dua kali)
• Kemudian teman - teman masukan kode berikut ini :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 =0 then
DBGrid1.Canvas.Brush.Color := $00FEEFD6; //pilih warnanya
DBGrid1.DefaultDrawColumnCell(rect, datacol, column, state);
end;

• Kalau sudah selesai coba teman - teman compile aplikasi teman - teman dengan menekan tombol F9 di keyboard, Maka akan didapat tampilan berikut ini :



Tampilan saat dijalankan

Catatan :

Sesuain nama komponen DBGrid dengan nama DBGrid yang teman-teman gunakan. kalau didalam contoh ini Admin tidak merubah nama dari komponen DBGrid sehingga namanya tetap DBGrid1.