Bookmark

[[kuan-yiu]]

He mirado todos los temas en los que se nombran las "Bookmark" y he encontrado la recomendación de "desactivar/activar" (DisableControls/EnableControls) la query para que no se reflejen los movimientos de índices... Pero me parece inadecuado hacerlo dentro de un evento "OnMouseUp".

¿Se os ocurre en qué evento puedo totalizar a medida que se selecciona?

Un saludo, y gracias de antemano.

[[Lepe]]

No importa hacerlo en un MouseUp siempre y cuando se tomen las precauciones oportunas:

Código Delphi [-]
  if (gFacturas.SelectedRows.Count>0) then
   begin
    marca := qfactura.getbookmark;
    try 
       qFactura.DisableControls;
           // esto hace que los bucles se ejecuten más rápido
         // ya que no tiene que actualizar los controles

    for i:=0 to (gFacturas.SelectedRows.Count - 1) do
    begin
       qfactura.GotoBookmark(Pointer(gFacturas.SelectedRows.Items[i]));
       totF := totF + qfacturaIMPORTE.AsFloat;
       if qFactura.IsValidBookmark(marca) then // creo que se usa esto para averiguar si el bookmark es válido.
          qfactura.GotoBookmark(marca);
        //qfactura.freebookmark(marca); // estas seguro de que hay que liberarlo??, 
   // tendría que mirar la ayuda para saberlo, creo que no hace falta...no sé.
       totSelec.Text := floattostr(totF);
    end;
    finally
      qFactura.EnableControls
       //nos aseguramos activar los controles (por si ocurre una excepción)
    end;

  end;

Como ves sólo hago el disableControls si hay más de una fila seleccionada, de esta forma evitamos conectar y desconectar los controles si no hay nada seleccionado.

Saludos

[[kuan-yiu]]

¿Pones el "try" dentro del "for"? ¿No sería mejor ponerlo fuera para deshabilitar los controles una única vez?

Sobre lo de:

Empezado por Lepe

//qfactura.freebookmark(marca); // estas seguro de que hay que liberarlo??

Sí, lo estoy. Es un puntero y como tal, cuando ya no lo necesitas debes liberarlo. Es una "cuestión de higiene de código", no me gusta tener problemas con punteros.

[[Lepe]]

Pues tienes toda la razón sobre el try ... finally; pensé en hacerlo dentro del "if" pero fuera del "For", al final me quedó como un churro .

Voy a editar el mensaje y a ponerlo como dices

He trabajado poco con bookmarks, y cuando lo hicen eran de tipo String , por lo que no hacía falta liberarlos, que conste que era con el BDE. Creo que en realidad se llamaba BookmarkStr o algo por el estilo.

Saludos

[[kuan-yiu]]

He probado con varias versiones y nada ... Haga lo que haga se produce un molesto efecto de "reposicionamiento del grid".
Si quito la función el grid vuelve a comportarse bien y si pongo cualquier versión de la función...

Entonces en medio de mi desesperación por acotar el elemento responsable del no deseado efecto llegué a esta función:

Código Delphi [-]
  if (gFacturas.SelectedRows.Count>0) then
  begin
    try
      qfactura.DisableControls;
      for i:=0 to (gFacturas.SelectedRows.Count - 1) do
        totF := totF + qfacturaIMPORTE.AsFloat;
    finally
      qfactura.EnableControls;
    end;
  end;

Simplemente eliminando todos los "GotoBookmark" ¡¡FUNCIONA!!... Pero tengo mis dudas
¿Es casualidad o al ir avanzando por las líneas seleccionadas ya se posiciona en ellas? ¿Alguien puede aclarame este punto?

[[kuan-yiu]]

Ni caso a lo que acabo de publicar... era un espejismo y ya le he encontrado el fallo. Tampoco me vale.