Colorear las lineas de un DBGrid

[Chente(rMan)]

Que tal Anunakis, yo tambien ya habia buscado esto que preguntas, y lo habia buscado tambien en los hilos que te enviaron, pero ahi no encontre nada, de cualquier manera aqui te envio la solución.


en el evento OnDrawColumnCell de tu dbgrid agrega este código:

Código Delphi [-]
  with (Sender as TDBGrid) do
    begin
      if DataSource.DataSet.RecNo mod 2 = 0 then
        Canvas.Brush.Color := $00F8FFC6
      else
        Canvas.Brush.Color := clWhite;
      Canvas.Font.Color := Font.Color;
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

y listo!!!


Saludos.


Vicente López.

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