I have found the following definition usefull when defining dialogbox
controls on the fly = controls defined with "CreateWindowEx" in the
WM_INITDIALOG event.

Put 'AutoSizeDialog' in the WM_INITDIALOG msg, after the controls creation
process. The dialog autosize to fit the controls.

    : AutoSizeDialog ( hDlg -- )
        4 CELLS R-ALLOC 0 0 LOCALS| cx cy rect hDlg |
        hDlg GW_CHILD GetWindow
        BEGIN DUP WHILE
            DUP rect GetWindowRect DROP
            rect @RECT
            cy MAX TO cy cx MAX TO cx
            2DROP
            GW_HWNDNEXT GetWindow
        REPEAT
        DROP
        hDlg DUP rect GetWindowRect DROP
        rect @RECT 2DROP 2DUP
        cx ROT - SM_CXICON GetSystemMetrics +
        cy ROT - SM_CYICON GetSystemMetrics +
        TRUE MoveWindow DROP ;

Charles

.
Received on Fri Nov 26 1999 - 14:47:28 PST