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 if (gdFocused in State) then
Begin
DBGrid1.canvas.brush.color := clBlue;
end
else
Begin
DBGrid1.Canvas.Font.Color := clRed; 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 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;