Pintar Celdas DBGrid si cumple cierta condicion.

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