Hola!
una preguntita..

�qu� le estar� faltando a este c�digo que no me pinta las filas del grid seg�n una condici�n? O sea, solo quiero pintar el fondo, no la letra. Puse un showmessage(qry.FieldByName('adjudicada').Value) para ver si me devolv�a algo y no me devuelve nada!.. pero en otro lado del c�digo lo uso y si me devuelve el valor correspondiente!
muchas gracias

procedure Tform.dbgDrawColumnCell(Sender: TObject; const Rect: TRect;
   DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   with Sender as TDBGrid do
     begin
       if qry.FieldByName('adjudicada').Value = 'S' then  // verde
            begin
              Canvas.Brush.Color:= clMoneyGreen;
            end;
       if qry.FieldByName('adjudicada').Value = 'N' then  // rojo
            begin
              Canvas.Brush.Color:= $00EEEEFF;
            end;
       if qry.FieldByName('adjudicada').Value = ' ' then  // amarillo
            begin
              Canvas.Brush.Color:= RGB(254,253,192);
            end;
       DefaultDrawColumnCell (Rect,DataCol,Column,State);
     end;
end;

No se que te puede faltar pero prueba lo que sigue:

procedure Tform.dbgDrawColumnCell(Sender: TObject; const Rect: TRect;
   DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   with Sender as TDBGrid do
     begin
       if qry.FieldByName('adjudicada').Value = 'S' then  // verde
              Canvas.Brush.Color:= clMoneyGreen
       else if qry.FieldByName('adjudicada').Value = 'N' then  // rojo
              Canvas.Brush.Color:= $00EEEEFF
       else  // amarillo
              Canvas.Brush.Color:= RGB(254,253,192);
       DefaultDrawColumnCell (Rect,DataCol,Column,State);
     end;
end;

Para mi que no te cog�a ninguno de los 3 valores por los que preguntabas, por lo que al final puse ELSE

Saludos Cordiales
=========
|| ISMAEL ||
=========

Hello Paola,

Tuesday, April 19, 2011, 7:24:55 PM, you wrote:

PB> �qu� le estar� faltando a este c�digo que no me pinta las filas del grid PB> seg�n una condici�n? O sea, solo quiero pintar el fondo, no la letra. PB> Puse un showmessage(qry.FieldByName('adjudicada').Value) para ver si me PB> devolv�a algo y no me devuelve nada!.. pero en otro lado del c�digo lo PB> uso y si me devuelve el valor correspondiente! PB> muchas gracias

Creo que lo que buscas es el evento "OnPrepareCanvas".

El 19/04/2011 03:17 p.m., Jos� Mejuto escribi�:

tampoco me funcion�!
en Delphi funciona xq me fij� en un c�digo de un sistema que ten�a hecho de muuuchos a�os atr�s y usaba ese evento.
chauuuuuu

El 19/04/2011 02:43 p.m., Ismael L. Donis Garc�a escribi�:

Hola Ismael..
si pon�s un showmessage donde te indico, y que debe devolver S, N o nada, siempre devuelve nada (tengo 2 registros en la consulta, uno que tiene S y otro ' ') por eso es que no cmbia nada, porque no entra en ning�n if (ya lo depur�)

showmessage(qry.FieldByName('adjudicada').Value)

El 19/04/2011 03:17 p.m., Jos� Mejuto escribi�:

sip.. retiro lo dicho en el mail anterior... funciona con este evento.. ya estuve mirando en la wiki que ac� tb hay unas diferencias con delphi! muchas gracias
chauuuuuuuu