MsObjSize - Dimensionamento de janelas

Funções de dimensionamento de janelas

Objetivo:

Permitir que as janelas criadas pelo Protheus possam aproveitar a maior área da tela, levando em consideração a resolução adotada pelo sistema operacional. 

Modo de funcionamento:

O conceito de MsAdvSize() e MsObjSize() é o de calcular o tamanho dos componentes (objetos) antes de sua criação. Para tanto, utilizam cálculos meramente matemáticos e são extremamente rápidas. 

Modo de utilização: 

Para que a janela e seus componentes possam ser ajustados à resolução, devem ser utilizadas duas funções: MsAdvSize() é a função básica, que devolve o tamanho da dialog (janela) a ser criada e o tamanho da área de trabalho a ser utilizada pelos componentes (objetos) contidos na janela. MsObjSize() retorna o tamanho e posição de cada componente (objeto) da janela, conforme definições recebidas via parâmetros. MsObjSize() recebe o tamanho da área de trabalho definida por MsAdvSize().

.PRW

MsObjSize - Dimensionamento de janelas ( ExpA2ExpA3 [ ExpL1 ] [ ExpL2 ] ) --> ExpA1

ExpA1(vetor)
• Array bidimensional contendo as posições de cada objeto

MsObjSize()

ExpA1 := MsObjSize( ExpA2, ExpA3, [ ExpL1 ], [ ExpL2 ] )

Parâmetros:

ExpA2 -> Área de trabalho (todos os dados em PIXEL)

1 -> Linha inicial

2 -> Coluna inicial

3 -> Linha final em

4 -> Coluna final em

5 –> Separação X – numérico.

            6 –> Separação Y – numérico.

            7 –> Separação X da borda. Opcional – numérico.

            8 –> Separação Y da borda. Opcional – numérico.

Este array corresponde à área de trabalho a ser utilizada. É composto de seis ou oito elementos. Os quatro primeiros elementos normalmente correspondem aos 4 primeiros elementos retornados pela função MsAdvSize(). O elemento 5 indica a separação lateral (  X )  em pixels entre cada objeto, e o elemento 6 indica a separação vertical ( Y )  em pixels entre cada objeto. O elemento 7 indica a separação lateral ( X ) em pixel entre o objeto e o limite da área de trabalho, e o elemento 8 indica a separação vertical ( Y ) entre o objeto e o limite da área de trabalho. Os elementos 7 e 8 são opcionais, e caso o array seja passado com 6 elementos serão assumidos os conteúdos dos elementos 5 e 6 respectivamente.

Exemplo de janela com 4 objetos:

FATC010.PRX – Pipeline / Administração de vendas.

Local aObjects := {}                               

AAdd( aObjects, { 100,  10, .T., .F. } )      

AAdd( aObjects, { 100, 100, .T., .T., .T. } )

AAdd( aObjects, { 100, 100, .T., .T., .T. } )           

AAdd( aObjects, { 100,  35, .T., .F. } )

ExpA3 -> Definições de objetos

É um Array contendo as características de cada objeto a ser criado. É um array bidimensional, visto que podem ser criados vários objetos. A ordem de disposição lógica dos objetos na tela respeitará a ordem na definição de ExpA3. A segunda dimensão do array possui 5 elementos a saber:

1 - Tamanho X – numérico

Indica o tamanho do objeto na dimensão X (horizontal).

2 - Tamanho Y – numérico

Indica o tamanho do objeto na dimensão Y (vertical).

3 - Dimensiona X – booleano (lógico)

Indica se o tamanho do objeto deve ser modificado na dimensão X. Em alguns casos, não é desejável alterar a largura de um objeto. Exemplo: imagem.

4 - Dimensiona Y – booleano (lógico)

Indica se o tamanho do objeto deve ser modificado na dimensão Y. Em alguns casos, não é desejável alterar a altura de um objeto. Exemplo: linha contendo texto fixo ou objeto de altura fixa (folder de totalizadores da rotina MATA103 – documento de entrada – parte inferior)

5 - Retorna dimensões X e Y ao invés de linha / coluna final.

Algumas classes de objetos do Protheus recebem parâmetros de dimensões X e Y ao invés da linha / coluna inicial / final. Neste caso o parâmetro deve ser passado como .T. . Exemplo de classe que recebe X e Y -> mspanel

@ aPosObj2[1,1], aPosObj2[1,2] MSPANEL oScrPanel PROMPT "" SIZE aPosObj2[1,3],aPosObj2[1,4] OF oDlg CENTERED LOWERED

ExpL1 -> Booleano (lógico). Mantém a proporção dos objetos

Este parâmetro indica que os objetos que podem ser redimensionados terão sua proporção de tamanho respeitada. Exemplo: se um objeto foi passado como “dimensão Y – redimensionar” e tamanho 100, e outro como “dimensão Y – redimensionar” e tamanho 200, o segundo objeto terá sempre o dobro da altura do primeiro, não importa a altura da janela. É importante salientar que essa função atua apenas caso os parâmetros 3 ou 4 de ExpA3 sejam .T..

 Exemplo de rotina que utiliza esta configuração: TECA120.PRX – Plano de manutenção preventiva. A altura do segundo objeto (getdados) é 50% maior que a do primeiro (enchoice), pois foram definidos tamanhos 60 e 40.

Local aObjects := {}

AAdd( aObjects, { 100, 40, .T., .T. } ) // enchoice

AAdd( aObjects, { 100, 60, .T., .T. } ) // getdados

O default é .F.

ExpL2 -> Booleano (lógico). Indica cálculo de objetos horizontais.

Este parâmetro indica que os objetos serão dispostos horizontalmente na janela, ou seja, um ao lado do outro. Exemplo de programa que utiliza esta configuração: TECC060 (Service Tracker – módulo FIELD SERVICE ).

O default é .F.

Retorno:

ExpA1 -> O array de retorno Exp1 é um array bidimensional contendo as posições de cada objeto. Cada linha do array é um subarray com a seguinte estrutura:

1 -> Linha inicial

2 -> Coluna inicial

3 -> Linha final

4 -> Coluna final

Ou:

Caso seja passado o elemento 5 de cada definição de

objetos como .t. o retorno será:

3 -> Tamanho da dimensão X

4 -> Tamanho da dimensão Y

Observação: algumas classes de objetos do Protheus recebem parâmetros de tamanho fora dos padrões citados acima. Nesses casos, é necessário manipular o array de retorno.

A ordem dos objetos em ExpA1 é a mesma na qual as definições dos objetos foram passadas em ExpA3. Ou seja, se na primeira linha de ExpA3 foram passados dados para uma enchoice, deve-se utilizar a primeira linha de ExpA1 como base para desenhar o objeto enchoice.