Criar uma condição para quando a resolução do monitor for maior ou menor o campo ter uma posição ou outra posição

Preciso criar uma condição para o campo assumir 2 posições dependendo do tamanho do monitor utilizado

User Function MT120TEL()

Local oNewDialog := PARAMIXB[1] Local aPosGet := PARAMIXB[2] Local aObj := PARAMIXB[3] Local nOpcx := PARAMIXB[4] Public _nVlrFre := 0.00

If nOpcx = 3 _nVlrFre := 0.00 Else _nVlrFre := U_xTotalDif(M->C7_NUM) EndIf

Quando maior que 1920 x 1080 ter essa posição: @ 063,823 SAY "Diferenca Total" OF oNewDialog PIXEL SIZE 050, 008 @ 063,952 MSGET _nVlrFre PICTURE PesqPict("SC7", "C7_XDIFT") OF oNewDialog PIXEL SIZE 060, 006

Quando menor ou igual a 1920 x 1080 ter essa posição: @ 063,431 SAY "Diferenca Total" OF oNewDialog PIXEL SIZE 050, 008 @ 063,493 MSGET _nVlrFre PICTURE PesqPict("SC7", "C7_XDIFT") OF oNewDialog PIXEL SIZE 060, 006

AAdd( aTitles, 'Observacoes' )

Return(.T.)

advpl

criado 30 de Aug de 2023
Andreas
215 pontos
editado 30 de Aug de 2023

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

up 1 down
Não me lembro de uma função que retorne exatamente a resolução da tela do usuário, mas você pode utilizar a função FwGetDialogSize para obter o tamanho da window do Protheus, com as coordenadas retornadas é possível se ter uma noção da resolução da tela do usuário.

Documentação: https://tdn.totvs.com/display/public/framework/FWGetDialogSize

Exemplo do retorno dessa função em uma tela 1920x1080:
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 30 de Aug de 2023
  Giordano Trabach Xavier
  4208 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Anexos
retorno_fwgetdialogsize.png
up 2 down
Eu utilizo este mesmo PE, para criar 2 get na tela, uso o PARAMIXB[2] para posicionar os gets e funciona bem em qualquer resolução de monitor.
```
    @ 061, aPosGet[1,08] - 012 SAY "Fornecedor Entrega" OF oDlg PIXEL SIZE 050,007
    @ 061, aPosGet[1,09] + 003 MSGET oxFornEnt VAR cxFornEnt SIZE 50, 006 OF oDlg PICTURE "@!" COLORS 0, 16777215 F3 "SA2" HASBUTTON PIXEL
    @ 061, aPosGet[1,09] + 060 MSGET oxLojaEnt VAR cxLojaEnt SIZE 20, 006 OF oDlg PICTURE "@!" COLORS 0, 16777215 PIXEL
```
Este é o resultado em um monitor FullHD

E este em um monitor com resolução menor
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 30 de Aug de 2023
  Leandro.Santos
  608 pontos
- 0
  
  Deu certo, muito obrigado
  — Andreas 30 de Aug de 2023
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Anexos
Captura1.png

Captura2.png

Criar uma condição para quando a resolução do monitor for maior ou menor o campo ter uma posição ou outra posição

Comentário

2 respostas

Comentário

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl ou faça a sua própria pergunta.