[novato_erick]

Empezado por chenech

	if(DataCol == 0)
	{
		if(dataset->FieldByName("LIMPIA")->AsString == "S")
			DBGrid1->Canvas->Brush->Color = clGreen;
		else
		{
			if(dataset->FieldByName("LIMPIA")->AsString == "P")
				DBGrid1->Canvas->Brush->Color = clYellow;
			else
				DBGrid1->Canvas->Brush->Color = clRed;
		}
		DBGrid1->DefaultDrawDataCell(Rect, Column->Field, State);
       }

Aquí pasa esto usando: https://clubdelphi.com/foros/attachm...1&d=1652137628

Código Delphi [-]
 DBGrid1.Canvas.Brush.Color := clYellow;

Si tienes razón hasta nuestro amigo lo menciona aquí: https://clubdelphi.com/foros/attachm...1&d=1652137628

Empezado por Casimiro Notevi

Te falta "repintarlo" con los cambios, algo así:

Código Delphi [-]
if Column.Field = ClientDataSet1SALDO then
  if ClientDataSet1SALDO.AsCurrency < 200 then
  begin
    DBGrid1.Canvas.Font.Color := clRed;
    DBGrid1.DefaultDrawDataCell(rect,Column.Field,State);// aquí es donde digo que me pone horrible la fuente
  end;

Creo que me doy a Explicar.

Saludos;