
Gampang banget guys caranya....
1. Cukup Klik pada DBGrid di Event --> OnDrawColum seperti gambar berikut :
2. Ketikan coding pada prosedur tersebut sehingga menjadi seperti berikut ini :
procedure TData_Jadwal.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 :=clGradientInactiveCaption;
DBGrid1...