Ver Mensaje Individual
  #10  
Antiguo 22-09-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Se ha tratado muchas veces ese tema, si haces una búsqueda por clubdelphi encontrarás bastante información, básicamente debes escribir algo así:


Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin
   if Column.Field = ClientDataSet1SALDO then   // el campo que queremos controlar
     if ClientDataSet1SALDO.AsCurrency < 200 then    // en este caso si el valor es menor de 200
     begin 
       DBGrid1.Canvas.Font.Style := 
         DBGrid1.Canvas.Font.Style + [fsBold];   // pintamos en 'negrita'
       DBGrid1.Canvas.Font.Color := clRed;     // y en color rojo
       DBGrid1.DefaultDrawDataCell(rect,Column.Field,State); // pinta el texto 
     end;
end;

Y nada más.
Responder Con Cita