FMX: ListView Buscar y enseñar el 1º

[Joviali]

Buenas,
Tengo un Listview con por ejemplo 8o elementos, a la hora de posicióname en alguno utilizo:

Código Delphi [-]
  ListView1.ScrollTo( ListView1.Items[i].Index);

Esto me localiza el item y me lo muestra , el problema es que no se como hace rque siempre que sea posible( Que no este al final de la lista) lo muestre el 1º. de la lista visible.

Un saludo.

[Joviali]

Buenas, por si no ha quedado claro os paso unas fotos.

Intento buscar el item bitmap48 y me lo encuentra en la lista pero me lo enseña en cualquier sitio, ¿Podría forzarlo para que me lo muestre el 1º ?

busqueda1.PNG

Como aquí.
busqueda2.PNG

[Casimiro Noteví]

¿Que lo muestre el primero?
Parece que lo que quieres es que lo ponga el primero en la lista, o sea, moverlo de posición, ¿es eso?

[Joviali]

Gracias por contestar.

Es una lista ordena , con lo que no me interesa en principio, mover el item de sitio.El programa esta en un dispositivo en adroid, y me gustaría que estuviera el 1º de la lista visible.Espero haberme explicado.

[jcpozi]

Hola.
con esto te debería funcionar.

Código Delphi [-]
var
  itemRect:TRectF;
begin
  itemRect :=  ListView1.GetItemRect(ListView1.Items[i].Index);
  ListView1.ScrollViewPos := ListView1.ScrollViewPos + itemRect.Top;

[Joviali]

Buenas, ya se sitúa correctamente, Muchas gracias., por cierto he tenido que hacer lo siguiente ya que el listview tengo habilitado un SearchBox.

No se si es lo mas optimo per me funciona correctamente.

Código Delphi [-]
      
       for j := 0 to ListView1 .Controls.Count-1 do
          if  ListView1.Controls[j] is TSearchBox then
          begin
            HeihhtSearch:=    ListView1.controls[j].Height;
            Break;

          end;



         itemRect :=  ListView1.GetItemRect(ListView1.Items[i].Index);
         ListView1.ScrollViewPos := ListView1.ScrollViewPos +( itemRect.Top-HeihhtSearch );