Tela Indexada

<< Clique para Mostrar o Sumário >>

 

Tela Indexada

É muito comum haver Telas que se repetem na aplicação. Ao invés de criar várias Telas, vamos criar apenas uma e configurar de onde buscar os dados. Para este tipo de Tela usamos o nome de Tela Indexada.

1.Crie uma Tela chamada "TelaComando", com o tamanho de 300 por 300 pixels.

2.Insira o XControl XC_Comando nesta Tela.

3.Para abrir a Tela de configuração ao clicar em uma bomba, no XControl XC_Bomba insira o script a seguir no evento Click do objeto que representa a bomba.

Arg = XC_Bomba.Fonte.PathName
Set newScreen = Application.GetFrame("virtualFrame")
newScreen.MoveFrame , , 200, 250
newScreen.SetFrameOptions XC_Bomba.Fonte.Name, 1 + 2 + 16 + 64 + 2048
Set screenObj = Application.GetScreen("TelaComando")
newScreen.ShowScreen screenObj, 100, 0
screenObj.Item("XC_Comando1").Fonte = Arg

 

NOTA

O método GetFrame permite abrir uma Tela em formato pop-up, definindo o tamanho através do método MoveFrame. Já o método GetScreen permite definir uma Tela a ser aberta e a fonte de dados, ou seja, a instância do XObject XO_Bomba.

 

4.Salve a aplicação e teste as novas funcionalidades.

Esta página foi útil?