Aumentar Frame

Discussão em 'Progress 4GL' iniciado por lunho, Janeiro 3, 2019.

  1. lunho

    lunho Membro Participativo

    Bom Dia Pessoal.
    Estou criando uma upc para o programa cd0606, e estou precisando aumentar o tamanho da janela e da frame para posicionar os novos campos.
    Tem como fazer isso?
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Meu caro, essa é mais complicada, te aconselho a criar uma ABA nova no objeto folder e colar uma smart viewer com seus campos lá.
  3. lunho

    lunho Membro Participativo

    ok. Obrigado.
  4. José Carlos Sotero

    José Carlos Sotero Sem Pontuação

    Tente isto:

    /* ---------------------------------------------------------
    * Nome: upc/cd0606-upc.p
    *
    *
    * --------------------------------------------------------- */
    DEF INPUT PARAM p-ind-event AS CHAR NO-UNDO.
    DEF INPUT PARAM p-ind-object AS CHAR NO-UNDO.
    DEF INPUT PARAM p-wgh-object AS HANDLE NO-UNDO.
    DEF INPUT PARAM p-wgh-frame AS WIDGET-HANDLE NO-UNDO.
    DEF INPUT PARAM p-cod-table AS CHAR NO-UNDO.
    DEF INPUT PARAM p-row-table AS ROWID NO-UNDO.

    IF p-ind-event = "BEFORE-INITIALIZE" AND
    p-ind-object = "CONTAINER" THEN DO:
    /* JCS */
    RUN pi-ExpandirTela.
    /* JCS */
    END.

    PROCEDURE pi-ExpandirTela :
    DEF VAR hWindow AS HANDLE NO-UNDO.

    ASSIGN hWindow = p-wgh-frame:pARENT.
    IF NOT VALID-HANDLE(hWindow) THEN
    ASSIGN hWindow = CURRENT-WINDOW.
    ASSIGN hWindow:HEIGHT = hWindow:HEIGHT + 8
    p-wgh-frame:HEIGHT = p-wgh-frame:HEIGHT + 8.
    END PROCEDURE.

Compartilhe esta Página