void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender, const TRect &Rect, TField *Field, TGridDrawState State)
{
if ((Table1->RecNo % 2) == 0)
DBGrid1->Canvas->Brush->Color = clGray;
else
DBGrid1->Canvas->Brush->Color = clWhite;
if(State.Contains(gdSelected))
{ DBGrid1->Canvas->Font->Color = clWhite;
DBGrid1->Canvas->Brush->Color = clNavy;
}
DBGrid1->DefaultDrawDataCell(Rect, Field, State);
}