4D Doc Center : WA Create URL history menu

4D v13.4

WA Create URL history menu


WA Create URL history menu ( {* ;} objeto {; endereço} ) -> Resultado

Parâmetro	Tipo	Descrição
*	Operador	Se especificado, objeto é um nome de objeto (string); se omitido, objeto é uma variável
objeto	Objeto de formulário	Nome objeto (se * for especificado) ou Variável (se * é omitido)
endereço	Inteiro longo	0 ou omitido = Lista de URLs anteriores; 1 = Lista de próximas URLs
Resultado	MenuRef	Menu reference

Descrição

O comando WA Create URL history menu cria e preenche um menu que pode ser utilizado diretamente para a navegação entre as URLs visitadas durante a sessão na área web designada pelos parâmetros * e objeto. Pode ser utilizado para criar uma interface de navegação personalizada.

A informação fornecida se refere à sessão; em outras palavras, a navegação é realizada na mesma área web sempre que o formulário não tenha sido fechado.

Passe em endereço um valor que indique a lista a ser recuperada. Pode utilizar uma das seguintes constantes, localizadas no tema "Web Area":

Constante	Tipo	Valor
WA next URLs	Inteiro longo	1
WA previous URLs	Inteiro longo	0

Se omitir o parâmetro endereço, se utiliza o valor 0.

Quando tiver gerado o menu, pode mostrá-lo através do comando de 4D Dynamic pop up menu e pode trabalhar com ele utilizando os comandos padrão de gestão de menus de 4D. A string retornada por esse comando contém o URL da página visitada (ver exemplo).

Chame o comando RELEASE MENU para apagar um menu de histórico da URL quando já não for útil.

Exemplo

O código abaixo pode estar associado a um botão 3D com menu pop up chamado "Anterior":

 Case of

  `Clique simples

    :(Form event=On Clicked)

       WA OPEN BACK URL(WA_area)

  `Clique na flecha -> mostrar pop up

    :(Form event=On Arrow Click)

  `Criar um menu de histórico anterior

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

  `Mostrar este menu em um pop-up

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

  `Se um elemento estiver selecionado

       If($URL#"")

  `Abrir a página Web

          WA OPEN URL(WA_area;$URL)

       End if

  `Apagar o menu para liberar a memória

       RELEASE MENU($Menu)

 End case