colorear filas de un dbgrid

[rgstuamigo]

Empezado por rmora

...sin embargo cuando estas celdas tienen texto, el texto desaparece o no se puede visualizar. Por favor podrían decirme como puedo hacer???. Estoy utilizando el componente tRxDBLib.

En ese caso puedes cambiar el color del texto agregando una linea de código:

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
var
   iRowNumber : Integer;
begin
   with (Sender as TDBGrid), Canvas do begin
      iRowNumber := (Rect.Top + Rect.Bottom) div ((1+Rect.Bottom - Rect.Top)*2);
         if Odd(iRowNumber) then Brush.Color := clYellow
         else Brush.Color := clWhite;
       Font.Color:=clBlack;// <-Aqui le estoy poniendo que los textos sean negros
      FillRect(Rect);
      DefaultDrawDataCell(Rect, Field, State);
   end;
end;

Saludos...

[rmora]

Gracias por tu respuesta, sin embargo ahora me encuentro con el siguiente problema:

Mi componente (rxDbLib) posee estos parametros:

GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

Por lo tanto el código se cae ya que no recibe el parámetro "Field" como lo indica el código anterior.
Tener idea que puedo cambiar para lograr lo que deseo??

De antemano gracias por tu ayuda.