Lograr efecto del ToolBar de whatsApp con Firemonkey

[juank1971]

Hola amigos , como puedo hacer el efecto de whatsApp en el toolbar de arriba con firemonkey del sydney 10.4


Es una barra doble de espacio de ancho y cuando subes con el dedo se sube y desaparece la parte de arriba hasta lamitad de la toolbar y se queda de lamitad de la barra fija, cuando bajas el dedo vuelve a aparecer la mitad de arriba.


no se si puedan ver el video que muestro auqnue no es nada nuevo es un video de el efecto del toollbar de whatsApp.


gracias
este es el link del video

https://www.dropbox.com/s/3efbzofbel...38_43.mp4?dl=0

[Neftali [Germán.Estévez]]

Dependerá de cómo tengas montada la aplicación que estás desarrollando.
Se me ocurren 2 formas de hacerlo, pero como digo dependerá de los componentes que tengas; Podrías hacer una prueba a ver qué tal.

1) Por un lado se me ocurre que si tienes un ScrollBox (en este caso vertical), que sería el equivalente a lo que tiene WhatsApp, podrías utilizar el desplazamiento del ScrollBox.
Puedes saber si el scrollBox se mueve hacia arriba o hacia abajo. Puedes utilizar esa información para ocultar/visualizar el panel/toolbar superior.
si a eso le añades una "FloatAnimation" para que se oculte/visualize de forma suave, puedes conseguir lo que necesitas.


NOTA: En este ejemplo he utilizado 2 botones para que se pueda probar manualmente, pero no los necesitas. Puedes activar las animaciones (una para ocultar y otra para visualizar) directamente desde los eventos del ScollBox.






El evento de cambio sería:

Código Delphi [-]
procedure TForm3.VertScrollBox1ViewportPositionChange(Sender: TObject;
  const OldViewportPosition, NewViewportPosition: TPointF;
  const ContentSizeChanged: Boolean);
begin
  Label2.Text := Format('oldPosición=%f - Newposition=%f ', [OldViewportPosition.Y, NewViewportPosition.Y]);
  if NewViewportPosition.Y > OldViewportPosition.Y then begin
    // bajar
    Button2Click(nil);
  end
  else if NewViewportPosition.Y < OldViewportPosition.Y then begin
    Button1Click(nil);
  end;
end;

Y uno de los botones (el otro sería equivalente) sería:

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
begin
  if Animando or Oculto then
    Exit;
  Animando := True;
  Oculto := True;
  FloatAnimationOcultar.Start;
end;

2) Otra opción es probar con el componente de GestureManager, para detectar estas en concreto y hacer lo mismo que desde los eventos del scrollbox.
Este no lo he usado, así que no te lo puedo asegurar al 100%.

Te adjunto el ejemplo anterior.

[juank1971]

jaja muchos saludos y mis respetos a ti:
Estaba esperando una respuesta tuya, cuando vi tu nombre arriba me trajo viejos recuerdos de los foros.
Siempre has estado eternamente como un caballero errante, dando vueltas por aquí, me complace verte activo y como siempre ayudando a todos, creo que sin lugar a dudas hemos envejecido visitando estos foros de Delphi.

Gracias te deseo mucha salud para ti y los tuyos, voy a probar.
Juank