Colorear las lineas de un DBGrid

[Anunakis]

Hola Chenter(Man), probé el codigo que me pusistes en cuanto pude pero no he conseguido hacerlo funcionar ya que siempre me hace el "else" de la condicion y por tanto me lo pone todo en blanco, salvo cuando el dbgrid no tiene registros y la primera fila (vacia) me sale en ese color azulillo.

Yo utilizo D7 con BDE, ¿tendrá algo que ver?.
Lo probaré con ADO aver que tal.

[Anunakis]

Efectivamente con ADO funciona a la perfeción, el fallo es que tengo todo el proyecto con BDE, jeje, y tendré asi como unas 40 50 tablas con su codigo especifico de BDE.

Seguiré probando cosas de todas maneras y alomejor el codigo que me as pasado lo puedo amoldar a BDE, si alguién sabe como hacerlo que me lo comente porfavor.

Gracias

[[kuan-yiu]]

Mi problema es parecido, así que añado mi pregunta aquí.
Yo tengo esta función de coloreado de filas que funciona perfectamente:

Código Delphi [-]
  if (qfacturaITOT.IsNull) then
    begin
      gFacturas.canvas.brush.color := clwhite;
      gFacturas.canvas.font.color := clblack;
      gFacturas.canvas.fillrect(rect);
    end
  else
    begin
      gFacturas.canvas.brush.color := clAqua;
      gFacturas.canvas.font.color := clblack;
      gFacturas.canvas.fillrect(rect);
    end;
  gFacturas.DefaultDrawColumnCell(Rect, DataCol, Column, State);

El problema es que ahora quieren cambiarlo: quieren que en lugar de colorear la fila entera sólo dibuje un recuadro en la fila, enmarcarla en lugar de rellenarla. Y no tengo ni idea de cómo hacerlo, lo que he intentado hasta el momento no me ha funcionado.
¿Alguien sabe cómo hacerlo o es imposible?

Gracias de antemano.

[hugobenitez]

Hola Chicos, es mi primer y humilde aporte a vuestros bastos conocimientos sobre el tema.

Yo lo solucione asi:

if (odd(TDBGrid(Sender).DataSource.DataSet.RecNo)=TRUE) and not (gdSelected in State) then
begin
TDBGrid(Sender).canvas.Font.Color:=clBlack;
TDBGrid(Sender).canvas.Brush.Color:=clSilver;
end;
TDBGrid(Sender).DefaultDrawColumnCell(rect,DataCol,Column,State);

Utilizo Delphi 5. Un abrazo y gracias por tantas soluciones para todos.