Dynamic window frame

[Yohn]

Hy.
I have program for universal list. I choose file and then insert it in that program, and print from it.
I want that program size re-sizes frame depending of document loaded to him. If I have just 2 rows of text then window program re-sizes to that size plus buttons.
thx.

 

[sphipp]

Try something like this:

DEFINE VARIABLE cTest   AS CHARACTER  NO-UNDO.
DEFINE VARIABLE hfrmain AS HANDLE     NO-UNDO.
DEFINE VARIABLE htest   AS HANDLE     NO-UNDO.
DEFINE VARIABLE hBtnOK  AS HANDLE     NO-UNDO.
DEFINE BUTTON btnOK LABEL "OK".
DEFINE FRAME frmain
    ctest VIEW-AS EDITOR SIZE 50 BY 5 AT ROW 1 COL 1 
    btnok AT ROW 1 COL 1
    WITH NO-LABELS 1 DOWN THREE-D.

ASSIGN ctest = "Hello" + CHR(10) + "World" + CHR(10).
ASSIGN hfrmain = FRAME frmain:HANDLE
       htest   = ctest:HANDLE IN FRAME frmain
       hbtnok  = btnok:HANDLE IN FRAME frmain.
DISPLAY cTest WITH FRAME frMain.
MESSAGE "Press OK to watch it move" VIEW-AS ALERT-BOX INFO BUTTONS OK.

ASSIGN htest:COL      = 2
       htest:ROW      = 1
       htest:HEIGHT   = NUM-ENTRIES (ctest,CHR (10))
       hBtnOK:ROW     = htest:ROW + htest:HEIGHT
       hfrmain:COL    = 10
       hfrmain:ROW    = 3
       hfrmain:HEIGHT = htest:HEIGHT + htest:ROW 
       hfrmain:WIDTH  = htest:WIDTH + htest:COL NO-ERROR.