Ajustar janela MSDIALOG

Bom dia parceiros!

Estou precisando de um help pra ajustar a seguinte tela de consulta:

MSD.png

Percebam que a LISTBOX não está proporcional ao tamanho da janela.

Segue fonte abaixo:

DEFINE MSDIALOG oDlg TITLE cCadastro From 8, 05 To 28.5, 120 OF oMainWnd

    @ .5 , 001 SAY STR0029 //"Produto:"
    @ .4,  005 GET TRB->PRODUTO When .F.

    @ 1.5, 001 SAY STR0030 //"Descricao:"
    @ 1.4, 005 GET cDescPrd When .F.

    @ 2.5, 001 LISTBOX oQual FIELDS  HEADER STR0031, STR0032,STR0033, STR0034
    oQual:SetArray(aTrb)
    oQual :bLine := {|| aTrb[oQual:nAT]}

DEFINE SBUTTON FROM 135,250  TYPE 1  ENABLE OF oDlg ACTION (oDlg:End())

ACTIVATE MSDIALOG oDlg CENTERED VALID (nOAT := oQual:nAT,.t.)

Alguém teria uma sugestão?

Desde já muito obrigado.

Att,

Roque Freitas

  • Opinião: Use o TCBrowse, pra mim é a melhor classe para criar listas. Acompanhado do TCColumn. Use a construção do código com métodos de classes, me parece mais completo e detalhado na hora de dar manutenção. No exemplo do TListBox do TDN, ele usa neste formato.

    Everson da Costa Almeida   2 meses atrás
  • Valeu a dica parceiro, vou estudar essa classe, pois não conhecia.

    Roque Freitas   2 meses atrás
  1. 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.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. 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.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do SigaOAdvpl!

2 respostas

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