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;