Opa, Boa tarde pessoal.
Estou fazendo um projeto e não estou conseguindo fazer botões dinâmicos. Eles ficam na direita superior da tela, mas quando troco de resolução eles mudam de lugar, alguém tem alguma dica de como posso faze-los? Estou usando uma função que pega a resolução da tela que seria a MsAdvSize(), estava tentando fazer o seguinte:
pegar o tamanho da janela e coluna / 2 e tentar fazer algo dinâmico a partir dai, mas não estou conseguindo fazer muito coisa nessa questão.
Se alguém souber ou tiver alguma dica, agradeço.
Segue exemplo de função:
#Include “Totvs.ch”
User Function AjustaTamanho()
Local nAltura := MsAdvSize( “H”, 0 ) // Obtém altura da tela
Local nLargura := MsAdvSize( “W”, 0 ) // Obtém largura da tela
Local nEscalaX := nLargura / 1920 // Baseado em Full HD
Local nEscalaY := nAltura / 1080
// Exemplo de ajuste de um Browse
Local oBrowse := MsAdvSize( "B", 20 * nEscalaX, 10 * nEscalaY, 180 * nEscalaX, 80 * nEscalaY )
// Ajusta um botão proporcionalmente
Local oBotao := MsAdvSize( "B", 50 * nEscalaX, 90 * nEscalaY, 150 * nEscalaX, 110 * nEscalaY )
// Atualiza a tela
MsAdvSize( "R" )
Return
Boa noite Dilson.
Obrigado pela ajuda, irei usar no meu fonte, e olhando as linhas de código e vai servir muito bem, valeuu.