aqui le muestro mi codigo..haber si puede ver el error llevo rato y no doy con el error.......
cabe aclarar que el codigo que es para pintar un datagrid..dependiendo de una condicion....
Código Delphi
[-]
procedure TFrmDetalleSolicitudAutorizada.GridDetalleSolicitudAutorizadasDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
begin
Datos.QryFindSolicitud.Active:= False;
Datos.QryFindSolicitud.SQL.Clear;
Datos.QryFindSolicitud.SQL.Add('SELECT Seleccionado');
Datos.QryFindSolicitud.SQL.Add('FROM DetalleSolicitud');
Datos.QryFindSolicitud.SQL.Add('WHERE FolioSolicitud='+ QuotedStr(EdFolio.Text));
Datos.QryFindSolicitud.Active:= True;
With Datos.QryFindSolicitud Do
begin
First;
While Not Eof Do
begin
if Datos.QryFindSolicitud.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
Next; end
end
end;