TDBCtrlGrid para un TPV tactil. ¿Como avanzar por paginas?

[maiquemasque]

Gracias ecfisa, pero te cuento:

Imagina que el DBCtrlGrid tiene 7 filas. Si estoy situado en la última, la 7, ese codigo va bien. Pero si estoy en cualquier otra no funciona a la primera ejecución.

1-2-3-4-5-6-7 (estoy en el 3)

si avanzo con MoveBy el numero de filas tengo (7) entonces me muestra esto:

5 - 6 - 7 - 8 - 9 - 10 (se me posiciona en 10, y a partir de ahi como se posiciona en el último, va bien).

Pero esa primera vez, como verás muestra el 5, 6 y 7 que ya se mostraban antes.

y si estas en el 1, pues solo te muestra como nuevo, el 8 (del 2 al 8).

Y yo lo que necesito, lo ideal es que este donde esté posicionado, muestre los siguientes 7. Para ello el MoveBy serviría si supiera como colocarme antes en la ultima fila.

Sigo en ello, pero no doy con la solución, gracias de nuevo

[ecfisa]

Hola de nuevo.

El ejemplo del mensaje anterior, fué como para orientarte de que herramienta podías valerte...

Supongamos que hay 10 registros :A,B,C,D,E,F,G,H,I,J.
Y que muestres de a 4 en el DBCtrlGrid.
La primera vista sería: A,B,C,D, luego de hacer scroll hacia adelante debería verse: E,F,G,H.
Para que el registro E quede en la parte superior, deberías avanzar 4*2 posiciones y retroceder 4...

Algo como: (es otro ejemplo... )

Código Delphi [-]
procedure TForm1.Avanzar(Sender: TObject);
begin
  DataSet.MoveBy(DBCtrlGrid1.RowCount*2);
  DataSet.MoveBy(-DBCtrlGrid1.RowCount);
end;

También tomá en cuenta, que al hacer scroll, puede que no haya 4 registros para mostrar por que se alcanzo el fin o el inicio de la tabla. (ya sea vayas en un sentido u otro).
Para contemplar esa situación, te doy como dato de ayuda que la función MoveBy devuelve cuantos registros pudo moverse.


Un saludo.

[rgstuamigo]

Disculpenme pero no acabo de ver la complicacion:

Código Delphi [-]
DBCtrlGrid1.DataSource.DataSet.First;//voy al primer registro
DBCtrlGrid1.DataSource.DataSet.Prior;// voy al anterior registro de donde estoy actualemnte
DBCtrlGrid1.DataSource.DataSet.Next;// voy al siguiente registro de donde estoy actualmente
DBCtrlGrid1.DataSource.DataSet.Last;//voy al último registro

, o será que no entiendo bien el problema...
Saludos...

[ecfisa]

Hola rgstuamigo.

Según entiendo, maiquemasque quiere que el DBCtrlGrid realize un scroll en un sentido u otro al ser presionados los respectivos Buttons al efecto, y no usar las ScrollBars.

Usando las pocas neuronas activas que tengo en este momento, me acordé que existe el procedimiento ScrollBy que quizá se podría usar en este caso. Pero no sé si no será más complejo de ese modo.


Un saludo.

[*Caro*]

Hola maiquemasque, puedes utilizar las propiedades PanelCount y PanelIndex de tu DBCtrlGrid:

Código Delphi [-]
 
 Total := DBCtrlGrid1.PanelCount;
 NumReg := Total-DBCtrlGrid1.PanelIndex-1;
 DataSet.MoveBy(Total+NumReg);

Saluditos

[ecfisa]

Hola maiquemasque, puedes utilizar las propiedades PanelCount y PanelIndex de tu DBCtrlGrid:

Y colorín colorado, con el código de Caro... este cuento ha terminado.

Un saludo.

[rgstuamigo]

Tenía que ser una mujer la que nos dé una solucion... ..
¡ mujeres al poder......!