WA Create URL history menu

4D v16.3


WA Create URL history menu ( {* ;} objeto {; direccion} ) -> Resultado

Parámetro	Tipo	Descripción
*	Operador	Si se especifica, objeto es un nombre de objeto (cadena) Si se omite, objeto es una variable
objeto	Objeto de formulario	Nombre de objeto (si se especifica ) o Variable (si se omite )
direccion	Entero largo	0 ó si se omite=Lista de los URLs anteriores, 1=Lista de los URLs siguientes
Resultado	MenuRef	Referencia de menú

Descripción

El comando WA Create URL history menu crea y llena un menú que puede utilizarse directamente para la navegación entre los URLs visitados durante la sesión en el área web designada por los parámetros * y objeto. Puede utilizarse para crear una interfaz de navegación personalizada.

La información suminstrada concierne a la sesión; en otras palabras, la navegación se lleva a cabo en la misma área web siempre y cuando el formulario no se haya cerrado.

Pase en direccion un valor que indique la lista a recuperar. Puede utilizar una de las siguientes constantes, ubicadas en el tema "":

Constante	Tipo	Valor
WA next URLs	Entero largo	1
WA previous URLs	Entero largo	0

Si omite el parámetro direccion, se utiliza el valor 0.

Una vez generado el menú, puede mostrarlo vía el comando de 4D Dynamic pop up menu y puede trabajar con él utilizando los comandos estándar de gestión de menús de 4D. La cadena devuelta por el comando Dynamic pop up menu contiene el URL de la página visitada (ver ejemplo).

Llame el comando RELEASE MENU para borrar un menú de historial del URL cuando ya no sea útil.

Ejemplo

El siguiente código puede estar asociado con un botón 3D con menú pop up llamado "Anterior":

 Case of

  `Clic simple

    :(Form event=On Clicked)

       WA OPEN BACK URL(WA_area)

  `Clic en la flecha -> mostrar pop up

    :(Form event=On Alternative Click)

  `Crear un menú de historial previo

       $Menu:=WA Create URL history menu(WA_area;WA previous URLs)

  `Mostrar este menú en un pop-up

       $URL:=Dynamic pop up menu($Menu)

  `Si un elemento está seleccionado

       If($URL#"")

  `Abrir la página Web

          WA OPEN URL(WA_area;$URL)

       End if

  `Borrar el menú para liberar la memoria

       RELEASE MENU($Menu)

 End case

Ver también

Dynamic pop up menu
RELEASE MENU
WA GET URL HISTORY