[jandok238]

no soy un experto...

solo tome el codigo de GLUGLU y lo adapte al tuyo...

Código Delphi [-]
 
 if (Column.Index = 2) and (Column.Field.Dataset.FieldbyName('PRECIO').AsFloat < 0) then  //cambie esta linea (bueno la adapte)
     if (gdFocused in State) then    
     Begin      
         DBGrid1.canvas.brush.color := clBlue;    
     end    
     else    
     Begin      
         DBGrid1.Canvas.Font.Color := clRed; //Cambie esta linea
         DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
     end;

espero te funcione..... por que a mi si

Gracias por el codigo GLUGLU....

salu2!!!!!!!!