Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 10 Próxima »

Função: GetScreenRes

Retorna uma matriz com a resolução de tela da estação.

GetScreenRes ( ) --> aRet

aRet
    (vetor)
  • Retorna uma matriz com a resolução de tela da estação.

    *Em builds superiores à 120420A esta função passa a retornar, no terceiro elemento do vetor, a resolução de todos os monitores configurados para a estação, veja mais detalhes neste documento.

Utilize esta função somente nos programas executados através do Smart Client.

#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
Local aScreenRes := Nil
Local cMensagem := ""

//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função GetScreenRes |
//+----------------------------------------------------------------------------+  
aScreenRes := GetScreenRes()
cMensagem += "Horizontal: " + cValToChar(aScreenRes[1]) + CRLF
cMensagem += "Vertical: " + cValToChar(aScreenRes[2])

//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do GetScreenRes")

Exemplo da função GetScreenRes

Observação:

Em builds superiores à 120420A foi implementada uma melhoria para retorno da resolução de múltiplos monitores, preenchendo esta informação à partir de um terceiro elemento no vetor de retorno, desta forma não alterando o comportamento original da função.

É importante ressaltar que caso os monitores estejam invertidos, como demonstrado no exemplo abaixo, o vetor respeitará sempre a ordem definida no sistema operacional, neste caso Windows.

Ainda neste exemplo, caso o monitor principal seja o direito e haja intenção de apresentar a Janela (TWindow/TDialog) no monitor esquerdo, será necessário definir uma posição(Left) negativa.


 

 

 

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos