GET over a GROUPBOX

[Enrico Maria Giordano]

Dear friends, I need a way to correctly show a GET over a GROUPBOX in the sample below (please activate the theme manifest). As you can see, the GET rectagle is not showed at first.

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := PADR( "This is a test", 35 )

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    oDlg:nStyle = NOR( oDlg:nStyle, WS_CLIPCHILDREN, WS_THICKFRAME )

    TGroup():New( 1, 1, 10, 20, "Test" )

    @ 50, 10 BUTTON "&Close" OF oDlg;
             PIXEL

    @ 100, 10 GET cVar OF oDlg SIZE 100, 11;
              PIXEL

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG