Cambiar el color en una celda de un DBGrid

[RoyTan]

Saludos.

Bueno haber si me aclaro y alguien me aclara.

Necesito cambiar de color una celda de un DBGrid que cumpla una condición, como por ejemplo toda aquella del campo SALDO que contenga un número menor que 0.

Estoy dándole vueltas a este código, pero no se que falla.

if Column.Field.Dataset.FieldbyName('SALDO').AsFloat < 0
then
if (gdFocused in State)
then DBGCaja.Columns[4].color := clRed
else
DBGCaja.canvas.brush.color := clRed;
DBGCaja.DefaultDrawColumnCell(rect,DataCol,Column,State);

El resultado de este código es que pinta de color rojo toda la linea completa o sea todos los campos ( fecha,concepto,ingreso,gasto,saldo)

Y solo necesito que lo haga en el campo saldo.

Espero haberme explicado.

Gracias

[[Gabo]]

Usa el evento OnDrawCell. Allí pon los condicionantes que quieras y usa la propiedad Canvas del DBGrid.

[rafita]

Originally Posted by RoyTan

if Column.Field.Dataset.FieldbyName('SALDO').AsFloat < 0
then
if (gdFocused in State)
then DBGCaja.Columns[4].color := clRed
else
DBGCaja.canvas.brush.color := clRed;
DBGCaja.DefaultDrawColumnCell(rect,DataCol,Column,State);

En el ELSE deberías poner otro color ¿no?

[RoyTan]

Nada de nada.

Sigue sin funcionar.

[RoyTan]

He probado de todas formas y nada.

Bueno pues se quedará sin el colorcito.

Gracias.

[[gluglu]]

Este tema ya ha sido tratado en múltiples ocasiones en los foros.

Seguro que utilizando la búsqueda encontrarías muchas referencias. No obstante, para que veas que en Delphi 'siempre' se puede, te invito a utilizar el siguiente código :

Código Delphi [-]
procedure TForm.DBGrid1DrawColumnCell(Sender: TObject;
  Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 
  If (Column.Index = 5) and (Column.Field.Dataset.FieldbyName('SALDO').AsFloat < 0) and (not DataSet.IsEmpty) then begin
    if gdFocused in State then begin
      DBGrid1.Canvas.Brush.Color := clBlue    // Color que quieras que tenga el fondo si la línea tiene foco
      DBGrid1.Canvas.Font.Color  := clWhite   // Color del Font que quieras que tenga si la línea tiene foco
    end
    else begin
      DBGrid1.Canvas.Brush.Color := clRed;    // Color que quieras que tenga si la línea NO tiene foco
      DBGrid1.Canvas.Font.Color  := clWhite   // Color del Font que quieras que tenga si la línea NO tiene foco
    end;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 
end;

Siendo Column.Index = al número de columna que quieras colorear. También podrías hacer referencia a dicha columna por el campo que se encuentra en ella.

DataSet es el DataSet asociado a tu DBGrid.

... y nunca desesperes si algo no te funciona

[RoyTan]

Siempre pienso en positivo,
raramente desespero,
he buscado en el foro,
eso sí, seguramente no he buscado bien.

Pero esto sigue sin funcionar, probablemente este haciendo algo mal, eso es seguro.

Seguimos intentandolo.

Gracias.