Ver Mensaje Individual
  #2  
Antiguo 22-07-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Hola Aprendiendo, aquí tambien hace un fuerte calor. Aunque no veo del todo clara tu pregunta te paso un ejemplo que puede ser que te ayude, supon que tenemos un dbgrid con un campo en la columna nº 10 que se llama 'surtida' y es booleano, yo quiero que aquellos valores del campo que sean verdaderos se pinten de aqua y solo se lean los que son falsos, entonces hago lo siguiente:
Código:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
                with Sender as TDBGrid do begin
                if (datacol=10) and table1.FieldByName('surtida').AsBoolean then
                BEGIN
                Canvas.Brush.Color := clAqua;
                Canvas.FillRect(rect);
                end else defaultdrawing:= true;
                end;
end;
En tu caso sería adecuarlo a la condición de que el valor del campo sea igual a 0.00.
Espero te ayude el ejemplo y vete a la costa para que refresques del calor.
Saludos
Responder Con Cita