Pintar Celdas DBGrid si cumple cierta condicion.

[Lenny]

Buenas y muchas gracias de antemano...

Tengo un JvDBUltimGrid el cual tiene entre otra info los meces del año, donde por cada registro a traves de unos DBCombobox (con los meces del año) escrivo el valor "Control", la pregunta es, bueno, si se puede cambiar de color la celda que cumpla con cierto valor ó condicion? en este caso todas las celdas que digan "Control" ó alguna fecha, solo necesito pintar esos cuadros, no las columnas ni las filas...

De Antemano Muchas Gracias...

PD: Utilizo Delphi 2010, Zeos, MySQL

[ecfisa]

Hola Lenny.

Revisá si te sirve este enlace

Un saludo.

[Lenny]

Muchas gracias!!! busque mucho por el foro y no di con esta respuesta, con algunos ajustes a lo que necesito el codigo quedo de esta manera:

Código Delphi [-]
 
procedure TObjetivosCalidad.JvDBUltimGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Field.AsString > '') and
     (Column.Field is TStringField) and
     (Column.Field.Value = 'Control') then
  begin
     JvDBUltimGrid1.Canvas.Brush.Color:= clRed;
     JvDBUltimGrid1.Canvas.Font.Color:= clWhite;
     JvDBUltimGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

En el fondo lo que hace (y necesito) es buscar en todo el JvDBGrid (igual en los DBGrid normales) las celdas que digan "Control" y pintarlas de algun color, en este caso rojo, muchas gracias!!!

[krewer]

Empezado por Lenny

Muchas gracias!!! busque mucho por el foro y no di con esta respuesta, con algunos ajustes a lo que necesito el codigo quedo de esta manera:

Código Delphi [-]
 
procedure TObjetivosCalidad.JvDBUltimGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Field.AsString > '') and
     (Column.Field is TStringField) and
     (Column.Field.Value = 'Control') then
  begin
     JvDBUltimGrid1.Canvas.Brush.Color:= clRed;
     JvDBUltimGrid1.Canvas.Font.Color:= clWhite;
     JvDBUltimGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

En el fondo lo que hace (y necesito) es buscar en todo el JvDBGrid (igual en los DBGrid normales) las celdas que digan "Control" y pintarlas de algun color, en este caso rojo, muchas gracias!!!

Lenny, a finales de 2015 y tu comenteario me salvo la vida, mil gracias

[Lenny]

2022 y recién veo tu comentario... justo estaba buscando lo mismo... jajajaja saludos!