Utilizar ABAS com Progress 8

A idéia dos frames não é lá tão ruim.... vlw pela sugestão.


Sobre a pergunta ai de cima eu utilizo os dois, pois possuímos 2 sistemas, um caracter e outro gráfico.

Aqui uma maneira de fazer sem appbuilder:

Código:

DEF RECTANGLE rct-a     ROUNDED BGCOLOR 17 SIZE 80 BY 17.
DEF BUTTON btn-aba-a    LABEL 'ABA 01' SIZE 10 BY 2.
DEF BUTTON btn-aba-b    LABEL 'ABA 02' SIZE 10 BY 2.
DEF VAR ds-texto-a      AS CHAR         NO-UNDO.
DEF VAR ds-texto-b      AS CHAR         NO-UNDO.
DEF VAR nr-cont         AS INT          NO-UNDO.
DEF VAR handle-window   AS HANDLE       NO-UNDO.

CREATE WINDOW handle-window.
ASSIGN
    handle-window:RESIZE        = TRUE
    handle-window:HEIGHT-CHARS  = 50
    handle-window:WIDTH-CHARS   = 120
    handle-window:SCROLL-BARS   = TRUE
    handle-window:TITLE         = 'Exemplo Abas'
    handle-window:THREE-D       = TRUE
    handle-window:VISIBLE       = TRUE.

FORM
    btn-aba-a  BGCOLOR 7    AT COL 1  ROW 1
    btn-aba-b               AT COL 11 ROW 1
    SKIP(3)
    ds-texto-a
    rct-a               AT COL 1 ROW 3.2
    WITH 1 COL THREE-D  NO-BOX SIZE 80 BY 20 FRAME f-a.
FORM
    btn-aba-a               AT COL 1  ROW 1
    btn-aba-b  BGCOLOR 7    AT COL 11 ROW 1
    SKIP(3)
    ds-texto-b
    rct-a               AT COL 1 ROW 3.2
    WITH 1 COL THREE-D  NO-BOX SIZE 80 BY 20 FRAME f-b.

ASSIGN
    btn-aba-b:FLAT-BUTTON IN FRAME f-a = TRUE
    btn-aba-a:FLAT-BUTTON IN FRAME f-b = TRUE.

ASSIGN
    FRAME f-a:PARENT    = handle-window
    FRAME f-a:ROW       = 5
    FRAME f-a:COL       = 5
    FRAME f-b:PARENT    = handle-window
    FRAME f-b:ROW       = 5
    FRAME f-b:COL       = 5.

ON 'choose':U OF btn-aba-b IN FRAME f-a
DO:
    DISABLE ALL WITH FRAME f-a.
    ENABLE  ALL WITH FRAME f-b.
END.
ON 'choose':U OF btn-aba-a IN FRAME f-b
DO:
    DISABLE ALL WITH FRAME f-b.
    ENABLE  ALL WITH FRAME f-a.
END.


ENABLE ALL WITH FRAME f-a.


WAIT-FOR WINDOW-CLOSE OF handle-window.