Ver Mensaje Individual
  #7  
Antiguo 18-05-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola Cañones, tienes que hacerlo en el mismo evento OnDrawColumnCell, suponiendo que los que no tienen fecha de baja, tienen un valor Null.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(
  Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if Not (Query1.FieldByName('FECHA_BAJA').IsNull) then
    begin
     // Cambiamos el color
     DBGrid1.Canvas.Brush.Color := $00A4FFFF;
     DBGrid1.Canvas.Font.Color := clRed;
 
     DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
    end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita