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;
![]() |
Tampilan saat dijalankan |
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.
0 Komentar untuk "Membuat Baris atau Cell DBGrid Menjadi Berwarna pada Delphi"