colorear filas de un dbgrid

[soyhugo]

¿alguien sabe el código para colorear las líneas de un dbgrid alternativas en dos colores distintos? gracias.

[Gydba]

Fijate si este código te ayuda (Tenés que usar el evento DrawDataCell del componente):

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;
      FillRect(Rect);
      DefaultDrawDataCell(Rect, Field, State);
   end;
end;

Como dato interesante el componente rxDBGrid de las rxlib tiene propiedades un tanto mas avanzadas que el DBGrid.

[rmora]

Empezado por Gydba

Fijate si este código te ayuda (Tenés que usar el evento DrawDataCell del componente):

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;
      FillRect(Rect);
      DefaultDrawDataCell(Rect, Field, State);
   end;
end;

Como dato interesante el componente rxDBGrid de las rxlib tiene propiedades un tanto mas avanzadas que el DBGrid.

Hola amigos, el ejemplo descrito a mi me funciono de maravilla, 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.

Gracias de antemano

[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.