Pintar StringGrid

[ecfisa]

Hola.

Probá de este modo:

void __fastcall TForm1::gridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
  TStringGrid *StrGrd = dynamic_cast<TStringGrid*>(Sender);

  if (ARow != 0 && ARow%2 != 0 ){
   StrGrd->Canvas->Brush->Color = clBlue;
   StrGrd->Canvas->Rectangle(Rect);
   StrGrd->Canvas->Font->Style << fsBold;
   StrGrd->Canvas->Font->Color = clWhite;
   DrawText(StrGrd->Canvas->Handle, StrGrd->Cells[ACol][ARow].c_str(),
            StrGrd->Cells[ACol][ARow].Length(), &Rect,
            DT_SINGLELINE | DT_VCENTER);
 }
}

Saludos.