Ver Mensaje Individual
  #7  
Antiguo 18-03-2009
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Reputación: 18
tebre Va por buen camino
saludos

oka lo chceque y si fuinciono pero no me hizo nada..es que esta mal el codigo...

ya estuve buscando varios codigos y estoy tratando de adaptarlo al mio pero no quedqa.....quiero que me pinte mi datagrid apartir de una condicion..te muestro otro codigo para ver si me puedes ayudar

esto lo busque en foro:

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;

lo trato de adaptar al mio asi:

Código Delphi [-]
procedure TFrmDetalleSolicitudAutorizada.GridDetalleSolicitudAutorizadasDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin
 if (Column.Index = 7) and (Column.Field.DsOpSolicitud.FieldbyName('Seleccionado').AsString = 'True') then  //EROR en esta linea me marca errores
 begin
   if (gdFocused in State) then
    Begin
        GridDetalleSolicitudAutorizadas.canvas.brush.color := clBlue;
    end
    else
     Begin
         GridDetalleSolicitudAutorizadas.Canvas.Font.Color := clRed;          GridDetalleSolicitudAutorizadas.DefaultDrawColumnCell(rect,DataCol,Column,State);
     end
 end
end;
Responder Con Cita