|
<< Clique para Mostrar o Sumário >>
Criação de um Botão de Aba Personalizado |
Para criar um botão de aba personalizado, siga estes passos:
1.Crie um XControl em uma biblioteca de usuário.
2.Tomando por base o objeto hpLinkIcon da biblioteca hpMenus, copie e cole no novo XControl somente as primitivas. Exclua as propriedades e os scripts que vieram do objeto original.
3.O grupo Object pode ser desagrupado, resultando em apenas dois objetos na raiz do XControl, MouseArea e Background.
4.Insira o ícone desejado na raiz do XControl, que pode ser qualquer ícone da biblioteca hpIcons ou equivalente.
5.Simplifique a Associação na propriedade Foreground do objeto Background para a expressão a seguir.
-1*CInt(Parent.MouseArea.MouseOver)
NOTA |
As Associações cadastradas na janela de conexão múltipla desta Associação devem permanecer inalteradas. Apenas o campo Source da Associação original deve ser alterado. |
6.No objeto MouseArea, mantenha apenas a Associação na propriedade FillStyle.
7.Configure o script do XControl, por exemplo no evento Click do objeto MouseArea, com o código a seguir.
Sub MouseArea_Click()
MsgBox "Hello!"
End Sub
8.Selecione o objeto MouseArea e clique em Enviar para a frente.
9.Salve o XControl.
Sempre que este botão personalizado é declarado na propriedade PopupCode do objeto hpXFaceplateTemplate, deve obedecer ao formato Biblioteca.XControl, onde Biblioteca é o nome do arquivo de biblioteca que contém o XControl e XControl é o nome do objeto.