Mewarnai DBGrid

Topik Kali ini kita akan bermain-main dengan DBGRID. Admin sendiri bosan dengan Warnanya yang monoton dan Itu Itu saja. untuk itu mari kita coba melakukan sedikit modifikasi pada DBGrid. Caranya cukup simpel. Hanya dengan menambahkan code ini didalam event onDrawColoumCell milik DBGRID :

Untuk Alternatif Jika anda tidak mau menggunakan komponen DBGRID bawaan Delphi, Ada Komponen Pengganti DBGrid yang dapat Sobat Coba. Namanya Komponen DBGRIDEH. Silahkan baca pada postingan saya disini. Untuk cara menggunakannaya silahkan baca disini.

1. Tambahkan dua Variabel :

   gridwarna : TDBGrid;
   warnarow : integer;

2. Tambahkan Code ini Setelah Begin

//Memberi Warna yang berbeda pada DBGrid
    gridwarna := sender as TDBGrid;
    warnarow := gridwarna.DataSource.DataSet.RecNo;
    if Odd(warnarow) then
    gridwarna.Canvas.Brush.Color := clyellow // Ganti Warnanya Sesuai Kebutuhan
    else
    gridwarna.Canvas.Brush.Color := clgreen; // Ganti Warnanya Sesuai Kebutuhan
    gridwarna.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;

Dan Hasilnya :