|
<< 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.